VBScript/run - Sample is best!

run.vbs

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