Pb script creation/ajout compte local dans groupe

Bonjour à tous,

Voici mon script :
strComputer = "."
Const ADS_UF_DONT_EXPIRE_PASSWD = &h10000

Set colAccounts = GetObject("WinNT://" & strComputer & "")
Set objUser = colAccounts.Create("user", "useradm")
objUser.SetPassword "init1236"

objPasswordExpirationFlag = objUserFlags OR ADS_UF_DONT_EXPIRE_PASSWD
objUser.Put "userFlags", objPasswordExpirationFlag

objUser.SetInfo

Set objGroup = GetObject("WinNT://" & strComputer & "/Administrateurs,group")
objGroup.Add("WinNT://" & strComputer & "/useradm")

J'ai une erreur "Relation d'approbation entre la station de travail et le
domaine a echouee" à la ligne objUser.SetInfo !

Quelqu'un comprend il pourquoi ? ce script est sensé créer un compte local
useradm et le rejouter dans le groupe administrateur !

Merci pour votre aide

Laurent