none
Script LastLogon no AD RRS feed

  • Pergunta

  • Pessoal,

    Estou precisando de um script que faça uma querie no AD e retorne as seguintes informações:

    Logon Name
    Last login
    Full Name
    Status na Rede Habilitado ou Desabilitado
    Data de Criação
    Data de Alteração
    Descrição da Conta
    Ultimo Set de Senha
    E-mail
    Data de Expiracao
    Gestor
    Empresa
    Depto  

    Tenho o script abaixo onde traz somente o LastLogon, precisaria dos demais campos acima no mesmo script. Vcs poderiam me ajudar?

    Option Explicit
    On Error Resume Next
    Dim FileSys, WrLines, DomainName, oDomain, oDomainItem

    DomainName = "xxxx.com"
    lastdate = "31/12/2007"

    Set FileSys = CreateObject("Scripting.FileSystemObject")
    Set WrLines = FileSys.CreateTextFile("stf01.txt", True)

    WrLines.WriteLine("Logon Name,Last login,Full Name")

    Set oDomain = GetObject("WinNT://" & DomainName)
    For Each oDomainItem in oDomain
    If oDomainItem.Class = "User" AND oDomainItem.LastLogin > lastdate Then
    WrLines.WriteLine(oDomainItem.Name & "," & oDomainItem.LastLogin & "," & oDomainItem.FullName)
    End If
    Next

    WrLines.Close

    Obrigado

    quarta-feira, 16 de dezembro de 2009 20:57

Respostas

  • Pessoal,

    Estou precisando de um script que faça uma querie no AD e retorne as seguintes informações:

    Logon Name  
    Last login  
    Full Name  
    Status na Rede Habilitado ou Desabilitado
    Data de Criação  
    Data de Alteração  
    Descrição da Conta  
    Ultimo Set de Senha  
    E-mail  
    Data de Expiracao  
    Gestor  
    Empresa  
    Depto  

    Tenho o script abaixo onde traz somente o LastLogon, precisaria dos demais campos acima no mesmo script. Vcs poderiam me ajudar?

    Option Explicit
    On Error Resume Next
    Dim FileSys, WrLines, DomainName, oDomain, oDomainItem

     

    DomainName = "xxxx.com"
    lastdate = "31/12/2007"

    Set FileSys = CreateObject("Scripting.FileSystemObject")
    Set WrLines = FileSys.CreateTextFile("stf01.txt", True)

    WrLines.WriteLine("Logon Name,Last login,Full Name")

    Set oDomain = GetObject("WinNT://" & DomainName)
    For Each oDomainItem in oDomain
    If oDomainItem.Class = "User" AND oDomainItem.LastLogin > lastdate Then
    WrLines.WriteLine(oDomainItem.Name & "," & oDomainItem.LastLogin & "," & oDomainItem.FullName)
    End If
    Next

    WrLines.Close

    Obrigado


    Veja se ajuda...

    Poste os resultados e se ultil classifique...

    Set WSHNetwork = WScript.CreateObject("WScript.Network")
    Dim struser, objdomain, objcomputer
    Dim fso, MyFile, target_File

    Set objdomain = GetObject("WinNT://*****domain name*****t")

    Set fso = CreateObject("Scripting.FileSystemObject")
    struser = inputbox("Please type in the users logon","Logon", "logon")

    Set fsoObject = WScript.CreateObject("Scripting.FileSystemObject")
    Set wshell = wscript.createobject("wscript.shell")

    desktop = wshell.specialfolders("desktop")
    target_File = desktop & "\user_details.txt"

    Set UserObj = GetObject("WinNT://connet/" & strUser )
    Set fso = CreateObject("Scripting.FileSystemObject")
    Set MyFile = fso.CreateTextFile(TextF, True)

    Open_My_File_Write()
    open_File.Writeline UserObj.fullname
    open_File.Writeline UserObj.name
    open_File.Writeline UserObj.description
    open_File.Writeline UserObj.LoginScript
    open_File.Writeline UserObj.accountdisabled
    open_File.Writeline UserObj.IsAccountLocked
    open_File.Writeline UserObj.homedirectory
    open_File.Writeline UserObj.profile
    open_File.Writeline UserObj.LastLogin
    open_File.Writeline UserObj.PasswordExpirationDate
    open_File.Writeline
    Close_My_File()

    Set UserObj = Nothing

    Function Open_My_File_Write()
    If (fsoObject.FileExists(target_File)) Then
    Set open_File = fsoObject.OpenTextFile(target_File, 8)
    'msgbox "file exists"
    Else
    Set open_File = fsoObject.OpenTextFile(target_File, 2, "True")
    'msgbox "file not exist"
    End If
    End Function

    Function Close_My_File()
    open_File.Close()
    End Function

    []s,

    " Qm tem boca vai a roma, meu fogão tem 6 e não saiu da cozinha ainda"
    quinta-feira, 17 de dezembro de 2009 11:16