' delrclk.vbs

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

Dim W,strName,strExe
Set W=WScript.CreateObject("WScript.Shell")
strName=InputBox("削除する表示名を入力しろ")
W.RegDelete"HKCR\*\shell\"&strName&"\command\"
W.RegDelete"HKCR\*\shell\"&strName&"\"