Ajout compte local dans groupe et paramétrage compte

Bonjour,

Sur Script Center :
http://www.microsoft.com/technet/scriptcenter/default.mspx

strComputer = "atl-ws-01"
Set objGroup = GetObject("WinNT://" & strComputer & "/Administrators,group")
Set objUser = GetObject("WinNT://" & strComputer & "/kenmyer,user")
objGroup.Add(objUser.ADsPath)


Const ADS_UF_DONT_EXPIRE_PASSWD = &h10000
strDomainOrWorkgroup = "Fabrikam"
strComputer = "atl-win2k-01"
strUser = "KenMeyer"
Set objUser = GetObject("WinNT://" & strDomainOrWorkgroup & "/" & _
strComputer & "/" & strUser & ",User")
objUserFlags = objUser.Get("UserFlags")
objPasswordExpirationFlag = objUserFlags OR ADS_UF_DONT_EXPIRE_PASSWD
objUser.Put "userFlags", objPasswordExpirationFlag
objUser.SetInfo

Et encore :
Const ADS_UF_DONT_EXPIRE_PASSWD = &h10000
strComputer = "atl-win2k-01"
Set objUser = GetObject("WinNT://" & strComputer & "/kenmyer")
objUserFlags = objUser.Get("UserFlags")
objPasswordExpirationFlag = objUserFlags OR ADS_UF_DONT_EXPIRE_PASSWD
objUser.Put "userFlags", objPasswordExpirationFlag
objUser.SetInfo

Cdlt
Stéphane

"Laurent Langlois" <Laurent Langlois@discussions.microsoft.com> a écrit dans
le message de news: 77CC60D3-BA76-464E-BB7A-B1C56C980AB3@microsoft.com...

Bonjour à tous,

Voici le script que j'utilise pour créer des compte locaux sur des PC
distants :
strComputer = "."
Set colAccounts = GetObject("WinNT://" & strComputer & "")
Set objUser = colAccounts.Create("user", "TOTO")
objUser.SetPassword "password"
objUser.SetInfo

Questions :
comment faire pour les ajouter comme membre du groupe administrateur ou
d'autres groupes ?
Comment définir que l'utilisateur ne doit pas changer le mot de passe et
que
ce compte n'expire jamais ?

Merci d'avance
Laurent Langlois

Merci pour votre réponse.

Laurent Langlois

Bonjour à tous,

Voici le script que j'utilise pour créer des compte locaux sur des PC
distants :
strComputer = "."
Set colAccounts = GetObject("WinNT://" & strComputer & "")
Set objUser = colAccounts.Create("user", "TOTO")
objUser.SetPassword "password"
objUser.SetInfo

Questions :
comment faire pour les ajouter comme membre du groupe administrateur ou
d'autres groupes ?
Comment définir que l'utilisateur ne doit pas changer le mot de passe et que
ce compte n'expire jamais ?

Merci d'avance
Laurent Langlois