Error de automatización

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

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