Bonsoir à tous,

Je me permet de poster une petite requête si quelqu'un d'entre vous a ça en réserve

Je suis actuellement à la recherche d'un script vbs qui va me récupérer la liste des utilisateurs dans Active Directory mais également les propriétés que je veux. Pour exemple, j'aimerai récupérer le user avec le champ Initiales.

J'ai trouvé quelques scripts qui permettent de faire cela mais généralement le tout est enregistré dans un fichier xls, alors que je cherche à le récupérer en tant que txt.

Du coup y a souvent des boucles spécifiques à la création de tableaux Excel etc. qui ne me permettent pas de créer le fichier txt sans avoir à vraiment toucher au code.

Mes connaissances du vbs étant à la limite du /dev/null, si quelqu'un a un script sous son manteau, je suis preneur

Par avance, merci.

Ps : j'ai un peu regardé les scripts du site suivant :

http://gallery.technet.microsoft.com/

mais je n'ai pas trouvé mon bonheur car soit c'est enregistré en vbs, soit on récupère le user avec le mail mais pas le champ 'Initiales'

Ex : http://gallery.technet.microsoft.com...5-8cdc60d0104d.

Je pense qu'il y a moyen d'adapter le script pour faire ce que je veux mais je m'y connais vraiment pas assez pour le faire :'( )

Thx again

Edit :

Voici le code qui me semble avoir l'information que je souhaite récupérer mais il est enregistré en xls :

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
 
SET objRootDSE = GETOBJECT("LDAP://RootDSE") 
strExportFile = "C:\temp\MyExport.xls"  
 
strRoot = objRootDSE.GET("DefaultNamingContext") 
strfilter = "(&(objectCategory=Person)(objectClass=User))" 
strAttributes = "sAMAccountName,userPrincipalName,givenName,sn," & _ 
                                "initials,displayName,physicalDeliveryOfficeName," & _ 
                                "telephoneNumber,mail,wWWHomePage,profilePath," & _ 
                                "scriptPath,homeDirectory,homeDrive,title,department," & _ 
                                "company,manager,homePhone,pager,mobile," & _ 
                                "facsimileTelephoneNumber,ipphone,info," & _ 
                                "streetAddress,postOfficeBox,l,st,postalCode,c" 
strScope = "subtree" 
SET cn = CREATEOBJECT("ADODB.Connection") 
SET cmd = CREATEOBJECT("ADODB.Command") 
cn.Provider = "ADsDSOObject" 
cn.Open "Active Directory Provider" 
cmd.ActiveConnection = cn 
 
cmd.Properties("Page Size") = 1000 
 
cmd.commandtext = "<LDAP://" & strRoot & ">;" & strFilter & ";" & _ 
                                   strAttributes & ";" & strScope 
 
SET rs = cmd.EXECUTE 
 
SET objExcel = CREATEOBJECT("Excel.Application") 
SET objWB = objExcel.Workbooks.Add 
SET objSheet = objWB.Worksheets(1) 
 
FOR i = 0 To rs.Fields.Count - 1 
                objSheet.Cells(1, i + 1).Value = rs.Fields(i).Name 
                objSheet.Cells(1, i + 1).Font.Bold = TRUE 
NEXT 
 
objSheet.Range("A2").CopyFromRecordset(rs) 
objWB.SaveAs(strExportFile) 
 
 
rs.close 
cn.close 
SET objSheet = NOTHING 
SET objWB =  NOTHING 
objExcel.Quit() 
SET objExcel = NOTHING 
 
Wscript.echo "Script Finished..Please See " & strExportFile