none
Descobrindo quem está logado na estação RRS feed

Respostas

  • Modo rápido de uma linha no CMD:

    wmic /node:maquina computersystem get username

    Modo rápido no PowerShell

     Get-WmiObject win32_computersystem -computer maquina | format-list username

    ou ainda

    gwmi win32_computersystem -comp maquina | fl username


    []s,

    --
    Vinicius Canto
    MVP Admin Frameworks
    Blog sobre scripting: http://viniciuscanto.blogspot.com
    quinta-feira, 4 de setembro de 2008 13:22
    Moderador

Todas as Respostas

  • Olá Renato, blza ?

     

    Primeiro marque o post como util caso o mesmo tenha ajudado.

     

    Segue abaixo o script, salve como vbs.

     

     

    strComputer = "atl-ws-o1"
    Set objWMIService = GetObject("winmgmts:" _
        & "{impersonationLevel=impersonate}!\\" & strComputer & "\root\cimv2")

    Set colComputer = objWMIService.ExecQuery _
        ("Select * from Win32_ComputerSystem")
     
    For Each objComputer in colComputer
        Wscript.Echo "Logged-on user: " & objComputer.UserName
    Next

     

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

     

    Fonte: http://www.cruto.com/resources/vbscript/vbscript-examples/desktop/logon/List-the-User-Logged-on-to-a-Remote-Computer.asp

     

    Altere o parâmetro destacado em vermelho pelo nome da estação que você quer.

     

    Att.

     

    Leonardo Duarte

    quinta-feira, 4 de setembro de 2008 12:36
  • Modo rápido de uma linha no CMD:

    wmic /node:maquina computersystem get username

    Modo rápido no PowerShell

     Get-WmiObject win32_computersystem -computer maquina | format-list username

    ou ainda

    gwmi win32_computersystem -comp maquina | fl username


    []s,

    --
    Vinicius Canto
    MVP Admin Frameworks
    Blog sobre scripting: http://viniciuscanto.blogspot.com
    quinta-feira, 4 de setembro de 2008 13:22
    Moderador
  • Renato,

    você pode descrever de que forma você vai utilizar isso? A pergunta ficou meio vaga.

    Se for local basta o óbvio Ctrl+Alt+Del e ele lista o usuário atual.
    Remotamente você pode usar o nbtstat no DOS (nbtstat -A endereço_IP) .
    Se for para efeitos de auditoria recomendo utilizar um software para tal, salvando os devidos arquivos de log ou criando uma opção de auditoria direto no seu domínio salvando no Event viewer.
    quinta-feira, 4 de setembro de 2008 19:46
  • Pode usar também o seguinte script, neste não precisa editar para colocar o host, neste tem um input:

     

    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

    'cleanup
    set objwmiservice = nothing
    set colsettings = nothing
    set objping = nothing

     

    sds

    terça-feira, 30 de setembro de 2008 14:31