hejsa
Jeg er ved at lave et lille VB sript til oprettelse af brugere i vores nye
AD.
Jeg har lavet et VB script som virker fint, som den skal. Jeg vil så gerne
lave det lidt mere brugervenligt, og vil derfor lave et VB program. MEN det
virker ikke inde fra VB.
Jeg får en automation error ved denne linie .Put "sAMAccountName",
UserName
Det ser ud at opjektet bliver oprettet men den er tilsyneladende tom.
Dim objOU, objUser
Set objOU = GetObject("LDAP://ou=" & ElevOU &
",ou=ELEVER,dc=sts,dc=local")
Set objUser = objOU.Create("User", "cn=" & UserName)
With objUser
.Put "sAMAccountName", UserName
.Put "userPrincipalName", UserName & "@sts.local"
.Put "GivenName", Fornavn
.Put "SN", Efternavn
.Put "DisplayName", UserName
.setinfo
end with
|