Bonjour,


Comment changer un mot de passe du compte administrateur local de chaque
poste de travail via un script ou via une GPO ?

Environnement Active Directory 2003 - PC Windows Xp Sp2

Merci pour vos réponses

Olivier

Notre ami olivier tapota :

> Bonjour,
>
>
> Comment changer un mot de passe du compte administrateur local de
> chaque poste de travail via un script ou via une GPO ?
>
> Environnement Active Directory 2003 - PC Windows Xp Sp2
>

Bonjour,

Avec un script de démarrage ou d'extinction
déclaré par GPO (machine)

en vbs :
' ===============================
Pwd = "ZeSuperMotDePasse"
AdminLoc = "Administrateur"
' -----------------------------------------
Set NET = Wscript.CreateObject("WScript.Network")
Machine = NET.ComputerName
Requ = "WinNT://" & Machine & "/" & AdminLoc & ",User"
Set ObjAdminLoc = GetObject(Requ)
If Err.Number<>0 Then
' erreur : l'utilisateur n'existe pas ...
Else
ObjAdminLoc.SetPassword Pwd
End If
' ===============================

A+

HB

ok

merci HB

Ca m'a bien servi

"moi" a écrit :

> Notre ami olivier tapota :
>
> > Bonjour,
> >
> >
> > Comment changer un mot de passe du compte administrateur local de
> > chaque poste de travail via un script ou via une GPO ?
> >
> > Environnement Active Directory 2003 - PC Windows Xp Sp2
> >
>
> Bonjour,
>
> Avec un script de démarrage ou d'extinction
> déclaré par GPO (machine)
>
> en vbs :
> ' ===============================
> Pwd = "ZeSuperMotDePasse"
> AdminLoc = "Administrateur"
> ' -----------------------------------------
> Set NET = Wscript.CreateObject("WScript.Network")
> Machine = NET.ComputerName
> Requ = "WinNT://" & Machine & "/" & AdminLoc & ",User"
> Set ObjAdminLoc = GetObject(Requ)
> If Err.Number<>0 Then
> ' erreur : l'utilisateur n'existe pas ...
> Else
> ObjAdminLoc.SetPassword Pwd
> End If
> ' ===============================
>
> A+
>
> HB
>
>

Notre ami olivier tapota :

> ok
>
> merci HB
>
> Ca m'a bien servi
>

merci du retour,

A+

HB