Listing 1: Excerpt from FindLogon.vbs 

' Connect to the LanmanServer service.
Set fso = GetObject("WinNT://" & servername(2) & "/Lanmanserver")
WScript.Echo userfullname & " logins to :"
' Iterate through sessions and obtain the computer names.
For Each session In fso.sessions
  If session.user = ntid Then
    WScript.Echo "Computer: " & session.Computer
  End If
Next