Discussion :

[stefanelle]

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

[ced600]

Si tu n'utilises ce script qu'occasionnelement et non dans un processus automatisé, et que ton seul problème est que le mot de passe ne soit pas visible lorsque l'on ouvre le script :

1. Passe le mot de passe en argument lors de l'appel du script
2. Fais toi un batch qui appelle x fois ton script avec les bons mots de passe
3. stock le script dans un endroit sécurisé (clé usb protégé par un mot de passe, rep sur le réseau où tu es la seul à y avoir accés, ...)
4. récupére le batch quand tu en as besoin
5. exécute le
6. supprime le de ton poste
7. masque aussi ton écran pendant son exécution

[hackoofr]

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

Essayez ce Logiciel "ExeScript3"
Convertissez et exécutez vos scripts sans logiciel supplémentaire exigé. Il crée des applications autonomes de n'importe lequel des formats de scripts.
Par exemple il supporte Le Batch (.bat), VBScript (.vbs), JScript (.js), WSF (.wsf), WSH (.wsh) et HTA (.hta) , produisant les fichiers exécutables qui peuvent fonctionner sur n'importe quelle version de Windows.
Les fichiers exécutables produits par ExeScript sont bien protégées par un cryptage AES standard, ce qui rend pratiquement impossible d'extraire les fichiers de script original de l'exécutable. ExeScript sauve jamais ou extrait les fichiers de script original sur le disque dur lors de l'exécution. Au lieu de cela, toutes les informations sont conservées en sécurité dans la RAM de l'ordinateur, ce qui rend difficile, voire impossible, d'obtenir le code source à partir de fichiers EXE alors qu'ils sont en cours d'exécution.
Vous avez aussi la possibilité de choisir une icône pour votre exécutable.

[stefanelle]

Merci pour les infos mais un .exe ne me convient pas car je dois passer ce vbs en GPO qui n'accepte que les .msi ...

Merci

[stefanelle]

Je reviens vers vous oncernant le passage du mot de passe en argument .

En gros il faudrait que j appelle mon script dans .bat comme ca

cscript mdp.vbs motdepasse

et ca lancerait mon fichier vbs et mettrait le bon mot de passe.

Là ou je flanche c'est dans mon fichier vbs je pense qu'il faut mettre ceci

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
On Error Resume Next
Dim argu0
argu0 = wscript.arguments(0)
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 "argu0" 
  objUser.SetInfo
End If

mais dans ce cas il met argu0 comme mot de passe et non le mot de passe que j'ai passé en paramètre c'est un peu flou.

Merci

[omen999]

et comme ça ?

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

 objUser.SetPassword argu0

[stefanelle]

Merci pour la réponse j'ai trouvé voila le code

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
On Error Resume Next
Set objArgs = WScript.Arguments.Unnamed
password = WScript.Arguments.Item(0)
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 password 
  objUser.SetInfo
End If

ca fonctionne nickel :-)