' IE のコンテキストメニューに [フレームを新しいウィンドウで開く] を追加します。
' (C) Windows.FAQ
' http://homepage2.nifty.com/winfaq/

Set FS = WScript.CreateObject("Scripting.FileSystemObject")
Set WShell = WScript.CreateObject("WScript.Shell")
Set WshEnv = WShell.Environment("Process")
Sysroot = WshEnv("WINDIR")

'レジストリキーの作成
RegPath1 = "HKCU\Software\Microsoft\Internet Explorer\MenuExt\フレームを新しいウィンドウで開く(&N)\"
RegData1 = "file://"+Sysroot+"\WEB\frame2new.htm"
WShell.RegWrite RegPath1,RegData1

RegPath2 = "HKCU\Software\Microsoft\Internet Explorer\MenuExt\フレームを新しいウィンドウで開く(&N)\contexts"
WShell.RegWrite RegPath2,01,"REG_BINARY"

'Internet Explorer 拡張 html の作成
txtHtml = "<script defer>" + vbCrLf
txtHtml = txtHtml + "open(external.menuArguments.location.href);"+ vbCrLf
txtHtml = txtHtml + "</script>"

Set oHtml = FS.CreateTextFile(Sysroot+"\web\frame2new.htm")
oHtml.Write(txtHtml)

WScript.Echo "処理が終了しました。"