Archiv des Autors: PemoAdmin

Visual Basic-Code in einem PowerShell-Skript ausführen

Visual Basic ist ein wenig die vergessene Programmiersprache bei Microsoft. In den 90er Jahren hatte das damals noch alte Visual Basic einen großen Anteil daran, dass sich Windows 3.0 und seine Nachfolger als Betriebssystemoberfläche so schnell verbreiten konnte. Mit der Einführung von .NET Framework im Jahr 2002 war Visual Basic als Visual Basic.NET zwar noch vertreten, das neue Visual Basic hatte aber nicht mehr viel mit dem vertrauten Visual Basic gemein. Die Folge war, dass es immer mehr auf ein Abstellgleis geriet, wenngleich die Sprache immer noch ein fester Bestandteil des .NET Framework als auch von .NET Core ist und auch weiterentwickelt wird. Auch bei .NET Core 3.0 wird VB dabei sein, auch wenn es nicht für alle Anwendungstypen eingesetzt werden kann:

https://blogs.msdn.microsoft.com/vbteam/2018/11/12/visual-basic-in-net-core-3-0/

Anders sieht es bei PowerShell Core aus. Mit der aktuellen Version 6.1 wird VB im Zusammenhang mit dem Add-Type-Cmdlet nicht mehr unterstützt. Auch wenn es nur wenige Gründe geben dürfte, in einem PowerShell-Skript Visual Basic-Code zu verwenden ist es trotzdem etwas schade, da eine Option weniger zur Auswahl steht.

Das folgende Beispiel ist daher nur für die Windows PowerShell gedacht. Es startet Word per später Bindung, lädt eine Docx-Datei und speichert sie als Pdf-Datei. Das setzt Word ab Version 2010 (?) voraus, damit diese Option überhaupt zur Verfügung steht.

<#
 .Synopsis
 Visual Basic Code ausführen
#>

$VBCode = @"

    Sub Docx2Pdf(DocxPfad as String)
        Dim WdApp As Object
        Dim PdfPfad As String = System.IO.Path.ChangeExtension(DocxPfad, ".pdf")
        WdApp = CreateObject("Word.Application")
        WdApp.Documents.Open(DocxPfad)
        WdApp.ActiveDocument.SaveAs(PdfPfad, 17)
        WdApp.Quit()
    End Sub

"@

Add-Type -MemberDefinition $VBCode -Language VisualBasic -Name PdfConvert -ReferencedAssemblies Microsoft.VisualBasic -UsingNamespace Microsoft.VisualBasic -Namespace Wd


$DocxPfad = "$env:userprofile\documents\FragenZurFormatierung_1908.docx"
[Wd.PdfConvert]::new().Docx2Pdf($DocxPfad)

.Synopsis

Visual Basic Code ausführen

$VBCode = @"

Sub Docx2Pdf(DocxPfad as String)

Dim WdApp As Object

Dim PdfPfad As String = System.IO.Path.ChangeExtension(DocxPfad, ".pdf")

WdApp = CreateObject("Word.Application")

WdApp.Documents.Open(DocxPfad)

WdApp.ActiveDocument.SaveAs(PdfPfad, 17)

WdApp.Quit()

End Sub

Add-Type -MemberDefinition $VBCode -Language VisualBasic -Name PdfConvert -ReferencedAssemblies Microsoft.VisualBasic -UsingNamespace Microsoft.VisualBasic -Namespace Wd

$DocxPfad = "$env:userprofile\documents\FragenZurFormatierung_1908.docx"

[Wd.PdfConvert]::new().Docx2Pdf($DocxPfad)

17 ist der „Code“ (der Wert der Konstanten, die für das Dateiformat steht) für Pdf. Alle Pfade bitte anpassen, damit es auch funktioniert.

Kleine Tipps für Zwischendurch – Strings und Arrays per Select-String durchsuchen

Schreibe eine Antwort

Der Match-Operator ist praktisch, er gibt aber nur an, ob eine Zeichenkette in einer anderen Zeichenkette enthalten ist, die Übereinstimmung erfährt man nicht. Konkretes Beispiel: Ich wollte abfragen, ob die Path-Umgebungsvariable einen Pfad enthält, in dem ein bestimmter Name, z.B. „python“ enthalten ist.

Wenn ein

$env:path -match "python"

1	$env:path -match "python"

ein $true liefert bedeutet das lediglich, dass es einen Verzeichnispfad gibt, wie genau heißt erfährt man nicht.

Für diesen Zweck gibt es das vielseitige Select-String-Cmdlet, das auch ohne reguläre Ausdrücke nützlich ist.

Der folgende Befehl gibt alle Verzeichnispfade aus, in denen z.B. „python“ enthalten ist.

$env:path.split(";") | select-string "python"

1	$env:path.split(";") \| select-string "python"

Tipp der Woche: Strings mit einem Zeichen auffüllen

Schreibe eine Antwort

Nach diesem kleinen Trick (ich behaupte einmal, dass er relativ undokumentiert ist) habe ich einige Jahre „gesucht“. Ich hatte in einmal in einem PowerShell-Skript oder einem Beispiel, das damals noch für die Version 1.0 gemacht war entdeckt, die Syntax nicht verstanden und dann aus den Augen verloren. Ausgerechnet bei einer Code Golf-Challenge auf Stackoverflow habe ich ihn per Zufall wieder entdeckt.

Die folgende Schreibweise erzeugt einen String, der aus z.B. 20 * besteht:

"*" * 20

"*" * 20

Eigentlich ganz logisch. Etwas kniffliger wird es, wenn z.B. eine 10×10-Matriz mit einem einzelnen Zeichen erzeugt werden soll. Das geht wie folgt:

,("*"*10)*10

1	,(""10)*10

Oder wenn man einmal wirklich zu viel Zeit hat:

(1..20).ForEach{,("*"*([Math]::abs(10-$_)+1))*2}

1	(1..20).ForEach{,(""([Math]::abs(10-$_)+1))*2}

String-Spielereien mit der PowerShell-Syntax, die kein Mensch wirklich braucht

Code like C# (oder so ähnlich)

Schreibe eine Antwort

Die PowerShell-Skriptsprache ist kein C# und soll es auch nicht sein. Trotzdem haben die Erfinder der Sprache ein paar syntaktische Ähnlichkeiten eingebaut, die Entwicklern, die in der Regel C# verwenden (wo sind alle die VB-Entwickler geblieben?), das Eingewöhnen etwas erleichtern sollen. Dazu gehört z.B. die Option Konstruktorargumente in runden Klammern übergeben zu können und die Kleinigkeit, dass eine Befehlszeile mit einem Semikolon enden kann, auch wenn dieses nicht benötigt wird.

Beim Anlegen von Objekten werden C#-Entwickler den new-Operator vermissen. Das Pendant ist das etwas sperrige New-Object-Cmdlet oder seit Version 5 die statische New-Methode des Type-Objekts. Mit Hilfe eines Alias und der optionalen Klammerschreibweise für Konstruktorargumente wird die PowerShell-Syntax der C#-Syntax dann doch verblüffend ähnlich.

using namespace System.IO
Set-Alias -Name New -Value New-Object

$Sr = new StreamReader("C:\Windows\Win.ini");
$Sr.ReadToEnd();
$Sr.Close();

using namespace System.IO

Set-Alias -Name New -Value New-Object

$Sr = new StreamReader("C:\Windows\Win.ini");

$Sr.ReadToEnd();

$Sr.Close();

Die Semikolons sind natürlich überflüssig. Was es definitiv nicht gibt ist ein Pendant zum using-Befehl in C# für den automatischen Aufruf von Dispose(). Solche Feinheiten dürften in einem PowerShell-Skript eher selten eine Rolle spielen. Und Variablen müssen wirklich nicht deklariert werden, sie sind aber trotzdem typsiert.

Module in einer Remote-Session global importieren am Beispiel von Office 365/Exchange Online

Schreibe eine Antwort

Der Zugriff auf Exchange bzw. Exchange Online (Office 365) erfolgt im Rahmen einer Remote-Session. Im ersten Schritt wird die Remote-Session angelegt, im zweiten Schritt wird ein Modul im Rahmen der Remote-Session lokal importiert, so dass alle Cmdlets aus dem Modul lokal als (Proxy-) Functions zur Verfügung stehen.

Hier ein kleines Beispiel.

$NewSession = New-PSSession -ConfigurationName Microsoft.Exchange `
  -ConnectionUri https://outlook.office365.com/powershell-liveid/ `
  -Credential $O365Cred -Authentication Basic -AllowRedirection -ErrorAction Stop
  Import-PSSession $NewSession -Verbose -DisableNameChecking -AllowClobber

$NewSession = New-PSSession -ConfigurationName Microsoft.Exchange `

-ConnectionUri https://outlook.office365.com/powershell-liveid/ `

-Credential $O365Cred -Authentication Basic -AllowRedirection -ErrorAction Stop

Import-PSSession $NewSession -Verbose -DisableNameChecking -AllowClobber

Das ist alles in der offiziellen PowerShell/Office 365-Dokumentation ausführlich dokumentiert, z.B.

https://docs.microsoft.com/de-de/office365/enterprise/powershell/manage-office-365-with-office-365-powershell

Was aber, wenn man das Importieren des Remote-Moduls in ein Modul auslagern möchte? Auf einmal steht das Remote-Modul außerhalb des Moduls nicht mehr zur Verfügung.

Ich muss zugegeben, dass ich auf die Lösung nicht auf Anhieb gekommen bin (oft bin ich auch zu bequem, um es wirklich zu probieren). Sie besteht darin, dass temporäre Modul per Import-Module mit dem Parameter Global oder Scope global zu importieren. Dadurch steht es anschließend auch außerhalb des angelegten Moduls zur Verfügung.

$M365 = Import-PSSession $NewSession -Verbose -DisableNameChecking -AllowClobber 
Import-Module -ModuleInfo $M365 -Scope Global -DisableNameChecking

1 2	$M365 = Import-PSSession $NewSession -Verbose -DisableNameChecking -AllowClobber Import-Module -ModuleInfo $M365 -Scope Global -DisableNameChecking

Kleine Tipps für Zwischendurch: Datumszeitangaben im UTC-Format konvertieren

Schreibe eine Antwort

Datumskonvertierungen sind ein Thema für sich, insbesondere, wenn Spezialitäten wie UTC-Zeitangaben (Universal Time Coordinate) wie „20181010T110000“ ins Spiel kommen. Solche Datumswerte kommen z.B. in Ics-Dateien vor, die als Einladung zu einem Meeting verschickt werden.

PowerShell ist dank dem .NET Framework-Unterbau sehr vielseitig was den Umgang mit Datumsformat angeht, man muss eventuell nur ein wenig suchen bzw. experimentierfreudig sein.

So hat es eine Weile gedauert bis ich herausgefunden hatte wie die obige Zeichenfolge in einen DateTime-Wert konvertiert wird:

[Datetime]::ParseExact("20181010T110000", "yyyyMMddTHHmmss", $null)

1	[Datetime]::ParseExact("20181010T110000", "yyyyMMddTHHmmss", $null)

Das Geheimnis besteht darin, dass die zweite Zeichenfolge den Aufbau der ersten Zeichenfolge so abbilden muss, dass ein gültiger Datumszeitwert resultiert.

Das „T“ stört natürlich ein wenig. Der vielseitige replace-Operator lässt es unaufällig verschwinden:

$UTCWert = "20181010T110000" -replace "T"
[Datetime]::ParseExact($UTCWert, "yyyyMMddHHmmss", $null)

1 2	$UTCWert = "20181010T110000" -replace "T" [Datetime]::ParseExact($UTCWert, "yyyyMMddHHmmss", $null)

Einen Access Token für Microsoft Graph erhalten

Schreibe eine Antwort

Mein neues Schwerpunktthema ist Office 365-Administration per PowerShell&Co und in diesem Themenkontext vor allem die reichhaltige Microsoft Graph-API.

Das für das Ausführen von Abfragen erforderliche Access Token zu erhalten ist nicht ganz so einfach. Das liegt weniger an der Technik, sondern eher daran, dass die Thematik (u.a. OAUth 2.0) ungewohnt ist und viele Wege nach Rom führen, von denen einige auch in Sackgassen führen.

Eine sehr gute Anleitung hat Microsoft Mitarbeiter Paul Kotylo in seinem Blog beschrieben:

https://blogs.technet.microsoft.com/cloudlojik/2018/06/29/connecting-to-microsoft-graph-with-a-native-app-using-powershell/

Wer die Schritte der Reihe nach ausführt (und keine Fehler macht) kommt zu einem Erfolg und kann Abfragen wie die folgende ausführen:

# Einfache Abfrage aller User
$ApiUri = "https://graph.microsoft.com/v1.0/users"

$Result = Invoke-RestMethod -Headers $Header -Uri $ApiUri -UseBasicParsing
$Result.Value

# Einfache Abfrage aller User

$ApiUri = "https://graph.microsoft.com/v1.0/users"

$Result = Invoke-RestMethod -Headers $Header -Uri $ApiUri -UseBasicParsing

$Result.Value

Die auf ODATA basierende Abfragesyntax wird hier beschrieben:

https://developer.microsoft.com/en-us/graph/docs/concepts/query_parameters

1	https://developer.microsoft.com/en-us/graph/docs/concepts/query_parameters

Ob eine Abfrage funktioniert hängt auch davon ab, ob für die App die erforderliche Berechtigung gesetzt wurde.

Ich werden das Thema in einigen Wochen an dieser Stelle ausführlicher mit einer Schritt für Schritt-Anleitung vorstellen.

Kleine Tipps für Zwischendurch: PowerShell Core-Module aus der PowerShell Gallery auflisten

Schreibe eine Antwort

PowerShell Core ist die Zukunft. Möglichst viele der Module, die Teil von Windows und Windows Server sind, sollen früher oder später auch für PowerShell Core verfügbar sein.

Modul-Autoren sollen im Modulmanifest den Eintrag CompatiblePSEditions verwenden und dort die Editionen „PSDesktop“ und „PSCore“ eintragen. Dieser Eintrag wird aber erst ab WMF 5.1 verstanden.

Aktuell ist es nicht ganz so einfach wie es sein könnte herauszufinden, ob ein Modul der PowerShell Gallery auch für PowerShell Core in Frage kommt. Diese Information verbirgt sich in der unscheinbaren Tags-Eigenschaft eines Modul.

In der PowerShell Dokumentation wird das Prinzip der Abfrage bereits ausführlich beschrieben:

https://docs.microsoft.com/en-us/powershell/gallery/how-to/finding-items/searching-by-psedition

Zwei kleine Beispiele sollen die Abfrage per Find-Module in der Praxis zeigen.

Find-Module -Tag "PSEdition_Core"  | Select Name, Tags

1	Find-Module -Tag "PSEdition_Core" \| Select Name, Tags

Etwas komfortabler ist der folgende Befehl, der zu allen Modulen der PowerShell Gallery die Editionen angibt, unter denen sie verwendet werden können.

Find-Module -Tag "PSEdition_Core"  | Select Name, @{n="Edition";e={ ([Regex]::Matches($_.Tags, "PSEdition_\w+")).Value -join ","}}

1	Find-Module -Tag "PSEdition_Core" \| Select Name, @{n="Edition";e={ ([Regex]::Matches($_.Tags, "PSEdition_\w+")).Value -join ","}}

Der folgende Befehl gruppiert die ganze Ausgabe nach der Eigenschaft Edition:

$Module = Find-Module -Tag "PSEdition_Core"  | Select Name, @{n="Edition";e={ ([Regex]::Matches($_.Tags, "PSEdition_\w+")).Value -join ","}}
$Module | Group-Object -Property Edition

1 2	$Module = Find-Module -Tag "PSEdition_Core" \| Select Name, @{n="Edition";e={ ([Regex]::Matches($_.Tags, "PSEdition_\w+")).Value -join ","}} $Module \| Group-Object -Property Edition

Wenn die Abfrage stimmt, sind von den über 3.200 Modulen der PowerShell Gallery nur etwas über 200 Module mit einem PSEdition-Information versehen. Und da man in die Tags-Eigenschaft alles eintragen kann, gibt es auch unterschiedliche Schreibweisen.

Wer bei den installierten Modulen die Edition abfragen möchte, verwendet dazu die CompatiblePSEditions-Eigenschaft:

Get-Module -ListAvailable | Select -Property Name, CompatiblePSEditions

1	Get-Module -ListAvailable \| Select -Property Name, CompatiblePSEditions

oder

Get-Module -ListAvailable | Group {$_.CompatiblePSEditions -join ","}

1	Get-Module -ListAvailable \| Group {$_.CompatiblePSEditions -join ","}

Wenn in der PowerShell-Konsole oder ISE nichts ausgegeben wird, liegt es an der PSModulePath-Umgebungsvariablen. Nur bei PowerShell Core ist das Verzeichnis c:\Program files\powershell\6\Modules mit dabei.

Die Beispiele zu meinem Vortrag auf der Basta! 2018

Schreibe eine Antwort

Die Basta! (der Name stand ursprünglich einmal für „Basic Tage“ – BASIC ist eine Programmiersprache, die vor allem in den 90er Jahren populär war – das Ausrufezeichen ist vermutlich aus Marketinggründen angehängt worden) ist zwar eine Entwicklerkonferenz, die zwei Mal im Jahr stattfindet (und das bereits seit über 20 Jahren), doch wie bei jeder Konferenz haben auch Randthemen ihren Platz.

Die Beispiele (in Gestalt einer Reihe von PowerShell-Skripten) gibt es unter dem folgenden Link:

Basta2018_PowerShellSkripte

Mehr zu dem Vortrag in Kürze (während ich diese Zeilen schreibe liegt er nämlich noch in der Zukunft und diese ist bekanntlich etwas schwierig vorauszusagen).

Convert a hashtable into its string representation

Schreibe eine Antwort

Recently I had to find a technique to update a module manitest file (psd1). Using the Update-ModuleManifest cmdlet is the official way to achieve this. Although using this command is really simple it completely overwrites the current psd1 file and inserts all the „junk“ that I want to keep out from that file.

Another approach is to load the psd1 file with the Import-LocalizedData cmdlet which results to a hashtable.

$Psd1Data = Import-LocalizedData -FileName Osmium.psd1

1	$Psd1Data = Import-LocalizedData -FileName Osmium.psd1

Updating single entries is easy:

$Psd1Data.PrivataData.PsData.ReleaseNotes = "Readmefirst.rtf"

1	$Psd1Data.PrivataData.PsData.ReleaseNotes = "Readmefirst.rtf"

But how do you turn the the whole hashtable with all its keys and values into a string again? Not so easy. Luckily I found an old blog entry by June Blender (when she was still working for Sapien Technologies):

https://www.sapien.com/blog/2014/10/21/a-better-tostring-method-for-hash-tables/

But June restricted her function to simple hashtables with no values that are hashtables themselves.

So I have extend her function so that it works also with hashtable that contains other hashtable values which is necessary to convert a hashtable that represents a psd1 file. Ny function calls itself recursively which which is not hard to accomplish in PowerShell. The difficult part can be to find an exit condition or threat the last value differently. For this reason I am not using foreach but the for command with an index variable to enumerate all the values. For the last value I add „}“ to complete the hashtable string.

As PowerShell expert Kirk Munro suggested in his comments to Junes blog post converting the hashtable to json might be a simpler solution. I have not tried this yet although it probably could have saved me a lot of typing and trying. But hey, why choosing a simple solution if you can spend a couple of hours fiddling with Powershell script code;)

<#
 .Synopsis
 Converts a hashtable into a string representation of all its values
#>
function Convert-HashtableToString
{
    param([System.Collections.Hashtable]$Hashtable, [Switch]$Recurse)
    # Add @{ only once to the text
    if (!$PSBoundParameters.ContainsKey("Recurse"))
    {
        $hashtext = "@{"
    }
    # cannot use foreach because I have to catch the last loop for adding }
    for($i=0;$i -lt $Hashtable.Keys.Count;$i++)
    {
        # get the current key
        $k = @($Hashtable.Keys)[$i]
        # get the current value
        $v = $Hashtable[$k]
        # check if value is a hashtable
        if ($v -is [System.Collections.Hashtable])
        {
            $hashtext += "$k=@{"
            # call function recursively
            $hashtext += Convert-HashToString -Hashtable $v -Recurse
            $hashtext += ";"
        }
        # check if value is an array
        elseif ($v -is [System.Array])
        {
            $hashtext += "$k=@("
            $hashtext += $v.ForEach{"'$_'"} -join ","
            $hashtext += ");"
        }
        else
        {
            $hashtext += $k + "=" + "`"$v`"" + ";"
        }
        # if last loop add } to the output
        if ($i -eq $Hashtable.Keys.Count -1 )
        {
            $hashtext += "}"
        }
    }
    # return the text - no need for a return statement
    $hashtext
}

.Synopsis

Converts a hashtable into a string representation of all its values

function Convert-HashtableToString

{

param([System.Collections.Hashtable]$Hashtable, [Switch]$Recurse)

# Add @{ only once to the text

if (!$PSBoundParameters.ContainsKey("Recurse"))

{

$hashtext = "@{"

}

# cannot use foreach because I have to catch the last loop for adding }

for($i=0;$i -lt $Hashtable.Keys.Count;$i++)

{

# get the current key

$k = @($Hashtable.Keys)[$i]

# get the current value

$v = $Hashtable[$k]

# check if value is a hashtable

if ($v -is [System.Collections.Hashtable])

{

$hashtext += "$k=@{"

# call function recursively

$hashtext += Convert-HashToString -Hashtable $v -Recurse

$hashtext += ";"

}

# check if value is an array

elseif ($v -is [System.Array])

{

$hashtext += "$k=@("

$hashtext += $v.ForEach{"'$_'"} -join ","

$hashtext += ");"

}

else

{

$hashtext += $k + "=" + "`"$v`"" + ";"

}

# if last loop add } to the output

if ($i -eq $Hashtable.Keys.Count -1 )

{

$hashtext += "}"

}

# return the text - no need for a return statement

$hashtext

}

So this should work. I have tested the function with a specific psd1 file. If not please leave a comment or send me a mail.

PowerShell-Admin

PowerShell-Know-how von PowerShell-Experte, Entwickler, Autor und Trainer Peter Monadjemi

Archiv des Autors: PemoAdmin

Visual Basic-Code in einem PowerShell-Skript ausführen

Kleine Tipps für Zwischendurch – Strings und Arrays per Select-String durchsuchen

Tipp der Woche: Strings mit einem Zeichen auffüllen

Code like C# (oder so ähnlich)

Module in einer Remote-Session global importieren am Beispiel von Office 365/Exchange Online

Kleine Tipps für Zwischendurch: Datumszeitangaben im UTC-Format konvertieren

Einen Access Token für Microsoft Graph erhalten

Kleine Tipps für Zwischendurch: PowerShell Core-Module aus der PowerShell Gallery auflisten

Die Beispiele zu meinem Vortrag auf der Basta! 2018

Convert a hashtable into its string representation