none
Programa para mostrar último usuário conectado RRS feed

  • Pergunta

  • Pessoal,

    Alguém  tem algum script ou programa que mostre o último usuário logado na máquina? Quando estagiei na SRF havia um programa que mostrava essas informações (login, hora do ultimo acesso, etc.) quando o usuário conectava no domínio.
    quinta-feira, 24 de setembro de 2009 19:53

Respostas

  • Olá,

    Dá uma olhada no script abaixo:

    Set ADSysInfo = CreateObject("ADSystemInfo")
    Set objUser = GetObject("LDAP://" & ADSysInfo.UserName)
    Set objDate = objUser.Get("lastLogon")
    lngHigh = objDate.HighPart
    lngLow = objDate.LowPart

    If (lngLow < 0) Then
       lngHigh = lngHigh + 1
    End If

    lngDate = #1/1/1601# + (((lngHigh * (2 ^ 32)) _
    + lngLow) / 600000000 - lngAdjust) / 1440

    dtmDate = CDate(lngDate)


    wscript.Echo ObjUser.Name & " Ultimo logon " &  dtmDate



    Tem esse link também que é interessante:

    http://www.experts-exchange.com/Programming/Languages/Visual_Basic/Q_21495615.html


    Até mais,

    Jesiel

    Obs.: Se útil, classifique

    • Marcado como Resposta Daniel S. Silva quarta-feira, 30 de setembro de 2009 12:41
    quinta-feira, 24 de setembro de 2009 20:10