eingebundenes Powershell macht plötzlich Probleme

casi4712

Hallo allerseits,

nach längerer Pause melde ich mich wieder mal zu Wort mit einem äusserst hartnäckigem Problem. Es sollen über verrschiedene Button bestimmte Powershellbefehle abgearbeitet werden, diese zunächst ins Temp geschrieben werden. Leider weigert sich das PS so zu arbeiten, das merkwürdige, vor ein paar Tagen, hatte es noch funktioniert. Vielleicht sieht ja jemand was da falsch eingebunden wurde, würde mich freuen, unten steht der PS Fehler der zurückgegeben wird. Der Befehl selber einzeln in PS funktioniert jeweils

lg

Casi

Aufruf im Mainloop:

AutoIt

Case $AllDomPCButton
            Local $psCommand = 'Get-ADComputer -Filter "OperatingSystem -like ''*Windows 10*''" | Select-Object -ExpandProperty Name'
            ConsoleWrite("Generierter PowerShell-Befehl: " & $psCommand & @CRLF)
            ShowDomPCs($psCommand, 'alldompc.txt')

        Case $AllDomPCsWithAButton
            Local $psCommand = 'Get-ADComputer -Filter {Name -like "A*"} | Select-Object -ExpandProperty Name'
            ConsoleWrite("Generierter PowerShell-Befehl: " & $psCommand & @CRLF)
            ShowDomPCs($psCommand, 'alldompcA.txt')

die Funktion die dan aufgerufen wird:

AutoIt

Func ShowDomPCs($psCommand, $filename)
    Global $username, $password
    Local $outputFilePath = @TempDir & "\" & $filename

    ; Zeige den Splash-Screen
    Local $hSplash = ShowSplashBox("Bitte warten...")

    ; PowerShell-Befehl zum Speichern der Ergebnisse
    Local $fullPsCommand = 'powershell.exe -ExecutionPolicy Bypass -Command "' & $psCommand & ' | Out-File -FilePath "' & $outputFilePath & '" -Encoding utf8"'
  
    ; PowerShell-Befehl ausführen und die Ergebnisse anzeigen
    Local $iResult = RunWait(@ComSpec & ' /c ' & $fullPsCommand, "", @SW_HIDE)

    Sleep(3000)

    ; Schließe den Splash-Screen
    CloseSplashBox($hSplash)

    If FileExists($outputFilePath) Then
        Local $scriptDir = @ScriptDir
        FileCopy($outputFilePath, $scriptDir & "\" & $filename, 1)
        $hostFilePath = $scriptDir & "\" & $filename
        $ComputerList = FileRead($hostFilePath)
        $ComputerArray = StringSplit($ComputerList, @CRLF, 1)
        If $ComputerArray[1] = "" Then _ArrayDelete($ComputerArray, 1)

        ; Sortiere die Liste
        _ArraySort($ComputerArray, 0, 0, 0, 1)

        ; Lösche den Inhalt des Edit-Feldes
        GUICtrlSetData($Edit1, "")

        ; Füge die sortierte Liste zum Edit-Feld hinzu
        For $i = 1 To UBound($ComputerArray) - 1
            GUICtrlSetData($Edit1, $ComputerArray[$i] & @CRLF, 1)
        Next
    Else
        MsgBox(48, "Fehler", "Die Datei '" & $filename & "' wurde nicht erstellt.")
    EndIf
EndFunc

Alles anzeigen

PS Meldung:

Code

Get-ADComputer : Fehler beim Analysieren der Abfrage: "OperatingSystem -like Windows 10*" Fehlermeldung: "syntax
error" an folgender Position: "23".
In Zeile:1 Zeichen:1
+ Get-ADComputer -Filter 'OperatingSystem -like Windows 10*' | Select-O ...
+ ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
    + CategoryInfo          : ParserError: (:) [Get-ADComputer], ADFilterParsingException
    + FullyQualifiedErrorId : ActiveDirectoryCmdlet:Microsoft.ActiveDirectory.Management.ADFilterParsingException,Micr
   osoft.ActiveDirectory.Management.Commands.GetADComputer

**water**

Folgender Unterschied ist mir aufgefallen:
Du definierst den auszuführenden Befehl als "*Windows 10*" in der Fehlermeldung steht dann aber nur "Windows 10*" ohne den * am Beginn.
Kann es sein, dass PS Platzhalter wie von Dir verwendet nicht unterstützt?

P.S.
Alternativ könntest Du aber auch meine AD UDF verwenden.
Vorteile:

Läuft schneller (da die Umgebung für PS nicht eingerichtet werden muss)
Kann auf jedem PC ausgeführrt werden, da die AD Cmdlets nicht benötigt werden
Du brauchst Dich nicht mit temporären Dateien rumschlagen, die Ergebnisse stehen Dir direkt im Skript als Array, Variable etc. zur Verfügung.

casi4712

, danke für drin Feedback,

wie gesagt neulich bekam ich mit dem String noch die Ergebnisse. Aber vielen Dank für Deine UDF, werde ich mir mal anschauen. Trotzdem muss es doch einen Grund haben, ' Zeichen zuviel oder zu wenig oder "" , irgendwas in der Art muss es ja sein

lg und schönes Pfingstwochenende noch

**water**

Dein zweites query hat ein etwas anderes Format. Der Filter ist in {} eingebunden. Funktioniert dieser Filter?
Falls ja, dann musst Du den ersten Filter entsprechend anpassen.

P.S.
Hast Du dir das Verzeichnis in dem das Skript abgelegt ist, bereits angesehen? Dort liegen - bei entsprechender Einstellung von SciTE - ältere Versionen des Skripts. Auch im Unterverzeichnis "Backup" kannst Du fündig werden.

casi4712

der zweite hat noch nicht fubktioniert, der erste aber, obwohl nix verändert wurde, solitär in ps gehen beide, also dass was in temp geschrieben wird

**Schnuffel**

ich sehe das Problem in den doppelten Hochkomma

Code

'Get-ADComputer -Filter "OperatingSystem -like ''*Windows 10*''"

**Schnuffel**

die Fehlerbeschreibung zeigt doch ganz deutlich auf die Position, mit der der Parser ein Problem hat:

Code

Get-ADComputer : Fehler beim Analysieren der Abfrage: "OperatingSystem -like Windows 10*" Fehlermeldung: "syntax
error" an folgender Position: "23".
In Zeile:1 Zeichen:1
+ Get-ADComputer -Filter 'OperatingSystem -like Windows 10*' | Select-O ...
+ ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~

das Hochkomman nach Windows 10*'

gmmg

Ich würde auch die AD Variante bevorzugen.

Hier mal ein Beispiel:

AutoIt

#include <D:\scripte\AD_1.6.2.0_Functions\AD.au3> ;AD.au3 von Water -> Pfad muss angepasst werden
#include <Array.au3>


Dim $avArray [1]

_AD_Open()

$sOU = "OU=SiteOU,DC=Domainfti,DC=int" ;muss angepasst werden
$aObjects = _AD_GetObjectsInOU($sOU, "(objectcategory=Computer)", 2, "cn,operatingsystem,pwdlastset")
;$aObjects = _AD_GetObjectsInOU($sOU, "(&(objectclass=user)(name=*))", 2) ;, "sAMAccountName", "sAMAccountName")

If @error > 0 Then
    MsgBox(64, "", "Nichts gefunden")
Else

	For $i = 1 To $aObjects[0][0]
		;MsgBox(0,"", $aObjects[$i][1])
		$server = StringLeft ($aObjects[$i][1],14)
		;MsgBox(0,"",$server)
       IF $server = "Windows Server" Then
		   ;MsgBox(0,"",$aObjects[$i][0])
			_ArrayAdd($avArray, $aObjects[$i][0])
		EndIf

    Next
	_ArrayDisplay($avArray)
    _ArrayDisplay($aObjects)
EndIf

_AD_Close()

Alles anzeigen

Gruß Marcel

casi4712

tja keine Ahnung ob mit oder ohne zusätzliche ' ging so nicht, jetzt funktioniert es mit dieser Variante, wenn auch unschön.

AutoIt

   Case $AllDomPCsWithAButton
            ShowDomPCs('Get-ADComputer -Filter {Name -like "A*"} | Select-Object -ExpandProperty Name', 'alldompcA.txt')

        Case $AllLapButton
            ShowDomPCs('Get-ADComputer -Filter {Name -like "N*"} | Select-Object -ExpandProperty Name', 'alldompcLAP.txt')
            
            .
            .
  Func ShowDomPCs($sCmd, $filename)
    ; Splash-Screen anzeigen
    SplashTextOn("Splash", "Liste wird geholt !!", 300, 50, -1, -1, 33, "", 12)
    WinMove("Splash", "", (@DesktopWidth-300)/2, (@DesktopHeight-50)/2)
  $hostFilePath = @ScriptDir & "\lists\" & $fileName
    ; PowerShell-Skript vorbereiten
    Local Const $sKey32 = "HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\PowerShell\1\ShellIds\Microsoft.PowerShell"
    Local Const $sKey64 = "HKEY_LOCAL_MACHINE\SOFTWARE\Wow6432Node\Microsoft\PowerShell\1\ShellIds\Microsoft.PowerShell"
    Local Static $sKey = @CPUArch = 'X64' ? $sKey64 : $sKey32
    Local Static $sPSexe = RegRead($sKey, 'Path')
    Local $sPathTMP = StringFormat('%s\__%s%s%s%s%s%s%s.ps1', @TempDir, @YEAR, @MON, @MDAY, @HOUR, @MIN, @SEC, @MSEC)
    Local $fH = FileOpen($sPathTMP, 2 + 8 + 128)
    Local $outputFilePath = @TempDir & "\" & $filename
    ;Local $fullPsCommand = $sCmd & ' | Out-File -FilePath "' & $outputFilePath & '" -Encoding utf8'
Local $fullPsCommand = $sCmd & ' if ($OnlineComputers) {$OnlineComputers | Out-File -FilePath "' & $OutputFilePath & '" -Force } else {}' -Encoding utf8

FileWrite($fH, $fullPsCommand)
    FileClose($fH)

    ; PowerShell-Skript ausführen
    Local $sRun = StringFormat('%s -ExecutionPolicy UnRestricted -File %s', $sPSexe, $sPathTMP)
    Local $iPID = Run($sRun, @ScriptDir, @SW_HIDE)
    While ProcessExists($iPID)
        Sleep(350)
    WEnd
    FileDelete($sPathTMP)

    ; Überprüfen, ob die Datei erstellt wurde und keine zusätzlichen Leerzeilen enthält
    If FileExists($outputFilePath) Then
        Local $ComputerList = FileRead($outputFilePath)
        ; Entfernen Sie alle Leerzeilen und trimmen Sie die Whitespaces
        Local $ComputerArray = StringSplit(StringStripWS($ComputerList, 3), @CRLF, 1)
        If $ComputerArray[0] = 0 Then
            MsgBox(16, "Fehler", "Keine Computer gefunden.")
            SplashOff()
            Return False
        EndIf
        _ArraySort($ComputerArray, 0, 0, 0, 1) ; Sortiere die Liste

        ; Löschen Sie den Inhalt des Edit-Feldes und fügen Sie die sortierte Liste hinzu
        GUICtrlSetData($Edit1, "")
        For $i = 1 To $ComputerArray[0]
            If $ComputerArray[$i] <> "" Then
                GUICtrlSetData($Edit1, $ComputerArray[$i] & @CRLF, 1)
            EndIf
        Next

        FileCopy($outputFilePath, @ScriptDir & "\" & $filename, 1) ; 1 = Überschreibe bestehende Datei
    Else
        MsgBox(48, "Fehler", "Die Datei '" & $filename & "' wurde nicht erstellt.")
        SplashOff()
        Return False
    EndIf

    ; Splash-Screen schließen
    SplashOff()
    Return True
EndFunc

Alles anzeigen

ja Ad Variante klingt erst mal gut, aber soclhe Filterabfragen, da hab ich leider nichts zu gesehen, bei den Beispielen, bin ja gern bereit auch neues aufzunehmen.

lg und schönen Abend noch

casi4712

Respekt, ist ne tolle udf, dann nehme ich mal an wenn ich alle Rechner haben will die mit A beginnen, dann muss ich das so machen:

AutoIt

#include <AD.au3> ;AD.au3 von Water -> Pfad muss angepasst werden
#include <Array.au3>
#include <File.au3>

; Initialisiere das Array mit null Elementen, um Platz zu sparen
Local $avArray[0]

; Öffne die Verbindung zu Active Directory
_AD_Open()

; Definiere die OU (Organizational Unit) für die Suche
$sOU = "DC=lax,DC=berlin,DC=de" ;muss angepasst werden

; Hole die Objekte aus der OU, die mit "A" beginnen
$aObjects = _AD_GetObjectsInOU($sOU, "(objectcategory=Computer)", 2, "cn,operatingsystem,pwdlastset")

If @error > 0 Then
    MsgBox(64, "", "Nichts gefunden")
Else
   
    For $i = 1 To $aObjects[0][0]
        ; Hole den Computernamen
        $computerName = $aObjects[$i][0]

        ; Überprüfe, ob der Computername mit "A" beginnt
        If StringLeft($computerName, 1) = "A" Then
            ; Füge den Computernamen dem Array hinzu
            _ArrayAdd($avArray, $computerName)
        EndIf
    Next

    ; Zeige die Arrays an
    _ArrayDisplay($avArray, "Computers starting with 'A'")
    _ArrayDisplay($aObjects, "All AD Objects")
    
    ; Schreibe die Computernamen (erste Spalte) in eine Textdatei
    Local $hFile = FileOpen("computers.txt", 2) ; 2 = Schreibmodus 
    If $hFile = -1 Then
        MsgBox(16, "Fehler", "Konnte die Datei nicht öffnen.")
    Else
        For $i = 0 To UBound($avArray) - 1
            FileWriteLine($hFile, $avArray[$i])
        Next
        FileClose($hFile)
    EndIf
EndIf

; Schließe die Verbindung zu Active Directory
_AD_Close()

Alles anzeigen

Aber ist das auch mit folgendem Powershellscript so einfach möglich, dieses fragt zunächst sämtliche Rechner ab und erzeugt dann parallel jobs um hier zu überprüfen, ob diese derzeit an der Domäne sind, mit meiner Methode konnte ich das leider bislang nicht einbinden, ich nehme an es lag an der abschliessenden Bedingung:

Code

$ScriptDir = "C:\ActivePC"
$Computers = Get-ADComputer -Filter "Name -like 'A*'"
$Jobs = @()

$OutputFilePath = Join-Path -Path $ScriptDir -ChildPath "computers.txt"
if (Test-Path -Path $OutputFilePath) {
    Remove-Item -Path $OutputFilePath
}

foreach ($Computer in $Computers) {
    if ($Computer.Name -ne $null -and $Computer.Name -ne '') {
        $Jobs += Start-Job -ScriptBlock {
            param($Computer, $ScriptDir)
            if (Test-Connection -ComputerName $Computer.Name -Count 1 -Quiet) {
                $Computer.Name | Out-File -FilePath (Join-Path -Path $ScriptDir -ChildPath "computers.txt") -Append
            }
        } -ArgumentList $Computer, $ScriptDir
    }
}
$Results = $Jobs | ForEach-Object {
    $_ | Wait-Job | Receive-Job
}

$OnlineComputers = $Results | Where-Object { $_ -ne $null }
if ($OnlineComputers) {
    $OnlineComputers | Out-File -FilePath $OutputFilePath -Force
}

Alles anzeigen

so danke schonmal und ein schönes Wochenende

**water**

Du kannst in der LDAP Abfrage gleich nur die Computer filtern die mit A beginnen:

Code

; Hole die Objekte aus der OU, die mit "A" beginnen
$aObjects = _AD_GetObjectsInOU($sOU, "(&(objectcategory=Computer)(name=A*))", 2, "cn,operatingsystem,pwdlastset")

casi4712

ah ok, hab ichs wieder mal zu kompliziert gemacht, gibt es für diese UDF vielleicht eine Dokumentation, wäre zumindest interessant. Bezüglich meines Scriptteils was aktive PC finden soll, habe ich bislang folgendes, aber das hängt irgendie, obwohl das Powershell alleine funktioniert. Vielleicht sihet ja da jemand den Fehler:

AutoIt

.
.
Case $AllServerButton
            ShowDomPCs('Get-ADComputer -Filter * -Property Name,OperatingSystem | Where-Object { $_.OperatingSystem -like ''*Server*'' } | Select-Object -ExpandProperty Name', 'allServer.txt')

        Case $AugiasPCButton
           ShowDomPCs('Get-ADGroupMember -Identity "Augias-PC" -Recursive | Where-Object { $_.objectClass -eq ''computer'' } | Select-Object -ExpandProperty Name', 'augiasPC.txt')


Case $AllActivePCButton
		 Global Const $sScriptDir = @ScriptDir
		 Global Const $filename = "computers.txt"
         Global Const $sTempPSFile = @TempDir & "\temp.ps1"

         Global Const $sCMD = '$ScriptDir = "' & $sScriptDir & '"' & @CRLF & _
			'$Computers = Get-ADComputer -Filter "Name -like ''A*''"' & @CRLF & _
			'$Jobs = @()' & @CRLF & _
			'foreach ($Computer in $Computers) {' & @CRLF & _
			'    if ($Computer.Name -ne $null -and $Computer.Name -ne '''') {' & @CRLF & _
			'        $Jobs += Start-Job -ScriptBlock {' & @CRLF & _
			'            param($Computer, $ScriptDir)' & @CRLF & _
			'            if (Test-Connection -ComputerName $Computer.Name -Count 1 -Quiet) {' & @CRLF & _
			'                $Computer.Name | Out-File -FilePath (Join-Path -Path $ScriptDir -ChildPath "computers.txt") -Append' & @CRLF & _
			'            }' & @CRLF & _
			'        } -ArgumentList $Computer, $ScriptDir' & @CRLF & _
			'    } else {' & @CRLF & _
			'    }' & @CRLF & _
			'}' & @CRLF & _
			'$Results = $Jobs | ForEach-Object {' & @CRLF & _
			'    $_ | Wait-Job | Receive-Job' & @CRLF & _
			'}' & @CRLF & _
			'$OnlineComputers = $Results | Where-Object { $_ -ne $null }' & @CRLF & _
			'$OutputFilePath = (Join-Path -Path $ScriptDir -ChildPath "' & $Filename & '")'
		   ; 'if ($OnlineComputers) {' & @CRLF & _
		   ; '    $OnlineComputers | Out-File -FilePath $OutputFilePath -Force' & @CRLF & _
			;'} else {' & @CRLF & _
			;'}'

ShowDomPCs($sCMD, $FileName)
		.
		.
		Func ShowDomPCs($sCmd, $filename)
    ; Splash-Screen anzeigen
    SplashTextOn("Splash", "Liste wird geholt !!", 300, 50, -1, -1, 33, "", 12)
    WinMove("Splash", "", (@DesktopWidth-300)/2, (@DesktopHeight-50)/2)
    Local $outputFilePath = @ScriptDir & "\lists\" & $filename

    ; PowerShell-Skript vorbereiten
    Local Const $sKey32 = "HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\PowerShell\1\ShellIds\Microsoft.PowerShell"
    Local Const $sKey64 = "HKEY_LOCAL_MACHINE\SOFTWARE\Wow6432Node\Microsoft\PowerShell\1\ShellIds\Microsoft.PowerShell"
    Local Static $sKey = @CPUArch = 'X64' ? $sKey64 : $sKey32
    Local Static $sPSexe = RegRead($sKey, 'Path')
    Local $sPathTMP = StringFormat('%s\__%s%s%s%s%s%s%s.ps1', @TempDir, @YEAR, @MON, @MDAY, @HOUR, @MIN, @SEC, @MSEC)
    Local $fH = FileOpen($sPathTMP, 2 + 8 + 128)
    FileWrite($fH, $sCmd)
    FileClose($fH)

    ; PowerShell-Skript ausführen
    Local $sRun = StringFormat('%s -ExecutionPolicy UnRestricted -File %s', $sPSexe, $sPathTMP)
	Local $fullPsCommand = $sRun & ' if ($OnlineComputers) {$OnlineComputers | Out-File -FilePath "' & $OutputFilePath & '" -Force } else {}'

    Local $iPID = Run($sRun, @ScriptDir, @SW_HIDE)
		While ProcessExists($iPID)
			Sleep(350)
		WEnd
    FileDelete($sPathTMP)

    ; Überprüfen, ob die Datei erstellt wurde und keine zusätzlichen Leerzeilen enthält
    If FileExists($outputFilePath) Then
        Local $ComputerList = FileRead($outputFilePath)
        ; Entfernen Sie alle Leerzeilen und trimmen Sie die Whitespaces
        Local $ComputerArray = StringSplit(StringStripWS($ComputerList, 3), @CRLF, 1)
        If $ComputerArray[0] = 0 Then
            MsgBox(16, "Fehler", "Keine Computer gefunden.")
            SplashOff()
            Return False
        EndIf
        _ArraySort($ComputerArray, 0, 0, 0, 1) ; Sortiere die Liste

        ; Löschen Sie den Inhalt des Edit-Feldes und fügen Sie die sortierte Liste hinzu
        GUICtrlSetData($Edit1, "")
        For $i = 1 To $ComputerArray[0]
            If $ComputerArray[$i] <> "" Then
                GUICtrlSetData($Edit1, $ComputerArray[$i] & @CRLF, 1)
            EndIf
        Next

        FileCopy($outputFilePath, @ScriptDir & "\" & $filename, 1) ; 1 = Überschreibe bestehende Datei
    Else
        MsgBox(48, "Fehler", "Die Datei '" & $filename & "' wurde nicht erstellt.")
        SplashOff()
        Return False
    EndIf

    ; Splash-Screen schließen
    SplashOff()
   Return True
EndFunc

Alles anzeigen

lg und ein schönes Wochenende

**water**

Zitat von casi4712

gibt es für diese UDF vielleicht eine Dokumentation?

Die UDF kommt mit einer CHM Hilfe (analog zu AutoIt-Befehlen auch mit Beispielen).
Weitere Details zur UDF findest Du im engl. Wiki.

Wenn Du die Advanced Help installierst, dann bekommst Du per F1 (im SciTE-Editor) die Hilfe zu jenem AD-Befehl auf dem der Cursor gerade steht. Dies gilt für weitere UDFs von mir.
Steht der Cursor auf einem unbekannten Begriff, dann wird mit diesen Begriff die AutoIt-Hilfe aufgerufen.

casi4712

recht herzlichen Dank

**water**

Lt. Doku führt Test-Connection einen Ping aus.
Wenn Du die Foren (deutsches und englisches) durchsuchst, wirst Du einige Lösungen finden, wie gleichzeitig mehrere Hosts gepingt werden können.

**Musashi**

Zitat von water

Wenn Du die Foren (deutsches und englisches) durchsuchst, wirst Du einige Lösungen finden, wie gleichzeitig mehrere Hosts gepingt werden können.

Ja, z.B. https://www.autoitscript.com/forum/topic/15…ile-multi-ping/

casi4712

okidoki werde ich mir mal anschauen, macht natürlich nur Sinn wenn dass auch entsprechend parallel abegerabeitet wird, wie in meinem PS, sonst wird es wohl ewig dauern;)

lg und schönes Weekend

**water**

Das von Musashi empfohlene Skript kann in der Default-Einstellung bis zu 20 Hosts gleichzeitig anpingen.
Siehe:

Code

Local $MAX_PROCESS = 20 ; A maximum number of processes (25)

casi4712

okidoki dann weiss ich Bescheid, mir wuede immer gesagt dass in Autoit die Multitasking Fähigkeiten eher beschränlt sind...

lg

casi4712

Nichtsdestotrotz würde mich mal interessieren warum mit meinem Powershellansatz die txt datei nicht in das Temp verzeichnis geschrieben wird, die temp PS Datei alleine funktioniert jedenfalls:

AutoIt

Case $AllActivePCButton
    $FileName = "AllActivPC.txt"

    $sScript = _
        '$Computers = Get-ADComputer -Filter {Name -like ''A*'' -or Name -like ''N*''}' & @CRLF & _
        '$Jobs = @()' & @CRLF & _
        'foreach ($Computer in $Computers) {' & @CRLF & _
        '    if ($Computer.Name -ne $null -and $Computer.Name -ne '''') {' & @CRLF & _
        '        $Jobs += Start-Job -ScriptBlock {' & @CRLF & _
        '            param($Computer)' & @CRLF & _
        '            if (Test-Connection -ComputerName $Computer.Name -Count 1 -Quiet) {' & @CRLF & _
        '                $Computer.Name' & @CRLF & _
        '            }' & @CRLF & _
        '        } -ArgumentList $Computer' & @CRLF & _
        '    }' & @CRLF & _
        '}' & @CRLF & _
        '$Results = $Jobs | ForEach-Object {$_ | Wait-Job | Receive-Job}' & @CRLF & _
        '$OnlineComputers = $Results | Where-Object { $_ -ne $null }' & @CRLF & _
        '$OutputFilePath = "' & @TempDir & '\computers.txt"' & @CRLF & _
        'if ($OnlineComputers) {$OnlineComputers | Out-File -FilePath $OutputFilePath -Force} else {}'
    ExecutePowerShellScript($sScript, $FileName)
    .
    .
    
    
   Func ShowDomPCsActive($script, $FileName)
    ; Splash-Screen anzeigen
    SplashTextOn("Splash", "Liste wird geholt !!", 300, 50, -1, -1, 33, "", 12)
    WinMove("Splash", "", (@DesktopWidth-300)/2, (@DesktopHeight-50)/2)

    ; Define the path for the PowerShell script
    Local $PsScriptPath = @TempDir & "\getcomputers.ps1"
    Local $OutputFilePath = @ScriptDir & "\lists\" & $FileName

    ; Write the script content to the file
    Local $fH = FileOpen($PsScriptPath, $FO_OVERWRITE)
    If $fH = -1 Then
        MsgBox(16, "Error", "Failed to open the file for writing: " & $PsScriptPath)
        SplashOff() ; Splash-Screen schließen
        Return
    EndIf

    FileWrite($fH, $script)
    FileClose($fH)

    ; Run the PowerShell script and save the output to the specified file
    ;RunWait(@ComSpec & " /c powershell -ExecutionPolicy Bypass -File """ & $PsScriptPath & """ > """ & $OutputFilePath & """", @SystemDir, @SW_show)
 Local $command = 'powershell -ExecutionPolicy Bypass -File "' & @TempDir & '\getcomputers.ps1"'
	 ConsoleWrite("Generated Command: " & $command & @CRLF)
    RunWait($command, @TempDir, @SW_SHOW)
    ; Splash-Screen schließen
    SplashOff()

    ; Check if the output file was created
    If Not FileExists($OutputFilePath) Then
        MsgBox(16, "Error", "Failed to create the output file: " & $OutputFilePath)
        Return
    EndIf

    ; Read the content of the new file
    Local $ComputerList = FileRead($OutputFilePath)

    ; Sort the list
    Local $ComputerArray = StringSplit(StringStripWS($ComputerList, 3), @CRLF, 1)
    _ArraySort($ComputerArray, 0, 0, 0, 1) ; Sort the list

    ; Set the host file path to the new file
    $hostFilePath = $OutputFilePath

    ; Update the GUI with the sorted list
    GUICtrlSetData($Edit1, "")
    For $i = 1 To $ComputerArray[0]
        If $ComputerArray[$i] <> "" Then
            GUICtrlSetData($Edit1, $ComputerArray[$i] & @CRLF, 1)
        EndIf
    Next
EndFunc

Alles anzeigen

denke fehlt wieder nur ein '' oder so, vielleicht siehts ja jemand, denke das wär erst mal ok für mich

lg und schönen Sonntag