Error de automatización

26/11/2004 - 13:33 por Josep Fontanals Dotras | Informe spam
Public Function CreateUserHomeDirectory()
Dim ou As IADsContainer
Const Wait_on_return = True
Const HIDE_WINDOW = 0
Const User_root_unc = "\\dc1\users" 'Set Home Folder location Here

Set ou = GetObject("LDAP://cn=Users,Dc=domhesnt,dc=local")
'Create user
Set usr = ou.Create("user", "CN=James Smith")
usr.Put "samAccountName", "jsmith"
usr.Put "sn", "Smith"
usr.Put "givenName", "james"
usr.Put " userPrincipalname", "jsmith@domhesnt.scs.es"
usr.SetInfo 'Siempre da error de automatizacion

Alguien sabe porque la instruccion usr.Setinfo siempre me da error de
automatización

Atentamente

Josep Fontanals
 

Leer las respuestas

#1 Marc [MVP Windows]
26/11/2004 - 13:48 | Informe spam
Prueba quitando

usr.Put "sn", "Smith"
usr.Put "givenName", "james"
usr.Put " userPrincipalname", ""


Saludos,

Marc
MCP - MVP Windows Shell/User
Oracle9i Certified Associate (OCA)

Este mensaje se proporciona "como está" sin garantías de ninguna clase, y no otorga ningún derecho.

"Josep Fontanals Dotras" escribió en el mensaje news:OiMT$
Public Function CreateUserHomeDirectory()
Dim ou As IADsContainer
Const Wait_on_return = True
Const HIDE_WINDOW = 0
Const User_root_unc = "\\dc1\users" 'Set Home Folder location Here

Set ou = GetObject("LDAP://cn=Users,Dc=domhesnt,dc=local")
'Create user
Set usr = ou.Create("user", "CN=James Smith")
usr.Put "samAccountName", "jsmith"
usr.Put "sn", "Smith"
usr.Put "givenName", "james"
usr.Put " userPrincipalname", ""
usr.SetInfo 'Siempre da error de automatizacion

Alguien sabe porque la instruccion usr.Setinfo siempre me da error de
automatización

Atentamente

Josep Fontanals


Preguntas similares