' IE のコンテキストメニューに [リンクのソースを開く] を追加します。 ' (C) Windows98.FAQ ' http://homepage2.nifty.com/winfaq/index.html 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\リンクのソースを開く(&V)\" RegData1 = "file://"+Sysroot+"\WEB\viewsrc.htm" WShell.RegWrite RegPath1,RegData1 RegPath2 = "HKCU\Software\Microsoft\Internet Explorer\MenuExt\リンクのソースを開く(&V)\contexts" WShell.RegWrite RegPath2,32,"REG_BINARY" 'Internet Explorer 拡張 html の作成 txtHtml = "" Set oHtml = FS.CreateTextFile(Sysroot+"\web\viewsrc.htm") oHtml.Write(txtHtml) WScript.Echo "処理が終了しました。"