Set WshShell = WScript.CreateObject(“WScript.Shell”)
‘ Acceleration Levels go from 0 to 5. 0=full, 5=none
intAccelLevel = 0
strInputString = WScript.StdIn.ReadLine
intStartLocation = instr(1, strInputString,”SystemCurrentControlSet”)
strPartKey = right(strInputString, len(strInputString) – intStartLocation +1)
strNewKey = strPartKey & “Acceleration.Level”
WshShell.RegWrite strNewKey, intAccelLevel,”REG_DWORD”