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