' VBScript strCommand = InputBox("プログラム名を入力してください(例:calc)") If strCommand <> "" Then Set obj = CreateObject("WScript.Shell") obj.Run(strCommand) End If