changer la valeurs d'une cle dans la Base de registre

changer la valeurs d'une cle dans la Base de registre - VB/VBA/VBS - Programmation

Marsh Posté le 25-11-2013 à 11:55:28    

Bonjour,  
 
je dois verifier une cle dans la registre pour savoir si sa valeurs est bien 0 et si elle est a 1 la passer a 0
Je ne sais pas trop comment faire ceci car c'est la premiere fois que je script dans la base de registre.
 
donc je fait une lecture dans la base et il me trouve bien la cle.
Set WshShell = Wscript.CreateObject("Wscript.shell" )
WshShell.RegRead ("HKLM\SOFTWARE\Microsoft\Windows\CurrentVersion\Policies\System\EnableLUA" )
if err.number = 1 then
MsgBox " valeurs de la cle = 0"  
else
MsgBox " valeurs de la cle = 1"
end if  
(j'ai mis les msgbox pour verifier si il trouver bien la cle)
 
comment puis je lui dire d'aller modifier la cle si elle est a 1 ?  
 
merci de vos reponses
icdk76800

Reply

Marsh Posté le 25-11-2013 à 11:55:28   

Reply

Marsh Posté le 25-11-2013 à 12:14:02    

J'ai pas très bien compris ce que tu essaies de faire avec ton

Code :
  1. if err.number = 1


 
Ce code ne fonctionne pas ?

Code :
  1. bkey = WshShell.RegRead ("HKLM\SOFTWARE\Microsoft\Windows\CurrentVersion\Policies\System\EnableLUA" )
  2. If bKey = 1
  3.    WshShell.RegWrite "HKLM\SOFTWARE\Microsoft\Windows\CurrentVersion\Policies\System\EnableLUA", 0, "REG_BINARY"
  4. End If


---------------
J'ai un string dans l'array (Paris Hilton)
Reply

Sujets relatifs:

Leave a Replay

Make sure you enter the(*)required information where indicate.HTML code is not allowed