Show default browser (updated for Win10)
詳しいスクリプトはリンク先にて
面白いというかマメというか世界はレベルが高い。
まさかVBScriptをWindows 10 のためにアップデートするとは
次のプラットフォームで検証済み
Windows 10 はい
Windows Server 2012 いいえ
Windows Server 2012 R2 いいえ
Windows Server 2008 R2 はい
Windows Server 2008 はい
Windows Server 2003 いいえ
Windows 8 はい
Windows 7 はい
Windows Vista いいえ
Windows XP いいえ
Windows 2000 いいえ
WinXpやVistaは未検証というすごいスクリプト
The script uses the 'userchoice' registry key to find the web browser that is either the Windows standard or the chosen browser.
If no alternate browser has been installed the key is missing.
If an alternate browser is installed and selected as default, the key is created with values for Internet Explorer, Edge, Chrome, Firefox, Safari, Avant or Opera. Other browsers can be added to the script.
The search string for the Edge browser is preliminary, it can probably be shortened. I have access to only a few Windows 10 computers. Please report if there is problems with Edge detection.
'Userchoice' key is found in:
HKEY_CURRENT_USER\Software\Microsoft\Windows\Shell\Associations\UrlAssociations\http\UserChoice
The key is read only, it should never be modified manually!
Please tell in 'Q and A' if you know the signatures for other browsers so I can update the script.
このスクリプトはuserchoiceレジストリキーを使い、ウィンドウズの標準のブラウザかそうでないかを判定します。
代替ブラウザがなければキーはありません。
キーはIE,Edgde,Chrome,Firefox,Safari,Avant,Operaで造られます。
まだ未完成な部分があるので特にエッジの場合不具合があれば教えてください。なおこのキーは手動で書き換えできません。もしほかのブラウザとかあったらQAに乗せてください。更新しますよ。
ということ。
Wscript.Echoで関数をコールして呼び出す。この時配列を使ってブラウザの種類を設定している。違うブラウザがあれば、配列を変えないといけないので作者はこのように言っているようだ。