none
Informações do AD RRS feed

  • Pergunta

  • Alguem tem um script que gere um arquivos de todos os usuários do domínio e seus respectivos atributos.

     

    Att,

    Wagner

    terça-feira, 23 de janeiro de 2007 16:25

Respostas

  • Wagner,

    Segue um exemplo. Você pode conseguir maiores informações no link:

    http://www.microsoft.com/technet/scriptcenter

    Daniel

    '=============================
    ' Início do Script
    '=============================
    'On Error Resume Next
    Set objInfo = CreateObject("ADSystemInfo")
    Set objConnection = CreateObject("ADODB.Connection")
    Set objCommand = CreateObject("ADODB.Command")
    Set objRecordSet = CreateObject("ADODB.Recordset")
    blnError = False

    ' Informe quais atributos deseja
    strAtributosRetorno = "displayName,telephoneNumber,mail,distinguishedName,proxyAddresses,SAMAccountName"

    strDNSDomainName = LCase(objInfo.DomainDNSName)
    strLDAPPath = "LDAP://" & strDNSDomainName

    objConnection.Provider = "ADsDSOObject"
    objConnection.Open

    ' Checa existência de erros de conexão com provider ADO
    If objConnection.Errors.Count <> 0 Then
     blnError = True
    Else
       'Cria a busca ADO
     With objCommand
      .ActiveConnection = objConnection
      .CommandTimeout = 15000
      .Properties.Item("searchscope") = 2
      .Properties.Item("Size Limit") = 1
      .Properties.Item("Time Limit") = 15000
      .Properties.Item("Page size") = 1
      .Properties.Item("Cache results") = False
      ' String de busca LDAP
         .CommandText = "<" & strLDAPPath & ">;(sAMAccountName=*);objectCategory,objectClass," & strAtributosRetorno & ";subtree"
     End With
     ' Executa a busca
     Set objRecordSet = objCommand.Execute
     
     SearchUser = "0"
     
        While Not objRecordSet.EOF
      wscript.Echo objRecordSet.Fields("distinguishedName") & " " & objRecordSet.Fields("SAMAccountName")
            objRecordSet.MoveNext
        Wend
       
    End If
    Set objInfo = Nothing
    Set objConnection = Nothing
    Set objCommand = Nothing
    Set objRecordSet = Nothing
    '=============================
    ' Fim do Script
    '=============================

    terça-feira, 23 de janeiro de 2007 17:13