Twitter iPhone pliant OnePlus 11 PS5 Disney+ Orange Livebox Windows 11

Pb script creation/ajout compte local dans groupe

1 réponse
Avatar
Laurent Langlois
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

1 réponse

Avatar
Stéphane [MS]
Bonjour,

Réponse, peut-être, un peu tardive...

Il manque la définition de objUserFlags par :
objUserFlags = objUser.Get("UserFlags")

Cdlt
Stéphane

"Laurent Langlois" a écrit dans
le message de news:
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