燈明日記 このページをアンテナに追加 RSSフィード

ごあいさつ

燈明日記へようこそ!!

燈明日記の主なテーマは、以下の通りです。

そして、燈明日記へ来られたのも『私』と『あなた』の何かのご縁です。なので、どうぞごゆっくりご覧下さい!


2008/2/19(火)

[] 有難嬉悲しメモ(2008/02/19)

  • 今朝もちゃんと起きられ、今日も会社に行けて、有り難かったです。
  • Javaで挫折したデザインパターンが、Perlでリベンジできそう・・・嬉しかったです。
  • なぜか毎日が不安で、ときたま挙動不審な自分に自分自身が驚き、悲しかったです。

[][] WebページからIEホームページ(レジストリ)を変更する

以下のようにIEのセキュリティ設定で、一箇所有効にするとWEBからレジストリ変更が出来ます。


以下のサンプルは、IEのホームページ(起動直後のページ)をサンプルソースページへ変更します。

サンプルソースページ以外のページへのカスタマイズは、「document.location」を任意URLへ替えてください。


サンプルソース

<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>

留意点

上記設定は、インターネットでは、お奨めしません。イントラネットでご利用ください。

また、レジストリ操作なので、操作を誤ると、Windowsが正常に動作しなくなったりします。自己責任で行ってください。