UiPath = "HKLM\Software\Microsoft\Windows\CurrentVersion\Uninstall\TweakUI\UninstallString"
Set WShell = WScript.CreateObject("WScript.Shell")
UiCmd = WShell.RegRead(UiPath)
i = Instr(4,UiCmd,"\")
UiCmd = Left(UiCmd,i) & "System32\" & Mid(UiCmd,i+1)
WShell.RegWrite UiPath,UiCmd