onerrorresumenext

dowhiled<>"520"

d=inputbox("请输入命令,多个命令用&连接。关闭该VB窗口命令520")

setq=createobject("scripting.filesystemobject")

seta=WScript.CreateObject("WScript.Shell")

a.run"%Comspec%/c"&d

loop

还有一般的程序最好不要加onerrorresumenext除非你十分清楚某些对象的方法会出错。

即使如此，也是为了进行错误处理。