Lecture et modification d'une clé de registre

**aurel51100** · 18/09/2015, 09h17

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 :

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

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.

**SfJ5Rpw8** · 26/09/2015, 23h35

bonsoir,

pour l'écriture essai :

Code :

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

WshShell.RegWrite "HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows NT\CurrentVersion\Winlogon\DefaultUserName", mdp

**BRRNG37** · 10/11/2020, 16h25

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 :

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

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

**ProgElecT** · 10/11/2020, 18h09

Salut

Je ne pas sûr qu'il soit possible de créer/modifier/supprimer ce type de clef.
Pour autant, je suis sur windows 10 Professionnel et je n'ai pas cette clef EnableUA.
donc si elle n'existe pas, ta variable = Empty , donc pas de passge dans ta condition IfAutre chose, tu n'as pas déclaré la variable CleRegistre, vue que tu as un On Error Resume Next au moment ou tu lui donnes une valeur, ERREUR: variable non déclarée, mais comme tu as le traitement d'erreur, ben ton programme prend fin sans t'alerter.

Le code devient:

Code :

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

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
36
Option Explicit
 
'*** Déclaration des variables
Dim ObjetRegedit, CleRegistre
 
'*** 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")
 
'*** recuperation du contenu de la clef, placement dans la variable "CleRegistre"
CleRegistre = ObjetRegedit.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 TypeName(CleRegistre) = "Empty" Then
	MsgBox "Clef registre inexistante"
	Else
	If CleRegistre = "1" then
		'*** Suppression de la clé de registre
		ObjetRegedit.RegDelete "HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\CurrentVersion\Policies\System\EnableUA"
 
		'*** Création des valeurs et son type "REG_DWORD".
		ObjetRegedit.RegWrite "HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\CurrentVersion\Policies\System\EnableUA", "0", "REG_DWORD"
	End If
End if
On Error GoTo 0
 
'*** Destruction des objets
Set ObjetRegedit = Nothing
 
'*** Quitter le script
WScript.Quit

Attention rien de garantie, que je l'écris en première ligne.

**BRRNG37** · 10/11/2020, 19h38

Je ne sais pas si c'est enableUA ou enableLUA.

Même avec les modification rien ne change.

**ProgElecT** · 10/11/2020, 21h20

Re

Avec ce code je parvient bien au message Je suis bien passé dans le If de CleRegistre = 1, j'ai bien la clef EnableUA, mais je n'ai pas voulue la modifier, c'est pourquoi j'ai mis en commentaire le Delete, recréation et valeur à "0"

Code :

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

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
36
37
38
Option Explicit
 
'*** Déclaration des variables
Dim ObjetRegedit, CleRegistre
 
'*** 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")
 
'*** recuperation du contenu de la clef, placement dans la variable "CleRegistre"
CleRegistre = ObjetRegedit.RegRead ("HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\CurrentVersion\Policies\System\EnableLUA")
 
'*** 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 TypeName(CleRegistre) = "Empty" Then
	MsgBox "Clef registre inexistante"
	Else
	MsgBox "Valeur de CleRegistre "& CleRegistre
	If CleRegistre = "1" then
		'*** Suppression de la clé de registre
	'	ObjetRegedit.RegDelete "HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\CurrentVersion\Policies\System\EnableLUA"
 
		'*** Création des valeurs et son type "REG_DWORD".
	'	ObjetRegedit.RegWrite "HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\CurrentVersion\Policies\System\EnableLUA", "0", "REG_DWORD"
	MsgBox "Je suis bien passé dans le If de CleRegistre = 1"
	End If
End if
On Error GoTo 0
 
'*** Destruction des objets
Set ObjetRegedit = Nothing
 
'*** Quitter le script
WScript.QuitQuit

**BRRNG37** · 10/11/2020, 21h35

J'obtiens les messages "Valeur de CleRegistre 1" puis Je suis bien passé dans le If de CleRegistre=1 puis une erreur. Nom : 2.png
Affichages : 1666
Taille : 10,5 Ko

Nom : 2.png
Affichages : 1666
Taille : 10,5 Ko

**BRRNG37** · 10/11/2020, 22h05

Envoyé par BRRNG37

J'obtiens les messages "Valeur de CleRegistre 1" puis Je suis bien passé dans le If de CleRegistre=1 puis une erreur. Nom : 2.png
Affichages : 1666
Taille : 10,5 Ko

L'erreur vient du Wscript à la fi du script

**ProgElecT** · 10/11/2020, 22h07

Code :

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

1
2
'*** Quitter le script
WScript.QuitQuit

pas bon, j'ai doublé le Quit, il faut remplacer par WScript.QuiModifies la partie If de cette façon

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
If TypeName(CleRegistre) = "Empty" Then
	MsgBox "Clef registre inexistante"
	Else
	MsgBox "Valeur de CleRegistre " & CleRegistre
	If CleRegistre = "1" then
		'*** Suppression de la clé de registre
	'	ObjetRegedit.RegDelete "HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\CurrentVersion\Policies\System\EnableLUA"
 
		'*** Création des valeurs et son type "REG_DWORD".
	'	ObjetRegedit.RegWrite "HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\CurrentVersion\Policies\System\EnableLUA", "0", "REG_DWORD"
        	MsgBox "Je suis bien passé dans le If de CleRegistre = 1, passage à valeur 0 FAIT"
        	Else
        	MsgBox "Je suis bien passé dans le If de CleRegistre = 0, donc pas de modification"
	End If
End if

**BRRNG37** · 10/11/2020, 22h11

J'obtiens le message comme quoi c'est fait mais ce n'est pas le cas, la valeur est toujours à 1.

MsgBox "Je suis bien passé dans le If de CleRegistre = 1, passage à valeur 0 FAIT"

**ProgElecT** · 10/11/2020, 22h16

Envoyé par BRRNG37

J'obtiens le message comme quoi c'est fait mais ce n'est pas le cas, la valeur est toujours à 1....

D’où la première indication/doute de la possibilité de modifier ce type de clef avec du code VBScript, sécurité oblige sinon se serait trop simple.

Mais d'autre forumeurs passant par là pourront me contre dire.

Edit:
dernier essai de cette façon
ObjetRegedit.RegWrite "HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\CurrentVersion\Policies\System\EnableLUA", "0" sans préciser le type de la valeur.

Tu peux aussi potasser dans la FAQ: Manipuler la base de registre

**BRRNG37** · 10/11/2020, 22h30

Donc ce n'est pas possible avec le VBScript.

J'ai essayé le PowerShell mais je suis complément perdu.

Arès je suis ouvert à une autre méthode pour contourner l'UAC.

**BRRNG37** · 11/11/2020, 13h18

J'ai trouvé ces commandes.

Désactivation de l'UAC :

REG ADD HKLM\SOFTWARE\Microsoft\Windows\CurrentVersion\Policies\System /v EnableLUA /t REG_DWORD /d 0 /f

Activation de l'UAC :
REG ADD HKLM\SOFTWARE\Microsoft\Windows\CurrentVersion\Policies\System /v EnableLUA /t REG_DWORD /d 1 /f

Est il possible de les insérer dans un vbscript ?

**BRRNG37** · 11/11/2020, 18h12

Vous ne connaissez pas ?

Lecture et modification d'une clé de registre

VBScript

Discussions similaires

Partager

Partager