Discussion :

[harry le ravi]

Bonjour à tous,

J'ai fais un script VBS qui récupère l'ensemble de mes utilisateurs et leur employé ID sur mon AD pour les stocker dans un fichier texte afin de faire de la régul.

Il marche très bien mais voila, je ne connais pas le noms de tout les champs d'information d'un compte utilisateur de l'AD.
Aurriez-vous une requête me permettant d'avoir le nom de ces champs?

Voici mon code:

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
Const ADS_SCOPE_SUBTREE = 2

Set Root	= GetObject("LDAP://RootDSE")
DomainPath	= Root.Get("DefaultNamingContext")
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 = "<LDAP://" & DomainPath & ">;(&(objectCategory=person)(objectClass=user)); sAMAccountName,employeeid ;subtree" //C'est là qu'il me faut des champs

Set objRecordSet = objCommand.Execute

a="SAM_Account_Name;Employe_ID"

objRecordSet.MoveFirst
Do Until objRecordSet.EOF
	a = a & vbnewline & objRecordSet.Fields("sAMAccountName") & ";" & objRecordSet.Fields("employeeid")
    objRecordSet.MoveNext
Loop
Set fs = CreateObject("Scripting.FileSystemObject")
Set fich = fs.OpenTextFile("C:\log.txt", 2, true)
fich.write  a
fich.close

msgbox "OK"

[omen999]

bonjour,
un petit tour sur msdn ?
http://msdn.microsoft.com/en-us/libr...90(VS.85).aspx

[harry le ravi]

Super, j'ai essayé de chercher sur msdn mais c'est tellement simple de trouver ce que l'on cherche chez eux....

Merci en tout cas.