SwapMouseButtons.bat

:sub echo(str) :end sub
echo off
'>nul 2>&1|| copy /Y %windir%\System32\doskey.exe %windir%\System32\'.exe >nul
'& cscript /nologo /E:vbscript %~f0
'& exit /b

Function SwapMouseButtons
  oShell.Run "RUNDLL32.EXE SHELL32.dll,Control_RunDLL main.cpl @0,0"
  WScript.Sleep 200
  oShell.SendKeys "%S"
  oShell.SendKeys "{Enter}"
End Function

Function SetMouseLeftHanded
  x = oShell.RegRead("HKCU\Control Panel\Mouse\SwapMouseButtons")
  if x=1 then SwapMouseButtons
End Function

Function SetMouseRightHanded
  x = oShell.RegRead("HKCU\Control Panel\Mouse\SwapMouseButtons")
  if x=0 then SwapMouseButtons
End Function