Si votre email correspond à un compte, vous recevrez un lien de réinitialisation.
Bonjour à tous,Voici mon script :strComputer = "."Const ADS_UF_DONT_EXPIRE_PASSWD = &h10000Set colAccounts = GetObject("WinNT://" & strComputer & "")Set objUser = colAccounts.Create("user", "useradm")objUser.SetPassword "init1236"objPasswordExpirationFlag = objUserFlags OR ADS_UF_DONT_EXPIRE_PASSWDobjUser.Put "userFlags", objPasswordExpirationFlagobjUser.SetInfoSet objGroup = GetObject("WinNT://" & strComputer &"/Administrateurs,group")objGroup.Add("WinNT://" & strComputer & "/useradm")J'ai une erreur "Relation d'approbation entre la station de travail et ledomaine a echouee" à la ligne objUser.SetInfo !Quelqu'un comprend il pourquoi ? ce script est sensé créer un compte localuseradm et le rejouter dans le groupe administrateur !Merci pour votre aideLaurent
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