dim obj,ipt ipt=InputBox("输入BAT的参数","title") set obj=createobject("wscript.shell") obj.run "1.bat " & ipt set obj=nothing复制代码