vbs - Invert Mouse wheel

 Invert Mouse wheel

Call test()
msgbox("Done!! Please restart to take effect")


Sub test()
  Set objShell = CreateObject("Wscript.Shell")
 'objShell.Run ("powershell.exe -noexit write-host Hello world -exit")
 'objShell.Run ("powershell.exe -noexit Get-ItemProperty HKLM:\SYSTEM\CurrentControlSet\Enum\HID\*\*\Device` Parameters FlipFlopWheel -EA 0")
 objShell.Run ("powershell.exe -noexit Get-ItemProperty HKLM:\SYSTEM\CurrentControlSet\Enum\HID\*\*\Device` Parameters FlipFlopWheel -EA 0 | ForEach-Object { Set-

ItemProperty $_.PSPath FlipFlopWheel 1 }")
End Sub

'View registry path
'Get-ItemProperty HKLM:\SYSTEM\CurrentControlSet\Enum\HID\*\*\Device` Parameters FlipFlopWheel -EA 0

'Change registry settings
'Get-ItemProperty HKLM:\SYSTEM\CurrentControlSet\Enum\HID\*\*\Device` Parameters FlipFlopWheel -EA 0 | ForEach-Object { Set-ItemProperty $_.PSPath FlipFlopWheel 1 }

'Restore
'Get-ItemProperty HKLM:\SYSTEM\CurrentControlSet\Enum\HID\*\*\Device` Parameters FlipFlopWheel -EA 1 | ForEach-Object { Set-ItemProperty $_.PSPath FlipFlopWheel 0 }