Hey, who is logged on to the accounting computer on the third floor? Dunno?!!?
Now you don't have to wonder. This script will display the currently logged on user on a remote computer.

Copy and paste the following text into notepad and save it al LoggedOn.vbs

----------COPY EVERYTHING BELOW THIS LINE----------


On error resume next
strComputer = InputBox("Type in the name of the computer you want to query.")
If strComputer > "" Then
Set objWMIService = GetObject("winmgmts:" _
& "{impersonationLevel=impersonate}!\\" & strComputer & "\root\cimv2")
Set colComputer = objWMIService.ExecQuery _
("Select * from Win32_ComputerSystem")
For Each objComputer in colComputer
Wscript.Echo objComputer.UserName
Next

Else
Wscript.Quit
End If

Wscript.Quit




----------COPY EVERYTHING ABOVE THIS LINE----------



PLEASE MAKE SURE NO WORD WRAPPING IS HAPPENING IN YOUR NOTEPAD!!!


*Make sure you are an administrator to run this.


This information is provided "AS IS" with no warranties expressed or implied.