Récupération Information Active Directory

Version imprimable

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:

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

Peut-être que ce script va répondre à mes attentes.

Je vais tester demain ;)

Code:

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
 
On Error Resume Next 
 
Const ADS_SCOPE_SUBTREE = 2 
 
Set objConnection = CreateObject("ADODB.Connection") 
Set objCommand =   CreateObject("ADODB.Command") 
objConnection.Provider = "ADsDSOObject" 
objConnection.Open "Active Directory Provider" 
Set objCommand.ActiveConnection = objConnection 
 
objCommand.Properties("Page Size") = 1000 
objCommand.Properties("Searchscope") = ADS_SCOPE_SUBTREE  
 
objCommand.CommandText = _ 
    "SELECT AdsPath,givenName,SN,initials,title,telephoneNumber " _ 
        & "FROM 'LDAP://dc=fabrikam,dc=com' WHERE " _ 
            & "objectCategory='user'"   
Set objRecordSet = objCommand.Execute 
objRecordSet.MoveFirst 
 
Do Until objRecordSet.EOF 
    Wscript.Echo objRecordSet.Fields("ADsPath").Value 
    Wscript.Echo objRecordSet.Fields("givenName").Value 
    Wscript.Echo objRecordSet.Fields("SN").Value 
    Wscript.Echo objRecordSet.Fields("initials").Value 
    Wscript.Echo objRecordSet.Fields("title").Value 
    Wscript.Echo _ 
        objRecordSet.Fields("telephoneNumber").Value 
    objRecordSet.MoveNext 
Loop

:ccool:

Voici la solution si ca peut servir :

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
 
On Error Resume Next
 
Const ADS_SCOPE_SUBTREE = 2
 
Set objConnection = CreateObject("ADODB.Connection")
Set objCommand =   CreateObject("ADODB.Command")
objConnection.Provider = "ADsDSOObject"
objConnection.Open "Active Directory Provider"
Set objCommand.ActiveConnection = objConnection
 
objCommand.Properties("Page Size") = 1000
objCommand.Properties("Searchscope") = ADS_SCOPE_SUBTREE
 
objCommand.CommandText = _
"SELECT Name,initials FROM 'LDAP://dc=developpez,dc=com' WHERE objectCategory='user'"
Set objRecordSet = objCommand.Execute
objRecordSet.MoveFirst
Do Until objRecordSet.EOF
    Wscript.Echo objRecordSet.Fields("Name").Value & "  " & "Initiales: " & objRecordSet.Fields("initials").Value
    objRecordSet.MoveNext
Loop

++ all