vbs changer valeur dword - VB/VBA/VBS - Programmation
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
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