Listing 1: WhoLogon.vbs

On Error Resume Next
If WScript.Arguments.Count <> 1 Then
 WScript.Echo "Syntax Error. Correct syntax is:"
 WScript.Echo "cscript whologon <machine name>"
 WScript.Quit
End If

strComputer = WScript.Arguments(0)
WScript.Echo "=========================================="
WScript.Echo "Computer: " & strComputer
WScript.Echo "=========================================="

' BEGIN CALLOUT A
Set objWMIService = GetObject("winmgmts:\\" & strComputer & _
 "\root\CIMV2")
Set colItems = _
 objWMIService.ExecQuery("SELECT * FROM Win32_ComputerSystem")
For Each objItem In colItems
 WScript.Echo "UserName: " & objItem.UserName
 WScript.Echo
Next
' END CALLOUT A