How to discover the user logged in a remote workstation

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