Importation champs active directory

Version imprimable

26/04/2010, 15h14
Red-Die

Importation champs active directory

Bonjours tout le monde.
je suis en train de créer un petit script qui a pour bute d'aller chercher 2 information sur une personne de l active directory. ses information sont le champ title et company ( onglet organisation ).
Le probléme et que je n'arrive pas a trouver les ligne de code me permettant de
filtrer mon utilisateur ( j'ai trouver quelque chose du type samaccountname = user ) de faire l extraction de ses deux champs dans deux variables différentes.
j'espère ne pas avoir été trop flou sur le sujet.

Merci à tous.

Apres de nombreuse recherches et modification sur mon script, j'ai un message d'erreur sur une ligne. voici mon

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
49
50
51
52
53
54
55
56
57
Set WSHNetwork = CreateObject("Wscript.Network")
Set WshShell   = WScript.CreateObject("WScript.Shell")
set ObjNetwork = Wscript.CreateObject("Wscript.Network")
 
'Synchronisation de l'heure
WSHShell.Run("net time %LOGONSERVER% /set /y")
 
'Declaration Ad
dim fso, MyFile, reptemp, filetext, oRecordSet 
 
'Declaration 
 
dim cuser
dim logad
dim passad
 
'Affectation
cuser = ObjNetwork.Username
 
' LDAP du domaine 
strDomainDN ="dc=xx,dc=xx,dc=xx,dc=COM" 
 
Set fso = CreateObject("Scripting.FileSystemObject") 
 
'Connexion Ad
Set objDSE = GetObject("LDAP://rootDSE") 
set objConn = CreateObject("ADODB.Connection") 
objConn.Provider = "ADsDSOObject" 
objConn.Open "Active Directory Provider" 
 
'Ici un filtre sur les utilisateurs, récupération des paramètres 
strFilter = "(&(objectclass=user)(samaccountname=" & cuser & "));" 
strAttrs = "title,company" 
strScope = "subtree" 
 
'Requète 
Requete = "<LDAP://" & objDSE.Get("defaultNamingContext") & ">;" & strFilter & strAttrs & strScope 
WScript.Echo Requete 
 
'Execution de la requète 
Set oRecordSet = objConn.Execute(Requete) 
 
prenom = oRecordset.Fields("givenName").Value 
mdp = oRecordset.Fields("SN").Value 
 
 
'Afficher
MsgBox "Loggin : " & prenom
MsgBox "password : " & mdp
MsgBox "user : " & cuser
 
'Mappage des lecteurs réseaux
on error resume next
 
WshNetwork.RemoveNetworkDrive "N:"
 
WSHNetwork.MapNetworkDrive "N:","\\serveurnt4\dossier","False",logad,passas

le bute de se script est d'aller cercher 2 champ dans l active directory ( title et company ) qui contienne le mot de passe et le loggin d'un lecteur reseau situé sur un domaine nt4. ses champs seront exporté dans 2 variable ( logad et passad) j'ai un message d'erreur à la ligne Set oRecordSet = objConn.Execute(Requete) je ne sait pas d'ou cela peut provenir. j'espére qu'une ame charitable pourra m 'aider ;)

27/04/2010, 09h22
pitchalov

Salut,

J'ai l'impression qu'il te manque ";" entre strAttrs et strScope dans ta requête AD.
Le code a l'air OK, c'est là ou ailleurs dans la commande que ça doit planter.
Essaie de reformater ta requête et si ça marche pas poste ton erreur.
27/04/2010, 09h50
Red-Die

Ok merci beaucoup.
J'essaye de ce pas et je vous tien au courant.
27/04/2010, 10h10
Red-Die

Non malheureusement cela ne marche pas. Quand je rajoute une virgule cela me met une erreur sur la ligne de la requête au niveau de la virgule.

si non quand reviens au script d'origine j 'ai une erreur sur la ligne
Set oRecordSet = objConn.Execute(Requete) au premier caractère avec le code 80004005 et comme source provider.
27/04/2010, 13h15
Red-Die

C'est bon le script marche nickel.
le problème se trouvai effectivement au niveau de la requête, au niveau de strScope ,(il manquait une virgule devant) en remplacent strScope="subtree" par strScope=;subtree tout fonctionne nickel.

Merci de m'avoir mis sur la piste pitchalov.