Set Sh = WScript.CreateObject("WScript.Shell")
on error resume next
cle1 = Sh.RegRead("HKEY_CURRENT_USER\Control Panel\Keyboard\InitialKeyboardIndicators") 
cle2 = Sh.RegRead("HKEY_USERS\.DEFAULT\Control Panel\Keyboard\InitialKeyboardIndicators") 
if cle1="" or cle2="" then 
WScript.echo "configuration non compatible"
WScript.Quit
end if
on error goto 0
Sh.RegWrite "HKEY_CURRENT_USER\Control Panel\Keyboard\InitialKeyboardIndicators","2" 
Sh.RegWrite "HKEY_USERS\.DEFAULT\Control Panel\Keyboard\InitialKeyboardIndicators","2" 
MsgBox "Rebootez l'ordinateur pour tester la modification"