[VB] Lister EmployeeNumber de l'AD

Lister EmployeeNumber de l'AD [VB] - VB/VBA/VBS - Programmation

Marsh Posté le 21-09-2008 à 23:00:49    

Bonjour,  :hello:  
 
Je débute dans la programmation de script, cependant en cherchant un peu sur le net etc, j'ai réussi à avancer dans ce que je cherche à faire :
 
Se connecter à l'AD, chercher tous les utilisateurs ayant le champ EmployeeNumber correspondant à celui du fichier txt.
 
Cependant j'ai une erreur lors de l'execution, j'arrive pas à compter le nombre d'utilisateur ayant ce même champ (justement je veux chercher les doublons) et si il y en a bien que 1, vérifier d'autres informations.
 
Voici le code :

Code :
  1. 'On Error Resume Next
  2. 'Variables
  3. InputFile  = "c:\script\users.txt"
  4. AdminUser  = "administrateur"     
  5. AdminPswd  = "pass"         
  6. Domain     = "domaine.eu"     
  7. NombreEmployee = 0
  8. FormatTelephoneNumber = "E164"
  10. 'Ouverture du fichier txt avec liste des utilisateurs
  11. 'Format .txt avec séparation par virgule
  12. 'employeNumber,Nom,Prénom,numéro de téléphone
  14. Set FSO    = CreateObject("Scripting.FilesyStemObject" )
  15. Set oFile  = FSO.OpenTextFile(InputFile)
  17. 'Connection à Active Directory
  18. part1 = Left(Domain,Instr(Domain,"." ) - 1)
  19. part2 = Mid(Domain,Instr(Domain,"." ) + 1)
  20. Set objConnection = CreateObject("ADODB.Connection" )
  21. Set objCommand    = CreateObject("ADODB.Command" )
  22. objConnection.Provider = "ADsDSOObject"
  23. objConnection.Open "Active Directory Provider"
  24. Set objCommand.ActiveConnection = objConnection
  26. objCommand.Properties("Page Size" ) = 10000
  27. objCommand.Properties("Searchscope" ) = ADS_SCOPE_SUBTREE
  29. Set openDS = GetObject("LDAP:" )
  31. 'Ouverture du fichier txt
  32. Do Until oFile.AtEndOfLine
  33.    LineIn = oFile.ReadLine
  34.    If LineIn <> "" Then
  35.       Champ  = Split(LineIn, "," )
  36.       'Récupération des champs
  37.       Champ(0) = Trim(Champ(0))
  38.       Champ(1) = Trim(Champ(1))
  39.       Champ(2) = Trim(Champ(2))
  40.       Champ(3) = Trim(Champ(3))
  41.      
  42.       'Browse de l'AD à la recherche des EmployeeNumber   
  43.       objCommand.CommandText = _
  44.        "SELECT distinguishedName FROM 'LDAP://dc=" & part1 & ",dc=" & part2 & "' " & _
  45.        "WHERE objectCategory = 'user' " & _
  46.        "AND employeeNumber = '" & Champ(0) & "'"
  47.       Set objRecordSet = objCommand.Execute
  48.       'objRecordSet.MoveFirst
  50.   'Compte du nombre de EmployeeNumber et Erreur si != 1
  51.   NombreEmployee = 0
  52.       Do Until objRecordSet.EOF 
  53.        NombreEmployee = NombreEmployee + 1
  54.        objRecordSet.MoveNext
  55.       Loop
  56.       If NombreEmployee <> "1" Then
  57.        WScript.Echo Champ(0) & Champ(1) & ": Erreur nombre d'EmployeeNumber"
  58.       Else
  59.        WScript.Echo "OK : Un seul EmployeeNumber pour " & Champ(0) & Champ(1)
  60.        'On vérifie tous les champs Email/TéléphoneNumber/nom/Prénom/DisplayName
  61.        DN = objRecordSet.Fields("distinguishedName" ).Value
  62.        'Connection a AD et vérification
  63.        Set usr = openDS.OpenDSObject("LDAP://" & Domain & "/" & DN, AdminUser, AdminPswd, ADS_SECURE_AUTHENTICATION)
  64.       End If
  65.      
  66.      
  67.    End If
  68. Loop
  70. 'Fermeture de toutes les connections
  71. Set usr = Nothing
  72. Set objCommand.ActiveConnection = Nothing
  73. Set objCommand = Nothing
  74. Set objConnection = Nothing
  75. Set openDS = Nothing
  76. Set oFile = Nothing
  77. Set FSO = Nothing


 
Donc si vous avez une idée de pourquoi j'ai une erreur au movefirst (C:\script\Verif_user.vbs(52, 7) ADODB.Recordset: BOF ou EOF est égal à True ou l
'enregistrement actuel a été supprimé. L'opération demandée nécessite un enregis
trement actuel.) ou alors si je le commente au fait que je ne trouve aucun utilisateur ayant le même employeeNumber.
 
Si vous avez une idée ?
 
Merci !  :jap:


Message édité par canigou4 le 21-09-2008 à 23:03:12
Reply

Marsh Posté le 21-09-2008 à 23:00:49   

Reply

Sujets relatifs:

Leave a Replay

Make sure you enter the(*)required information where indicate.HTML code is not allowed