Aktuell angemeldete User und Rechnernamen im Netzwerk ermitteln

 WMIC /NODE: xxx.xxx.xxx.xxx COMPUTERSYSTEM GET USERNAME 

cls
function Send-Ping([string]$device,[int]$delay){
    $ping = New-Object System.Net.NetworkInformation.Ping
    try{
        if($ping.Send($device,$delay).Status -ne "Success"){  
            return $false
        }else{
            return $true
        }
    }catch{return $false}
}

$rngStart = Read-Host "Geben sie die Start-IP ein (bsp. 192.168.1.10)"  
$rngEnd = Read-Host "Geben sie die End-IP ein (bsp. 192.168.1.50)"  
$mS = [regex]::Match($rngStart,'^(\d+\.\d+\.\d+\.)(\d+)')  
$mE = [regex]::Match($rngEnd,'^(\d+\.\d+\.\d+\.)(\d+)')  
$subnet = $mS.Groups[1]
$start = [int]$mS.Groups[2].Value
$end = [int]$mE.Groups[2].Value

write-host 'Ermittle den Online-Status der Rechner ...' -ForegroundColor Green  
$computer_status = @()
$computers = $start..$end | %{
    $computer = "$subnet$_"  
    Write-Progress -Activity "Status der Rechner ermitteln" -Status "Aktuelle IP: $computer" -PercentComplete ((($_ - $start)/($end - $start))*100)  
    
    if (Send-ping $computer 200){
        $user = ""  
        try{
            $user = gwmi Win32_ComputerSystem -ComputerName $computer -EA Stop | select -Expand Username
            if (!$user){
                $user= '(Fehler bei der Abfrage)'  
            }
        }catch{
            $user = '(Fehler bei der Abfrage)'  
        }
        $computer_status += New-Object PSObject -Property @{Computer=$computer;Status='Online';Angemeldet=$user}  
    }else{
        $computer_status += New-Object PSObject -Property @{Computer=$computer;Status='Offline'}  
    }
    
}
write-host "`n$('='*30)`nStatusübersicht:`n$('='*30)" -ForegroundColor Green  
$computer_status | select Computer,Status,Angemeldet | ogv

$hosts = Get-ADComputer -Filter {enabled -eq "true"}  | Sort-Object -Property Name  | Select-Object -ExpandProperty Name  
foreach ($h in $hosts) { $tasks[$h] = [System.Net.NetworkInformation.Ping]::new().SendPingAsync($h) }

[Threading.Tasks.Task]::WaitAll()

$pingresult = foreach ($h in $hosts) {
    $res = $tasks[$h].Result
    [PSCustomObject]@{
        Online  = $res.Status -eq "Success"  
        Address = $h
    }
}

$result = @()
$totalCount = ($pingresult | Measure-Object).Count
$onlineCount = ($pingresult | Where-Object online -eq $true | Measure-Object).Count
$processedCount = 0
$pingresult | ForEach-Object {
    if ($_.Online) {
        $script:sName = $_.address
        $completed = [math]::Round($processedCount / $onlineCount * 100)

        Write-Progress -Activity "Suche eingeloggte Benutzer" -Status "$onlineCount von $totalCount Computer online. Prüfe $script:sName ($processedCount/$onlineCount)" -PercentComplete $completed  

        try {
            $quserresult = quser "/server:$($_.address)"2>&1  

            $quserresult | Select-Object -Skip 1 | ForEach-Object {
     
                $a = $_.trim() -replace '\s+', ' ' -replace '>', '' -split '\s'  
                If ($a[2] -like '*Getr*') {  
         
                    $array = ([ordered]@{
                            'User'     = $a[0]  
                            'Computer' = $script:sName  
                            'Date'     = $a[4]  
                            'Time'     = $a[5..6] -join ' '  
                        })
         
                    $result += New-Object -TypeName PSCustomObject -Property $array
                }
         
                else {
         
                    $array = ([ordered]@{
                            'User'     = $a[0]  
                            'Computer' = $script:sName  
                            'Date'     = $a[5]  
                            'Time'     = $a[6..7] -join ' '  
                        })
         
                    $result += New-Object -TypeName PSCustomObject -Property $array
                }

            }

        }
        catch {
            write-host $Error[0]
        }
        $processedCount++
       

    }
    
}
Write-Progress -Activity "Suche eingeloggte Benutzer" -Status "Fertig" -Completed  

Write-Output $result

Get-ADComputer : Die Benennung "Get-ADComputer" wurde nicht als Name eines Cmdlet, einer Funktion, einer Skriptdatei oder eines ausführbaren Programms erkannt.   
Überprüfen Sie die Schreibweise des Namens, oder ob der Pfad korrekt ist (sofern enthalten), und wiederholen Sie den Vorgang.
In Zeile:1 Zeichen:10
+ $hosts = Get-ADComputer -Filter {enabled -eq "true"}  | Sort-Object - ...  
+          ~~~~~~~~~~~~~~
    + CategoryInfo          : ObjectNotFound: (Get-ADComputer:String) [], CommandNotFoundException
    + FullyQualifiedErrorId : CommandNotFoundException