Liste de tous les utilisateurs d'un domaine en VBScript

Question

Bonjour à tous,
J'essaye de faire un script pour extraire la liste de tous les utilisateurs d'un domaine quelque soit l'OU dans un fichier.
En ldifde ça marche mais je tiens à comprendre pourquoi en vbscript ça ne passe pas.
que faut-il mettre en GetObject pour que l'AD entière soit prise en compte.
merci pour votre aide.

'Global variables


 Dim oContainer
 Dim OutPutFile
 Dim FileSystem


'Initialize global variables


 Set FileSystem = WScript.CreateObject("Scripting.FileSystemObject")
 Set OutPutFile = FileSystem.CreateTextFile("Extract.txt", True)
 Set oContainer=GetObject("[ldap://ou=users,ou=NOMOU,dc=test,dc=fr LDAP://ou=users,ou=NOMOU,dc=test,dc=fr]")


'Enumerate Container


 Dim oUser


 For Each oUser In oContainer
  Select Case LCase(oUser.Class)
   Case "user"
    If oUser.AccountDisabled = True Then
     OutPutFile.WriteLine "Nom Affiché: " & oUser.Get ("name")             
    End If                
   Case "organizationalunit", "container"    
  End Select
 
 next

karimologue · Answer

tourjous personne pour m'aider???

famijeux · Answer

Il suffit de remplacer LDAP par GC

Liste de tous les utilisateurs d'un domaine en VBScript

2 réponses

Votre réponse

Discussions similaires