Powershell User in Netz abfragen

Hoi Zusammen

Komme nicht weiter, mir fehlt noch die Anzeige des aktiven Username.

Das Makro zeigt schön, welche Maschinenname unter welcher IP läuft. Schön ware auch, wenn
der aktuelle Username pro Maschine angezeigt würde.

Kann mir bitte jemand helfen?

LG
Albin63

$path = ".\results.xls"

$objExcel = new-object -comobject excel.application

if (Test-Path $path)
{
$objWorkbook = $objExcel.WorkBooks.Open($path)
$objWorksheet = $objWorkbook.Worksheets.Item(1)
}

else {
$objWorkbook = $objExcel.Workbooks.Add()
$objWorksheet = $objWorkbook.Worksheets.Item(1)
}

$objExcel.Visible = $True

Add Header####

$objWorksheet.Cells.Item(1, 1) = "MachineIP"
$objWorksheet.Cells.Item(1, 2) = "Result"
$objWorksheet.Cells.Item(1, 3) = "HostName"
$objWorksheet.Cells.Item(1, 4) = "UserName:"

$machines = gc c:\temp\machinelist.txt
$count = $machines.count

$row=2

$machines | foreach-object{
$ping=$null
$hname =$null
$hname2 =$null
$machine = $_
$user = $_
$ping = Test-Connection $machine -Count 1 -ea silentlycontinue

if($ping){

$objWorksheet.Cells.Item($row,1) = $machine
$objWorksheet.Cells.Item($row,2) = "UP"


$hname = [System.Net.Dns]::GetHostByAddress($machine).HostName
$hname = [System.Net.Dns]::GetHostByAddress($user).HostName


#$hname2 = [System.Security.Principal.WindowsIdentity]::GetCurrent($username).Name

$objWorksheet.Cells.Item($row,3) = $hname
#$objWorksheet.Cells.Item($row,4) = $hname2


$row++}
else {

$objWorksheet.Cells.Item($row,1) = $machine
$objWorksheet.Cells.Item($row,2) = "DOWN"
#$objWorksheet.Cells.Item($row,4) = $username

$row++}
}
#

(gwmi Win32_Computersystem -Computer $machine).Username

$objWorksheet.Cells.Item($row,4).Value2 = (gwmi Win32_Computersystem -Computer $machine).Username