Discussion :

[pnoom]

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

[M E H D I]

Salut Pnoom, Quelle est ton erreur?
Déjà tu n'as pas spécifié le numéro de port pour récupérer le trafic. Peut-être que cela bloque tes requêtes.