VBScript: XP only!: Find Computer by User Name

When I was working for "The helpdesk" a long time ago... I would always forget to write down the computer name and it seemed to be taking more time than it should just to get that info back... I sometimes called the end user... I was looking online and actually didn't find anything until I ran into an old classmate who had a huge script that he sent me, it was really awesome, filled with SUBS and whatnot.

Here's the bare necessity:

Dim inputStr, UserName, Domain, splitInput, sName, oArgs, Session

Dim oUser, userFullName, userHome, fService, LoggedOn, q, ss

'On Error Resume Next

q = Chr(34)

Domain = "Domain"

username = inputbox("Enter username: ")

Set oUser = GetObject("WinNT://" & Domain & "/" & UserName & ",user")

userFullName = oUser.FullName

userHome = oUser.HomeDirectory

sName = Split(userHome, "\")

Set fService = GetObject("WinNT://" & Domain & "/" & sName(2) & "/LanmanServer")

Set ss = fService.Sessions

For Each Session In ss

If LCase(Session.User) = LCase(UserName) Then

LoggedOn = LoggedOn & vbcr & Session.Computer

End If

Next

If LoggedOn = "" then

msgbox "User " & q & UserName & q & " (" & userFullName & ") is not logged on.", 64, "Query:"

Else

MsgBox "User " & q & UserName & q & " (" & userFullName & ") logged on to the following workstations: " & vbcr & vbcr & LoggedOn, , "Query:"

End If

One of the cool things about this script is that it doesn't return the first one it finds, it returns a list of them.

So you may find a bunch of Citrix Servers.  I have found it to be flaky at times and have never been able to get this to work with Windows 7...  I think because of the LanmanServer part.

Anyways, enjoy!