[Script] Retorna usuário logado em estação remota

[marceloleaes]

Script em VBS que retorna o usuário logado em uma estação remota. Só pode ser utilizado em ambientes com dominio , e a estação deve ser membro do dominio em questão. Salvar com extensão .vbs e executar. Informar o nome DNS da estação na dialog e ver o resultado.

Código: Selecionar todos

'
'Script para identificar quem está logado na estação remota
'
strComputer = InputBox("Informe o nome do micro que deseja saber quem está logado a este." & vbcrlf & "Por Exemplo: SRRS227")
Set objWMIService = GetObject("winmgmts:{impersonationLevel=impersonate}!\\" & strComputer & "\root\cimv2") 

Set colComputer = objWMIService.ExecQuery ("Select * from Win32_ComputerSystem")
For Each objComputer in colComputer
    Wscript.Echo "O usuário logado na " & strComputer & " é " & objComputer.UserName
Next