Tek-Tips is the largest IT community on the Internet today!

Members share and learn making Tek-Tips Forums the best source of peer-reviewed technical information on the Internet!

  • Congratulations Chriss Miller on being selected by the Tek-Tips community for having the most helpful posts in the forums last week. Way to Go!

Change mouse sentivity

Status
Not open for further replies.

Traver

MIS
Aug 9, 2002
126
DK
I have tried to change a users mouse sentivity, because he use a logitech keyboard, and a old ps/2 mouse. When he restarts the mousesentivity goes bach to default.

But the values in the
HKEY_USERS
doesn´t change



Option Explicit ' Force explicit variable declaration.
' Abstract: Prepare Mouse environment
' Customize: Change the variables below to correspond to your
' installation.
Const SystemDirectory = ".system\"
Const DrivesDirectory = "Drives\"
Const ScriptVersion = "v0.1"
Dim WshShell
Dim WshSysEnv
Dim SysDir
Dim fso 'SystemRoot
' Initial setup of vars
Set WSHShell = WScript.CreateObject("Wscript.Shell")
'Set WshNetwork = WScript.CreateObject("WScript.Network")
Set fso = CreateObject("Scripting.FileSystemObject")
WshShell.RegWrite "HKEY_CURRENT_USER\Control Panel\Mouse\MouseSensitivity","16", "REG_SZ"
WshShell.RegWrite "HKEY_CURRENT_USER\Control Panel\Mouse\MouseSpeed","1", "REG_SZ"
WshShell.RegWrite "HKEY_CURRENT_USER\Control Panel\Mouse\MouseThreshold1","6", "REG_SZ"
WshShell.RegWrite "HKEY_CURRENT_USER\Control Panel\Mouse\MouseThreshold2","10", "REG_SZ"
WshShell.RegWrite "HKCU\Software\Microsoft\Internet Explorer\Main\Start Page"," "REG_SZ"
WshShell.RegWrite "HKEY_USERS\S-1-5-21-1645522239-854245398-839522115-6140\Control Panel\Mouse\MouseSensitivity","16", "REG_SZ"
WshShell.RegWrite "HKEY_USERS\S-1-5-21-1645522239-854245398-839522115-6140\Control Panel\Mouse\MouseSpeed","1", "REG_SZ"
WshShell.RegWrite "HKEY_USERS\S-1-5-21-1645522239-854245398-839522115-6140\Control Panel\Mouse\MouseThreshold1","6", "REG_SZ"
WshShell.RegWrite "HKEY_USERS\S-1-5-21-1645522239-854245398-839522115-6140\Control Panel\Mouse\MouseThreshold2","10", "REG_SZ"
WshShell.RegWrite "HKEY_USERS\S-1-5-21-484763869-1450960922-839522115-500\Control Panel\Mouse\MouseSensitivity","16", "REG_SZ"
WshShell.RegWrite "HKEY_USERS\S-1-5-21-484763869-1450960922-839522115-500\Control Panel\Mouse\MouseSpeed","1", "REG_SZ"
WshShell.RegWrite "HKEY_USERS\S-1-5-21-484763869-1450960922-839522115-500\Control Panel\Mouse\MouseThreshold1","6", "REG_SZ"
WshShell.RegWrite "HKEY_USERS\S-1-5-21-484763869-1450960922-839522115-500\Control Panel\Mouse\MouseThreshold2","10", "REG_SZ"
 
Status
Not open for further replies.

Part and Inventory Search

Sponsor

Back
Top