List User Logged On To A Remote Computer

By | August 10, 2006

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.

Leave a Reply

Your email address will not be published. Required fields are marked *