none
Script com data de geração RRS feed

  • Pergunta

  • Tenho um script que gera a lista dos usuarios,descrição e logon do AD.

    Gostaria de add no script a data de geração desse arquivo, abaixo segue script:

     

    Set objNetwork = CreateObject("WScript.Network")
    Set objExcel = CreateObject("Excel.Application")

    objExcel.Visible = True
    objExcel.Workbooks.Add
    intRow = 2


    objExcel.Cells(1, 1).Value = "Usuario de rede"
    objExcel.Cells(1, 2).Value = "Nome Completo"
    objExcel.Cells(1, 3).Value = "Descrição"
    objExcel.Cells(1, 4).Value = "Email"
    objExcel.Cells(1, 5).Value = "Conta Desabilitada?"

    'strDomain = InputBox ("Digite o dominio, ex.: dominio.com.br")
    strDomain = objNetwork.UserDomain
    Set DomObj = GetObject("WinNT://" & strDomain )
    DomObj.Filter = Array("User")
    For Each objUser In DomObj

     UserPath = GetUserPath(objUser.Name)
     Set objUserLDAP = getobject(UserPath)
        objExcel.Cells(intRow, 1).Value = objUserLDAP.sAMAccountName
        objExcel.Cells(intRow, 2).Value = objUserLDAP.DisplayName
        objExcel.Cells(intRow, 3).Value = objUserLDAP.Description
        objExcel.Cells(intRow, 4).Value = objUserLDAP.mail
        objExcel.Cells(intRow, 5).Value = objUserLDAP.AccountDisabled
        intRow = intRow + 1

    Next

    objExcel.Range("A1:E1").Select
    objExcel.Selection.Interior.ColorIndex = 19
    objExcel.Selection.Font.ColorIndex = 11
    objExcel.Selection.Font.Bold = True
    objExcel.Cells.EntireColumn.AutoFit
     
    MsgBox "Concluído"

    Function getUserPath(byval sUserName)
        set cmd=createobject("ADODB.Command")
        set cn=createobject("ADODB.Connection")
        set rs=createobject("ADODB.Recordset")
      
        cn.open "Provider=ADsDSOObject;"
      
        cmd.commandtext = "SELECT adspath from 'LDAP://" & getnc & _
                  "' WHERE objectCategory = 'User' and sAMAccountName = '" & sUserName & "'"
        cmd.activeconnection = cn
      
        set rs = cmd.execute
      
        if rs.bof <> true and rs.eof<>true then
            getUserPath=rs(0)
        else
            getUserPath = ""
        end if
        cn.close

    end function


    function getNC
        set objRoot=getobject("LDAP://RootDSE")
        getNC=objRoot.get("defaultNamingContext")
    end function


    MCP-W2K3/MCDST/MCSA SE A RESPOSTA FOR UTIL, CLASSIFIQUE-A!
    quarta-feira, 13 de abril de 2011 12:02

Respostas

  • Gustavo boa tarde,

    Como voce nao disse onde você gostaria que fosse gravada a data entao coloquei na ultima coluna, inclua a linha em negrito no seu codigo.

     objExcel.Cells(1, 5).Value = "Conta Desabilitada?"
    <strong> objExcel.Cells(1, 6).Value = Now()
    </strong> 
    'strDomain = InputBox ("Digite o dominio, ex.: dominio.com.br")
     strDomain = objNetwork.UserDomain
    
    Abraços espero ajudar.


    Edson Matias Fagundes Junior - (Nioks)
    MCP, MCTS: 2008, MCTS:MBS
    Se a resposta for valida por favor vote como útil.
    quarta-feira, 10 de agosto de 2011 18:28

Todas as Respostas

  • Gustavo boa tarde,

    Como voce nao disse onde você gostaria que fosse gravada a data entao coloquei na ultima coluna, inclua a linha em negrito no seu codigo.

     objExcel.Cells(1, 5).Value = "Conta Desabilitada?"
    <strong> objExcel.Cells(1, 6).Value = Now()
    </strong> 
    'strDomain = InputBox ("Digite o dominio, ex.: dominio.com.br")
     strDomain = objNetwork.UserDomain
    
    Abraços espero ajudar.


    Edson Matias Fagundes Junior - (Nioks)
    MCP, MCTS: 2008, MCTS:MBS
    Se a resposta for valida por favor vote como útil.
    quarta-feira, 10 de agosto de 2011 18:28
  • Ola Gustavo conseguiu testar, funcionou?

     

    Abraços

     


    Edson Matias Fagundes Junior - (Nioks)
    MCP, MCTS: 2008, MCTS:MBS
    Se a resposta for valida por favor vote como útil.
    segunda-feira, 22 de agosto de 2011 23:58