Inquiridor
identificação de usuario logado na rede

Pergunta
-
Todas as Respostas
-
Amigo,
Pode utilizar desse script que retornará o nome do usuário logado na máquina
'---------------------------------------------------------------------------------------------------
strcomputer = inputbox("Enter Computer Name or 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
'----------------------------------------------------------------------------------------------------------------
Copie e cole no bloco de notas e salve como nome_do_script.vbs
sds/Marcio Sousa -
Amigo, muito útil este script que vc postou acima. Obrigado!
Aproveitando, gostaria de fazer uma pergunta.
Você teria uma situação contrária?
Por exemplo: Tenho apenas o Login do usuário e preciso saber o número da máquina dele.
É possível?
Obrigado
Renato Bettini
-
Amigo,
Só não esqueça de marcar o post como útil.
Quanto a sua outra pergunta, eu não tenho um script não, porém uso um software chamado Look@LAN que faz uma varredura na rede e mostra o ip - usuário e outras informações
Espero ter ajudado.
sds/Marcio Sousa