WebページからIEのホームページ(レジストリ)を変更する
以下のようにＩＥのセキュリティ設定で、一箇所有効にするとＷＥＢからレジストリ変更が出来ます。
- 『インターネットオプションのセキュリティタブ』内の『レベルのカスタマイズ』クリックする。
- 『セキュリティ設定』ダイアログが表示される。その中の以下を有効にする。
- 『スクリプトを実行しても安全だとマークしていないActiveXコントロールの初期化とスクリプトの実行』
以下のサンプルは、ＩＥのホームページ（起動直後のページ）をサンプルソースページへ変更します。
サンプルソースページ以外のページへのカスタマイズは、「document.location」を任意ＵＲＬへ替えてください。
サンプルソース
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=Shift_JIS">
<title>WebページからIEのホームページ(レジストリ)を変更する</title>
</head>
<body>
<script language="VBScript">
chg_HomePage()
Function chg_HomePage()
If msgbox("IEのホームページを現ページに変更します。よろしいですか？",1) = 1 then
Set WshShell=CreateObject("WScript.Shell")
'RegReadメソッドで、レジストリ内の指定キー（現ホームページ）の設定値を取得する
msgbox("元のホームページ -> " & WshShell.RegRead("HKCU\Software\Microsoft\Internet Explorer\Main\Start Page"))
'レジストリ内の指定キーの設定値を第2引数に指定された値で更新。第3引数には、レジストリに格納する値のデータ型を指定する
WshShell.RegWrite "HKCU\Software\Microsoft\Internet Explorer\Main\Start Page",document.location, "REG_SZ"
msgbox("変更後のホームページ -> " & WshShell.RegRead("HKCU\Software\Microsoft\Internet Explorer\Main\Start Page"))
Set WshShell = Nothing
End If
End Function
</script>
</body>
</html>
