dim aset ms=createobject("wscript.shell")a=inputbox("a = 记事本"+chr(13)+"b = 命令行提示符","请输入","a")if a="a" thenms.run "notepad.exe"else if a="b" thenms.run "cmd.exe"end ifend if
