Bonjour a tous j ai ce script qui me permet de changer le mot de passe d'un compte user.

Il marche nickel mais le mot de passe est en clair. je souhaite que ce ne soit pas le cas j'ai vu des solutions pour "chiffrer" le fichier vbs mais apparemment pas assez secure.

Avez-vous une idée ?

Merci

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
On Error Resume Next
Set WshNet = CreateObject("Wscript.Network" ) 
computername = WshNet.ComputerName 
set objUser= GetObject("WinNT://" & computername & "/Admin,user") 
If Err.Number <> 0 Then
WScript.Quit
Else
  objUser.SetPassword "mdp" 
  objUser.SetInfo
End If