' addrclk.vbs

Dim i,mes,tit
mes="このスクリプトは任意の右クリックメニューを追加します。"
tit="add right click menu"
intDoIt=MsgBox(mes,vbOKCancel+vbInformation,tit)
if i=vbCancel then WScript.Quit

Dim W,strName,strExe
Set W=WScript.CreateObject("WScript.Shell")
strName=InputBox("表示名を入力しろ")
strExe=InputBox("実行ファイル名を入力しろ")
W.RegWrite "HKCR\*\shell\"&strName&"\command\",chr(34)&strExe&chr(34)&" "&chr(34)&"%1"&chr(34)