Problème avec Active Directory [Résolu]

[Poussy-Puce]

Bonjour, je commence un nouveau projet qui ce doit d'être un page Web pour ajouter des groupes et des usagers dans Active Directory. Mais LDAP et ses secrets, j'arrive à rien. Pour le moment j'ai été voir des scripts donnés par Microsoft et en voici un pour ajouter un usager dans un groupe:

Code :

1
2
3
4
5
6
7
8
9
10
 
dim objOU, objGroup
Const ADS_GROUP_TYPE_LOCAL_GROUP = &h4
 
Set objOU = GetObject("LDAP://ou=Dev,dc=nomDomain,dc=com")
Set objGroup = objOU.Create("Group", "cn=Vendors")
 
objGroup.Put "sAMAccountName", "vendors"
objGroup.Put "groupType", ADS_GROUP_TYPE_LOCAL_GROUP
objGroup.SetInfo

Sauf que comme je pensais, j'ai un beau message d'erreur qui dit : General access denied error , bon je comprends que j'ai pas les accès mais j'ai un nom d'usager et password qui lui aurait les accès, mais comment je peu lui assigner cet usagers. Est-ce que quelqu'un saurait m'aider, ou si vous connaissez un bon site qui est de niveau débutant et qui explique bien sans donner des simples bouts de code come celui-ci...

Merci

[Immobilis]

Salut,

Une recherche de "LDAP" sur le forum donne de bon resultats, non?
Par exemple : http://www.developpez.net/forums/sho...highlight=ldap

A+

[philippe123]

Code :

1
2
3
4
5
6
7
8
9
10
''creation du groupe sur l'active directory
ADS_GROUP_TYPE_GLOBAL_GROUP = &h2
ADS_GROUP_TYPE_SECURITY_ENABLED = &h80000000
Set objOU = GetObject("LDAP://"&tonCheminLDAP&"")
Set objGroup = objOU.Create("Group", "cn="&NomDuGroupe&"")
objGroup.Put "sAMAccountName",""&NomDuGroupe&""
objGroup.Put "groupType", ADS_GROUP_TYPE_GLOBAL_GROUP Or
   ADS_GROUP_TYPE_SECURITY_ENABLED
objGroup.SetInfo

essaye comme ca...

[Poussy-Puce]

Je l'ai eu avec:

Code :

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
 
dim objGroup, objGroup2, objUser
Const ADS_GROUP_TYPE_GLOBAL_GROUP = &h2
Const ADS_GROUP_TYPE_SECURITY_ENABLED = &h80000000
 
Set objGroup = GetObject("LDAP:")
set objGroup = objGroup.OpenDSObject("LDAP://ou=dev, dc=nomdomain, dc=com", "usernameAvecDroits", "usernamePwd", 0)
Set objGroup = objGroup.Create("group", "cn=" & CStr(Request.Form("txtName"))) 
 
objGroup.Put "sAMAccountName", CStr(Request.Form("txtName"))
objGroup.Put "description", CStr(Request.Form("txtDescription"))
If CStr(Request.Form("txtaNotes")) <> "" Then
	objGroup.Put "info", CStr(Request.Form("txtaNotes")) & ""
End IF
 
objGroup.SetInfo

C'est le OpenDSObject pour indiquer un nom d'usager mot de passe qui me manquait.

Merci beaucoup