Bonjour

J'essaie depuis 2 jours à me connecter sur un serveur AD en VBS pour manipuler les utilisateurs mais je n' y arrive pas quand j'utilise le code sur le serveur AD ça marche nikel avec ce bout de 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
31
32
33
34
Option Explicit
Dim objOU, objUser, objRootDSE
Dim strContainer, strDNSDomain, strPassword 
Dim intCounter, intAccValue, intPwdValue

' Bind to Active Directory Domain

Set objRootDSE = GetObject("LDAP://RootDSE")

strDNSDomain = objRootDSE.Get("DefaultNamingContext") 
WScript.Echo strDNSDomain

strContainer = "CN=toto titi,OU=TEST,"
strPassword = "Test123?"
strContainer = strContainer & strDNSDomain
WScript.Echo strContainer

intAccValue = 512 

intPwdValue = 0 ' Default is -1

set objUser =GetObject("LDAP://" & strContainer )
If objUser.class="user" then
objUser.SetPassword strPassword
objUser.Put "userAccountControl", intAccValue
objUser.SetInfo
End If


WScript.Echo "Password is " & strPassword & vbCr & _
"UserAccountControl = " & intAccValue & vbCr & "Check " & strContainer

WScript.Quit
mais dés que j'exécute a distance rien ne marche j'ai essayer de modifier les 2 ligne en rouge par ça
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
 
strPath = "LDAP://adresse ip/cn=Testpwd,ou=TEST,dc=france,dc=fr"
strUsername = "cn=nomadmin,cn=Users,dc=france,dc=fr"
strPassword1 = "passeadmin"
 
Set adsNamespaceLDAP = GetObject("LDAP:")
adsMyObject Set = adsNamespaceLDAP.OpenDSObject(strPath, strUsername, strPassword1, 0)
mais ça ne donne rien
j'ai une erreur au niveau de la derniere ligne du code ci dessus

Je vous remercie d'avance pour votre aide