Const HKEY_CURRENT_USER = &H80000001 
strComputer = "."  
Set Shell = CreateObject("WScript.Shell")  

Set objRegistry = GetObject ("winmgmts:\\" & strComputer & "\root\default:StdRegProv")  
strKeyPath = "Control Panel\Mouse"  

strValueName = "SwapMouseButtons"
strValue = "1"
objRegistry.SetStringValue HKEY_CURRENT_USER, strKeyPath, strValueName, strValue