questorfla said: View Post

Help!
I was able to solve most of the problems using a VBS script
The original wasn't my work. It was made for Chrome but I modified it to add Acrobat
The last problem is Outlook. Due to naming conventions outlook%202016 will not work
but it has to represent "outlook 2016" in the script in order to work properly
Any ideas on how to fix this? I am sure it is easy and i will find it eventually but....
here is the part that works. I would think that this can be added to for as many programs as needed is done properly
enter copied code for each program after the line
WshShell.SendKeys " "
I am sure you can see where it repeats for adobe.
By the way, Adobe MUST come after Chrome in order for things to work right.
Many Thanks to the original posted on Super User :
https://superuser.com/questions/1069...ser-windows-10

Code:
Set WshShell = WScript.CreateObject("WScript.Shell")
WshShell.Run "%windir%\system32\control.exe /name Microsoft.DefaultPrograms /page pageDefaultProgram\pageAdvancedSettings?
pszAppName=google%20chrome"
WScript.Sleep 1200
WshShell.SendKeys "{TAB}"
WshShell.SendKeys " "
WshShell.SendKeys "{TAB}"
WshShell.SendKeys "{TAB}"
WshShell.SendKeys " "
Set WshShell = WScript.CreateObject("WScript.Shell")
WshShell.Run "%windir%\system32\control.exe /name Microsoft.DefaultPrograms /page pageDefaultProgram\pageAdvancedSettings?
pszAppName=adobe%20acrobat%20reader%20dc"
WScript.Sleep 1200
WshShell.SendKeys "{TAB}"
WshShell.SendKeys " "
WshShell.SendKeys "{TAB}"
WshShell.SendKeys "{TAB}"
WshShell.SendKeys " "
WScript.Quit

I just went down this exact path
The appRegName is specified in HKEY_LOCAL_MACHINE (orHKEY_CURRENT_USER)\SOFTWARE\RegisteredApplications

Outlook 2016 is registered as outlook.application.2016 (I initially thought the %202016 was causing issues.. but percent-encoding only accepts 2 characters as input.. so the app name had to be incorrect.)

The command you want to add for outlook 2016 will be WshShell.Run "%windir%\system32\control.exe /name Microsoft.DefaultPrograms /page pageDefaultProgram\pageAdvancedSettings?pszAppName=outlook.application.16"