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

Comment changer le mot de passe ...

3 réponses
Avatar
olivier
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

3 réponses

Avatar
moi
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

Avatar
olivier
ok

merci HB

Ca m'a bien servi


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





Avatar
moi
Notre ami olivier tapota :

ok

merci HB

Ca m'a bien servi



merci du retour,

A+

HB