Script extract user AD VBS

Script extract user AD VBS - VB/VBA/VBS - Programmation

Marsh Posté le 16-11-2012 à 10:02:21    

Je viens vers vous pour un petit problème que je rencontre sur un script VBS.
 
Le but de mon script est d'extraire l'ensembles des utilisateurs de mon domaine avec divers informations et par la suite les mettre en forme sous excel. Pour le moment le script ne marche que pour les utilisateurs, mais je souhaite par la suite pouvoir extraire les ordinateurs.
 
Mon script en lui même marche très bien pour le moment, le voici :
 
 

Code :
  1. ' ------ Le domaine AD est a jouter en fixe dans le    ------
  2. ' ------ String StrDomainDN pour des raisons d'utilisations courantes ------
  4. dim fso, MyFile, reptemp, filetext
  7. ' Attention à modifier le nom LDAP du domaine
  8. strDomainDN ="dc=xx,dc=xx,dc=xx,dc=xx,dc=xx"
  10. ' Attention le répertoire c:\temp doit exister
  11. reptemp="c:\temp\"
  13. Filetext=Inputbox("fichier temporaire cible : " )
  14. Set fso = CreateObject("Scripting.FileSystemObject" )
  16. ' création d'un fichier txt pour la première partie du script, soit le nom des utilisateurs
  17. set MyFile = fso.CreateTextFile(reptemp + filetext + ".txt" )
  19. ' Ici un filtre sur les utilisateurs et je récupére leur Distinguishedname
  20. strBase   =  "<LDAP://" & strDomainDN & ">;"
  21. strFilter = "(&(objectclass=user)(objectcategory=person));"
  22. strAttrs  = "distinguishedname;"
  23. strScope  = "subtree"
  25. set objConn = CreateObject("ADODB.Connection" )
  26. set objCmd = Createobject("ADODB.Command" )
  27. objConn.Provider = "ADsDSOObject"
  28. objConn.Open "Active Directory Provider"
  30. 'Ici lancement de la requete avec les propriétés qu'on souhaite
  31. objTest = strBase & strFilter & strAttrs & strScope
  32. objCmd.ActiveConnection = objConn
  33. 'objCmd.Properties("SearchScope" ) = 2
  34. 'objCmd.Properties("Page Size" ) = 500
  35. objCmd.CommandText = objTest
  37. Set objRs = objCmd.Execute
  39. ' Ici écriture dans le fichier txt dans le c:\temp
  40. objRS.MoveFirst
  41. while Not objRS.EOF
  42. MyFile.WriteLine (objRS.Fields(0).Value)
  43.     objRS.MoveNext
  44. wend
  45. MyFile.close
  48. ' Maintenant avec le fichier txt je récupère les informations utilisateurs par utilisateurs
  49. on error resume next
  50. Dim objConnection, objRecords, objExcel, strQuery, i, objSpread, intRow
  53. strSheet = "c:\Source.xls"
  55. Set objExcel = CreateObject("Excel.Application" )
  56. Set objSpread = objExcel.Workbooks.Open(strSheet)
  57. Set objFSO = CreateObject("Scripting.FileSystemObject" )
  58. Set UserListe = objFSO.OpenTextFile(reptemp + Filetext + ".txt" )
  60. 'Renseigner le numéro de la première ligne Excel ou vous souhaité écrire les inforamations
  61. i = 2
  63.   ' liste des attributs à récupérer
  64.   Do Until UserListe.AtEndofStream
  65. UserLDAP = UserListe.Readline
  66. Set objUser = GetObject("LDAP://" & UserLDAP & "" )
  67.  CNStr = left(UserLDAP, Instr (UserLDAP, "," ) -1)
  68.  OuStr = Right(UserLDAP, len(UserLDAP) - Instr (UserLDAP, "," ))
  69.  objExcel.ActiveSheet.Range("A" & i).Value = SamaccountName
  70.  objExcel.ActiveSheet.Range("B" & i).Value = objUser.givenName
  71.  objExcel.ActiveSheet.Range("C" & i).Value = objUser.sn
  72.  objExcel.ActiveSheet.Range("D" & i).Value = objUser.displayName
  73.  objExcel.ActiveSheet.Range("E" & i).Value = OuStr
  74.  objExcel.ActiveSheet.Range("F" & i).Value = objUser.Description
  75.  objExcel.ActiveSheet.Range("G" & i).Value = objUser.GetEx("memberOf" )
  78.  i = i + 1
  79.   loop
  83. 'Sauvegarde du fichier Excel
  84. objExcel.ActiveWorkbook.SaveAs(reptemp + Filetext + ".xls" )
  85. objExcel.ActiveWorkbook.Close
  86. objExcel.Workbooks.Close
  88. msgbox "fin de récupération des utilisateurs. Le fichiers excel est dans " + reptemp + Filetext + ".xls"
  89. objExcel.Quit


 
 
 
Cependant je souhaiterai pouvoir extraire l'ensemble des groupes de tout les utilisateurs (normalement la ligne 75) mais cela ne marche pas.
J'ai bien trouvé quelque chose qui semble être bon mais je ne sais pas trop comment l’intégrer a mon script :
 

Code :
  1. objmemberOf  = objUser.GetEx("memberOf" )
  2. For Each objGroup in objmemberOf
  3.    strList = strList & objGroup & vbcr
  4. Next


 
 
 
Si des gens ont des conseils je prend volontier

Reply

Marsh Posté le 16-11-2012 à 10:02:21   

Reply

Sujets relatifs:

Leave a Replay

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