Comando para descobrir usuário logado

[barbinha]

Pessoal,

alguém sabe de algum comando onde poderia descobrir em qual máquina o usuário está logado na rede.

Se eu tiver o nome de usuário, com o comando nbtstat -a nomeMaquina consigo obter o nome de usuário logado, mas eu preciso justamente o contrário, eu só tenho o nome de usuário e preciso saber a máquina em que ele está.

Obrigada.

[almir74]

tb preciso disso, você descobriu ?

Grato

almir

Pessoal,

alguém sabe de algum comando onde poderia descobrir em qual máquina o usuário está logado na rede.

Se eu tiver o nome de usuário, com o comando nbtstat -a nomeMaquina consigo obter o nome de usuário logado, mas eu preciso justamente o contrário, eu só tenho o nome de usuário e preciso saber a máquina em que ele está.

Obrigada.

[NeoqJav]

:: software microsoft psloggedon v1.34

:: http://technet.microsoft.com/en-us/sysinternals/bb897545.aspx

:: http://download.sysinternals.com/Files/PsTools.zip

Usage: psloggedon [- ] [-l] [-x] [\\computername | username]

- Displays the supported options and the units of measurement used for output values.

-l Shows only local logons instead of both local and network resource logons.

-x Don't show logon times.

\\computername Specifies the name of the computer for which to list logon information.

username If you specify a user name PsLoggedOn searches the network for computers to which that user is logged on. This is useful if you want to ensure that a particular user is not logged on when you are about to change their user profile configuration.

----------------------------------------------------------------------

Agora sem usar nenhum software... pode-se fazer uma gambiarra com o VBscript abaixo, rodando ele em um loop com todos os IPs da rede [ no lugar de (".") ]:

WScript.Echo GetUserName(".")

Function GetUserName(strComputer)

Dim objWMIService : Set objWMIService = GetObject("winmgmts:\\" & _

strComputer & "\root\cimv2")

Dim colProcesses : Set colProcesses = objWMIService.ExecQuery(_

"Select * From Win32_Process Where Name = 'explorer.exe'")

Dim objProcess, strUserName, strDomainName

For Each objProcess In colProcesses

objProcess.GetOwner strUserName, strDomainName

Next

GetUserName = strDomainName & "\" & strUserName

End Function