Revisions to How to automate setting Chrome as default browser in Windows 10

Added link to other answer; restored some of the original wording; improved formatting and capitalization.

Source Link

edited Jan 15, 2018 at 16:34

7.9k
22
41
87

Take the script from the first answerJudy Li’s answer and tweak it.

    Option Explicit
    
     Dim oShell, sWinDir
    
      Set oShell = WScript.CreateObject("WScript.Shell")
    
       sWinDir = oShell.ExpandEnvironmentStrings("%WINDIR%")
    
       oShell.Run sWinDir & "\system32\control.exe /name Microsoft.DefaultPrograms /page pageDefaultProgram"
    
    Set oShell = Nothing
    
  WScript.Quit

Option Explicit
Dim oShell, sWinDir
Set oShell = WScript.CreateObject("WScript.Shell")
sWinDir = oShell.ExpandEnvironmentStrings("%WINDIR%")
oShell.Run sWinDir & "\system32\control.exe /name Microsoft.DefaultPrograms /page pageDefaultProgram"
Set oShell = Nothing
WScript.Quit

Save it on Desktopyour desktop as SetDefaultProgamsa .vbs file (e.vbsg., then double clickSetDefaultProgams.vbs). Double clicking it, will bring muchup the more familiar Set Default Programs with with the list on the left, like previous versions of Windows 10 10.

This Script was tested by me on Windows Version 10.0.16299.192.(Of course there are other ways to invoke a program / script. You could put it on your Start Menu, or run it through CMD or PowerShell.)

This script was tested by me on Windows version 10.0.16299.192.

Take the script from the first answer and tweak it.

    Option Explicit
    
     Dim oShell, sWinDir
    
      Set oShell = WScript.CreateObject("WScript.Shell")
    
       sWinDir = oShell.ExpandEnvironmentStrings("%WINDIR%")
    
       oShell.Run sWinDir & "\system32\control.exe /name Microsoft.DefaultPrograms /page pageDefaultProgram"
    
    Set oShell = Nothing
    
  WScript.Quit

Save it on Desktop as SetDefaultProgams.vbs, then double click it, will bring much familiar Set Default Programs with the list on the left, like previous versions of Windows 10.

This Script was tested by me on Windows Version 10.0.16299.192.

Take the script from Judy Li’s answer and tweak it.

Option Explicit
Dim oShell, sWinDir
Set oShell = WScript.CreateObject("WScript.Shell")
sWinDir = oShell.ExpandEnvironmentStrings("%WINDIR%")
oShell.Run sWinDir & "\system32\control.exe /name Microsoft.DefaultPrograms /page pageDefaultProgram"
Set oShell = Nothing
WScript.Quit

Save it on your desktop as a .vbs file (e.g., SetDefaultProgams.vbs). Double clicking it will bring up the more familiar Set Default Programs with the list on the left, like previous versions of Windows 10.

(Of course there are other ways to invoke a program / script. You could put it on your Start Menu, or run it through CMD or PowerShell.)

This script was tested by me on Windows version 10.0.16299.192.

Applied the CODE tool on Script and modified the Text also.

Source Link

edit approved Jan 15, 2018 at 15:30

Rajesh Sinha

9.3k
6
17
37

Take the script from the first answer and tweak it:

Option Explicit

Dim oShell, sWinDir

Set oShell = WScript.CreateObject("WScript.Shell")

sWinDir = oShell.ExpandEnvironmentStrings("%WINDIR%")

oShell.Run sWinDir & "\system32\control.exe /name Microsoft.DefaultPrograms /page pageDefaultProgram"

Set oShell = Nothing

WScript.Quit

    Option Explicit
    
     Dim oShell, sWinDir
    
      Set oShell = WScript.CreateObject("WScript.Shell")
    
       sWinDir = oShell.ExpandEnvironmentStrings("%WINDIR%")
    
       oShell.Run sWinDir & "\system32\control.exe /name Microsoft.DefaultPrograms /page pageDefaultProgram"
    
    Set oShell = Nothing
    
  WScript.Quit

Save it on your desktopDesktop as SetDefaultProgams.vbs. Double clicking, then double click it, will bring up the more much familiar Set Default Programs with the list on the left, like previous versions of Windows 10.

Tested before posting on Microsoft Windows [Version 10.0.16299.192]This Script was tested by me on Windows Version 10.0.16299.192.

Take the script from the first answer and tweak it:

Option Explicit

Dim oShell, sWinDir

Set oShell = WScript.CreateObject("WScript.Shell")

sWinDir = oShell.ExpandEnvironmentStrings("%WINDIR%")

oShell.Run sWinDir & "\system32\control.exe /name Microsoft.DefaultPrograms /page pageDefaultProgram"

Set oShell = Nothing

WScript.Quit

Save it on your desktop as SetDefaultProgams.vbs. Double clicking it will bring up the more familiar Set Default Programs with the list on the left like previous versions of Windows 10.

Tested before posting on Microsoft Windows [Version 10.0.16299.192]

Take the script from the first answer and tweak it.

    Option Explicit
    
     Dim oShell, sWinDir
    
      Set oShell = WScript.CreateObject("WScript.Shell")
    
       sWinDir = oShell.ExpandEnvironmentStrings("%WINDIR%")
    
       oShell.Run sWinDir & "\system32\control.exe /name Microsoft.DefaultPrograms /page pageDefaultProgram"
    
    Set oShell = Nothing
    
  WScript.Quit

Save it on Desktop as SetDefaultProgams.vbs, then double click it, will bring much familiar Set Default Programs with the list on the left, like previous versions of Windows 10.

This Script was tested by me on Windows Version 10.0.16299.192.

Source Link

created Jan 15, 2018 at 2:26

user862314

1

Take the script from the first answer and tweak it:

Option Explicit

Dim oShell, sWinDir

Set oShell = WScript.CreateObject("WScript.Shell")

sWinDir = oShell.ExpandEnvironmentStrings("%WINDIR%")

oShell.Run sWinDir & "\system32\control.exe /name Microsoft.DefaultPrograms /page pageDefaultProgram"

Set oShell = Nothing

WScript.Quit

Save it on your desktop as SetDefaultProgams.vbs. Double clicking it will bring up the more familiar Set Default Programs with the list on the left like previous versions of Windows 10.

Tested before posting on Microsoft Windows [Version 10.0.16299.192]

Stack Exchange Network

Return to Answer