Lecture et modification d'une clé de registre
Bonjour,
Je suis totalement débutant dans le vbs et c'est bien la première fois que je fais un script et je suis assez fière car au moins une des fonctions fonctionne.
Mon idée de base est de pouvoir lire la clé (dans l'exemple le compte d'autologon), de l'afficher e de pouvoir la modifier avec une inputbox.
J'arrive à afficher l'inputbox, à afficher la valeur de la clé, mais pas à la modifier.
Voici le code que j'ai mit (avec ce que j'ai pu trouver sur le net)
Code:
1 2 3 4
| Dim WshShell
Set WshShell = WScript.CreateObject("WScript.Shell")
mdp = InputBox ("Ancien mot de passe : "& WshShell.RegRead ("HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows NT\CurrentVersion\Winlogon\DefaultUserName") &Chr (13) &Chr (13) &Chr (13) &Chr (13) &"Entrez le nouveau mot de passe :" , "Gestion des mots de passe de session" , "")
WshShell.RegWrite "HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows NT\CurrentVersion\Winlogon\DefaultUserName", mdp="" |
Pourriez vous m'aider car la je ne sais pas trop comment récupérer la valeur.
Merci d'avance.
Désactivation UAC vbscript
Bonjour, je voudrais désactiver l'UAC en supprimant la clé lorsqu'elle est à 1 pour ensuite la recréer mais avec 0.
Le script fonctionne avec une autre valeur mais pas pour l'UAC, j'aimerai avoir de l'aider pour savoir si mon script comporte des erreurs ou pas. Merci
Code:
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35
| Option Explicit
'*** Déclaration des variables
Dim ObjetRegedit, WshShell
'*** Permet de continuer le script même s'il y a une erreur
On Error Resume Next
'*** Definition du contenu de la variable
Set ObjetRegedit = CreateObject("WScript.Shell")
Set WshShell = WScript.CreateObject("WScript.Shell")
'*** Definition du contenu de la variable "CleRegistre"
CleRegistre = WshShell.RegRead ("HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\CurrentVersion\Policies\System\EnableUA")
'*** Lecture de la clé de registre et si la valeur est égale à "0"
'*** Action si "La clé est égale à 0" passer au rajout de la ligne dans le fichier host sinon si "La clé est égale à 1", supprimer
'*** la clé puis créer la clé avec la valeur 0
If CleRegistre = "1" then
'*** Suppression de la clé de registre
WshShell.RegDelete "HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\CurrentVersion\Policies\System\EnableUA"
'*** Création des valeurs et son type "REG_DWORD".
WshShell.RegWrite "HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\CurrentVersion\Policies\System\EnableUA", "0", "REG_DWORD"
End if
On Error GoTo 0
'*** Destruction des objets
Set ObjetRegedit = Nothing
'*** Quitter le script
WScript.Quit |