Submitted By: Fernando Codina

Disables mouse acceleration on a computer. As written, the script disables acceleration; however, if you want to enable acceleration, just change the strValue variable to = "1".

Visual Basic
Const HKEY_CURRENT_USER = &H80000001
strComputer = InputBox("Enter the name of the computer")

Set objReg = GetObject("winmgmts:{impersonationLevel=impersonate}!\\" & _
strComputer & "\root\default:StdRegProv")

strKeyPath = "Control Panel\Mouse"
strEntryName = "MouseSpeed"
strValue = "0"
objReg.SetStringValue HKEY_CURRENT_USER, strKeyPath, _
strEntryName, strValue