Hat echt keiner eine Idee? Gibts hier keinen, der sich mit XP auskennt/(auskennen will)?Wenn Du Admin-Privilegien auf dem entfernten System (Windows XP) hast, dann gehts so:
cscript user.vbs <computername>
oder:
cscript user.vbs 192.168.0.1
Option Explicit
'// Run Script
Main(WScript.Arguments(0))
Function Main(strComputer)
WScript.Echo RemoteComputerUser(strComputer, "<admin>", "<password>")
WScript.Quit(0)
End Function
Function RemoteComputerUser (strComputer, strUser, strPassword)
Dim objLocator
Dim wbemServices
Dim wbemObjectSet
Dim wbemObject
Dim str
On Error Resume Next
Set objLocator = CreateObject("WbemScripting.SWbemLocator")
If Len(strUser) > 0 And Len(strPassword) > 0 then
Set wbemServices = objLocator.ConnectServer(strComputer, , strUser, strPassword)
Else
Set wbemServices = objLocator.ConnectServer(strComputer)
End If
If Err.Number <> 0 Then
str = Err.Description
Exit Function
End If
Set wbemObjectSet = wbemServices.InstancesOf("Win32_ComputerSystem")
If Err.Number = 0 Then
For Each wbemObject in wbemObjectSet
str = str & wbemObject.UserName & vbCrLf
Next
Else
str = Err.Description
End If
If IsNull(str) = true Then
str = "No one logged on"
End If
RemoteComputerUser = str
End Function