Bom dia,
Tome conhecimento da ferramenta PSLOGGEDON.EXE (Ferramenta da Sysinternal)
http://technet.microsoft.com/pt-br/sysinternals/default.aspx
______________________________ // ____________//_____________________________
Tem uma outra sugestão : (Copie o script abaixo e salve na extensão .VBS, ao executar coloque o IP da máquina ou nome e o retorno do resultado é o login do usuário que está conectada na respectiva Máquina)
Copie tudo que está em Negrito
'COMEÇA AQUI
strcomputer = inputbox("Entre com o nome do computador ou IP")
if strcomputer = "" then
wscript.quit
else
'ping it!
Set objPing = GetObject("winmgmts:{impersonationLevel=impersonate}").ExecQuery _
("select * from Win32_PingStatus where address = '" & strcomputer & "'")
For Each objStatus in objPing
If IsNull(objStatus.StatusCode) or objStatus.StatusCode<>0 Then
'request timed out
msgbox(strcomputer & " did not reply" & vbcrlf & vbcrlf & _
"Please check the name and try again")
else
'who's there?
set objWMIService = GetObject("winmgmts:" & "{impersonationLevel=impersonate}!\\" & _
strComputer & "\root\cimv2")
Set colSettings = objWMIService.ExecQuery("Select * from Win32_ComputerSystem")
For Each objComputer in colSettings
msgbox("System Name: " & objComputer.Name & vbcrlf & "User Logged in : " & _
objcomputer.username & vbcrlf & "Domain: " & objComputer.Domain)
Next
end if
next
end if
'Script retirado do Forum Technet
'Todos Direitos Reservados
'TERMINA AQUI
