[2003] User toevoegen in AD via ASP

[Verwijderd]

Ik had graag een user toegevoegd in de AD van mijn Windows Server 2003 systeem.

Ik heb eerst geprobeerd een simpele ou te maken met volgende code:

code:

<%
  strRootPath = "LDAP://dc=freaky,dc=be"
  strUserPath  = "LDAP://cn=koen,cn=Users,dc=freaky,dc=be"
  strUsername = "cn=Administrator,cn=Users,dc=freaky,dc=be"
  strPassword = "xxx"

  Set objNamespace = GetObject("LDAP:")
  Set objRoot = objNamespace.OpenDSObject(strRootPath,strUsername,strPassword,0)

  Set objSalesOU = objRoot.Create("organizationalUnit","ou=Sales")
  objSalesOU.Description = "sales"
  objSalesOU.SetInfo

  Set objUser = objNamespace.OpenDSObject(strUserPath,strUsername,strPassword,0)
  objUser.Description = "description"
  objUser.SetInfo
%>

Dat werkt perfect, dus moest het ook mogelijk zijn een user toe te voegen, daarvoor gebruik ik dan deze code:

code:

<%
Set oDomain = GetObject("LDAP://freaky.be")
Set oUser = oDomain.Create("user", "test")
oUser.SetInfo
%>

Maar spijtig genoeg krijg ik deze error:

Active Directory error '80070005'

General access denied error

/create.asp, line 4

Ik heb die code opgezocht, en overal lees ik dat je de IUSR user alle rechten moet, maar dit had ik al gedaan, al die users die iets met IIS te maken hebben zijn administrator en server operator, maar toch krijg ik dit niet gedaan via IIS6.0.

[Verwijderd]

Even laten wete dat het wonder boven wonder ineens werkt met een scriptje vanop de microsoft site:

code:

<%
Set objOU = GetObject("LDAP://ou=test,dc=freaky,dc=be")
Set objUser = objOU.Create("User", "cn=MyerKen")
objUser.Put "sAMAccountName", "myerken"
objUser.SetInfo
%>

[sanfranjake]

Dan zet ik nog even [2003] vooraan de topictitel per de Windows Servers en Software - Policy