none
Informações do ultimo logon RRS feed

  • Pergunta

  • Boa tarde pessoal.

     

    Gostaria de saber quem poderia me ajudar com a seguinte situação:

     

    Fiz um programinha para gerar uma mensagem no logon dos usuários. Nessa mensagem necessito inserir o nome do usuario que esta logando (tipo: Bem vindo "username"), depois informar o hora e data do ultimo logon desse usuário.

     

    O nome do usuário eu consegui pegando nos registros do Windows XP ou Vista. Mas nao consigo pegar a informacao de data e hora desse usuario que esta se logando. Talvez eu precisaria jogar essa informação para um arquivo de texto para esse programa pegar esse valor? Como eu faria?

     

    Informações adicionais: Servidor Windows 2003, clientes: Windows 2000, XP e Vista.

    Cabe salientar que sou iniciante com scripts Windows.

     

    De antemão agradeço.

     

    Tiago Dias Generoso

    terça-feira, 15 de abril de 2008 17:54

Respostas

  • Para criar um arquivo com o ultimo logon eu uso este script.

    tente adapta-lo.

    abraço.

     

    Code Snippet

    On Error Resume Next

    Set objFS = CreateObject("Scripting.FileSystemObject")
    'local da criação do arquivo
    Set objNewFile = objFS.CreateTextFile("c:\temp\Last.logon.userlogin.txt")
    objNewFile.WriteLine "Header Information -- Date: " & Now()
    'nome do servidor
    sEnterDCs = "DC.suneast.com.br"
    sObjects = Split(sEnterDCs, ",")
    Set oDomain = GetObject("WinNT://" & sObjects(0))
    oDomain.Filter = Array("User")
    WScript.Echo "Showing last login times of accounts from: " & oDomain.Name & vbNewLine

    For Each oDomainItem In oDomain
      sUsrLogin = oDomainItem.LastLogin
      If UBound(sObjects) >= 1 Then
        For ii = 1 To UBound(sObjects)
          Set oUsr = GetObject("WinNT://" & sObjects(ii) & "/" & oDomainItem.Name & ",user")
          If oUsr.LastLogin > sUsrLogin Then sUsrLogin = oUsr.LastLogin
        Next
      End If
      objNewFile.WriteLine "Username:; " & Left(oDomainItem.Name & Space(22),22) & "Last login:; " & FormatDateTime(sUsrLogin)

    Next

    objNewFile.Close
    WScript.Echo VbCrLf & "Script is complete."

     

     

    • Marcado como Resposta Richard Juhasz sexta-feira, 11 de maio de 2012 17:22
    quarta-feira, 16 de abril de 2008 19:56