Ik ben bezig om middels een script 250 users aan te maken binnen de active directory. Hieronder staat het gedeelte wat er voor zorgt dat de user wordt aangemaakt op een vooraf gedefinieerde plaats binnen de Active Directory:
Op deze regel:
krijg ik deze:

foutmelding.
Ik ben hier nou al een hele tijd op aan het puzzelen en kom er niet uit. Iemand die me de juiste weg op kan sturen?
code:
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
| Function CreateUser(oContainer,arrAdFields,arrUserInfo)
Set oUser = oContainer.Create("user", "cn=" & arrUserInfo(4))
oUser.Put arrAdFields(4), arrUserInfo(4)
oUser.Put arrAdFields(2), arrUserInfo(2)
oUser.Put arrAdFields(3), arrUserInfo(3)
oUser.Put arrAdFields(5), arrUserInfo(5)
oUser.SetInfo
oUser.SetPassword arrUserInfo(0)
oUser.AccountDisabled = False
oUser.SetInfo
oUser.PutEx ADS_PROPERTY_UPDATE, "attributeDisplayNames", arrUserInfo(1)
oUser.SetInfo
Set oUser = Nothing
End Function
Set oContainer = GetObject("LDAP://domaincontroler.domain.com/OU=testou,DC=ad,DC=domain,DC=com")
arrAdFields = Array("password","display name","givenName","sn","samAccountName","Description")
arrUserInfo = Array("12345678","Test User","Test","User","U90909090","Test User")
Call CreateUser(oContainer, arrAdFields, arrUserInfo)
Set oContainer = Nothing |
Op deze regel:
code:
1
| oUser.PutEx ADS_PROPERTY_UPDATE, "attributeDisplayNames", arrUserInfo(1) |
krijg ik deze:
foutmelding.
Ik ben hier nou al een hele tijd op aan het puzzelen en kom er niet uit. Iemand die me de juiste weg op kan sturen?