Difference between revisions of "How to discover the user logged in a remote workstation"

From Tech-Wiki
Jump to: navigation, search
Line 15: Line 15:
 
     Wscript.Echo "Usuário =" &objComputer.UserName
 
     Wscript.Echo "Usuário =" &objComputer.UserName
 
Next
 
Next
</nowiki>
 

Revision as of 16:20, 14 July 2016


This VBScript will connect to the remote workstation using WMI and query which user is logged on.

strComputer=InputBox("Nome or computer IP address")
'WScript.echo "Hostname: " &strComputer
'WScript.echo "Checking..."
Set objWMIService = GetObject("winmgmts:{impersonationLevel=impersonate}!\\" & strComputer & "\root\cimv2") 

Set colComputer = objWMIService.ExecQuery _
    ("Select * from Win32_ComputerSystem")
 
For Each objComputer in colComputer
    Wscript.Echo "Usuário =" &objComputer.UserName
Next