Muy simple script que sirve para extraer las cuentas de email del active directory.

Si tenéis mas cuentas en "proxyAddresses" este script no las tiene en cuenta.

CLIC PARA VER TEXTO PLANO
Visual Basic:
  1. Option Explicit
  2.  
  3. Dim strDomainDN, strBase, strFilter, strAttrs, strScope
  4. Dim objDIC
  5. Dim objCmd, objConn, objRS
  6. Dim iCount
  7.  
  8. strDomainDN = "dc=tudominio,dc=com"
  9. strBase   =  "<GC://" & strDomainDN & ">;"
  10.  
  11. strFilter = "(mail=*);"
  12. strAttrs  = "name,adspath,mail,url;"
  13. strScope  = "subtree"
  14.  
  15. Set objDIC = CreateObject ("Scripting.Dictionary")
  16.  
  17. Set objConn = CreateObject ("ADODB.Connection")
  18. objConn.Provider = "ADsDSOObject"
  19. objConn.Open "Active Directory Provider"
  20.  
  21. Set objCmd = CreateObject ("ADODB.Command")
  22.  
  23. objCmd.ActiveConnection = objConn
  24. objCmd.CommandText = strBase & strFilter & strAttrs & strScope
  25. objCmd.Properties ("Page Size") = 1000
  26.  
  27. Set objRS = objCmd.Execute
  28. objRS.MoveFirst
  29.  
  30. while Not objRS.EOF
  31. Wscript.Echo "name = " & objRS.Fields(0).Value & ";mail = " & objRS.Fields(2).value
  32. wscript.echo "adspath = " & objRS.Fields(1).Value
  33. 'wscript.echo "url = " & objRS.Fields(3).value
  34. wscript.echo
  35.  objRS.MoveNext
  36. wend
  37. wscript.quit 0


Posts anterior y posterior:
«
»


Posts Relacionados: