Aktive AD PC scannen

Function TestTCP { Param($address, $port, $timeout=2000)
    $socket=New-Object System.Net.Sockets.TcpClient
    try {
        $result=$socket.BeginConnect($address, $port, $NULL, $NULL)
        if (!$result.AsyncWaitHandle.WaitOne($timeout, $False)) {
            throw [System.Exception]::new('Connection Timeout')  
        }
        $socket.EndConnect($result) | Out-Null
        $socket.Connected
    }
    finally {
        $socket.Close()
    }
}

$localdir="/data/ftp/"  

$rsync_job = Get-ChildItem -Path $backupLoc -Filter "*.OK" | ForEach-Object -Parallel {    

   try { 
         $dirExists = "$using:localdir$VMname"  
         } catch {}

} -ThrottleLimit 4 -AsJob

$rsync_job | Wait-Job

$rsync_job.ChildJobs | ForEach-Object { $_ | Select-Object JobStateInfo,Id,PSBeginTime,PSEndTime,Output,Error,Warning,Information,State | Out-File -FilePath "/home/immuftp/jobchild.txt" -Append}  

$LastExitCode 

ping LastAdministrator.de
$LastExitCode 

Ping-Anforderung konnte Host "LastAdministrator.de" nicht finden. Überprüfen Sie den Namen, und versuchen Sie es erneut.  
1

Get-ADComputer -Filter {Name -like 'A*' -or Name -like 'N*'} | foreach-object -ThrottleLimit 10 -Parallel {  
    [pscustomobject]@{
        Hostname = $_.DNSHostName
        Online = [System.Net.Networkinformation.Ping]::new().Send($_.DNSHostName,200).Status -eq 'Success'  
    }
} | ? Online | Select-object -ExpandProperty Hostname | set-content .\online.txt

$hosts = Get-ADComputer -Filter {Name -like 'A*' -or Name -like 'N*'} | Select-Object -ExpandProperty DNSHostName  
$OutputFilePath = "$PSScriptRoot\computers.txt"  

# ping all in parallel, hostname = index
$tasks = @{}
foreach ($h in $hosts) { $tasks[$h] = [System.Net.NetworkInformation.Ping]::new().SendPingAsync($h) }

# wait for all pings to complete
[Threading.Tasks.Task]::WaitAll()

# only need hostname and online/offline
$pingresult = foreach ($h in $hosts) {
    $res = $tasks[$h].Result
    [PSCustomObject]@{
        Online  = $res.Status -eq "Success"  
        Hostname = $h
    }
}

# write online host names to file
$pingresult | Where-Object Online -eq $true | Select-Object -ExpandProperty HostName | Out-File $OutputFilePath -Force

On Error Resume Next
SetLocale("de-de")  

Set objShell = WScript.CreateObject("WScript.Shell")   
Set objFSO = CreateObject("Scripting.FileSystemObject")  

sSystemRoot = objShell.ExpandEnvironmentStrings("%SystemRoot%")  

CommandLine = """" & sSystemRoot & "\System32\WindowsPowerShell\v1.0\powershell.exe" & """" & " -executionpolicy Unrestricted -File " & """" & "C:\test3543.ps1" & """"  
'wscript.echo CommandLine   
objShell.run(CommandLine),0,false 

cscript.exe "\\Servername\Share\script.vbs"