mot de passe dans vbs

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:

---

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

---

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 ;)

Citation:

---

Envoyé par 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:

---

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

---

---

:salut:
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.

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

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:

---

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

et comme ça ?

Code:

---

objUser.SetPassword argu0

---

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

Code:

---

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 :-)