Bonjour,

Je cherche à modifier le champ "EmployeeNumber" d'un utilisateur existant dans mon LDAP mais je n'y parvient pas. Je crois savoir que EmployeeNumber est un champ qui existe par défaut mais on ne peut pas le voir dans les propriétés de l'utilisateur, comme on peut le faire pour le nom, le numéro de téléphone ou son adresse par exemple.
J'ai cherché des solutions en ligne de commande ou en VB6 mais je n'ai toujours pas réussit à modifier ce champ ou un autre.

Voici mon code qui fonctionne pour lire les champs du LDAP d'un utilisateur:
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
LireUser_NomConnexion = "BLANC"
strADsPath="LDAP://dc=ENTREPRISE,dc=TEST"	
 
	Function Get_DistinguishedName(ByVal obj)
		 Dim oConnection
		 Dim oRecordset
		 Dim strQuery
 
		 Set oConnection = CreateObject("ADODB.Connection")
		 Set oRecordset = CreateObject("ADODB.Recordset")
		 Set objCmd = CreateObject("ADODB.Command")
 
		 oConnection.Provider = "ADsDSOObject"  'The ADSI OLE-DB provider
 
		 oConnection.Open "ADs Provider"
		 strQuery = "<" & strADsPath & ">;(&(cn=" + obj +"));distinguishedName;subtree"
 
		 Set objCmd.ActiveConnection = oConnection
		 objCmd.CommandText = strQuery
		 objCmd.Properties("Page Size") = 32
		 Set oRecordset = objCmd.Execute(strQuery)
 
		 If oRecordset.EOF And oRecordset.BOF Then
			  Get_DistinguishedName = ""
		 Else
			  Get_DistinguishedName = oRecordset.Fields("distinguishedName")
		 end if
	End Function
 
	Set LireLDAP_Utilisateur = GetObject("LDAP://" & Get_DistinguishedName(LireUser_NomConnexion))
 
LDAP_Nom =				trim(LireLDAP_Utilisateur.lastname)
LDAP_Matricule = 		right(trim(LireLDAP_Utilisateur.EmployeeNumber),6)	
 
response.write("<BR/>LDAP_Nom = " & LDAP_Nom)
response.write("<BR/>LDAP_Matricule = " & LDAP_Matricule)
Quelqu'un saurait comment modifier cet EmployeeNumer, en ligne de commande Windows ou en VB6?
Merci par avance pour vos réponses