vbs changer valeur dword

vbs changer valeur dword - VB/VBA/VBS - Programmation

Marsh Posté le 22-01-2006 à 11:47:10    

Bonjour à tous,
Voila ce que j'aimerais faire:
 
Dans la Base de registre , mettre à 1 le bit 8 de l'entrée de type DWORD et de nom "Type" (cela revient à effectuer un "OR" avec le nombre hexadécimal 0x100) .
par exemple : Type = 0x00000010 est à remplacer par  0x00000110  
 
Le problème est que lorsque je fait un GetDwordValue je récupère la valeur Décimale.
Comment je peux faire pour faire ma convertion et ensuite réattribuer la bonne valeur à ce Dword ?
Quelqu'un a t'il une idée?
 
Cordialement
Junt

Reply

Marsh Posté le 22-01-2006 à 11:47:10   

Reply

Marsh Posté le 24-01-2006 à 12:37:33    

Bonjour,
 
Essaye qqch du genre :
 
Set WshShell = CreateObject("WScript.Shell" )
 
sReg = "HKCU\Software\Microsoft\Windows\CurrentVersion\Policies\System\Type" '<- A Adapter
 
MaValeur = WshShell.RegRead(sReg) Or &H100
WshShell.RegWrite sReg, MaValeur, "REG_DWORD"
 
Set WshShell = Nothing
 
 
wape

Reply

Sujets relatifs:

Leave a Replay

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