on error resume next
do while d<>"520"
d=inputbox("请输入命令,多个命令用&连接。关闭该VB窗口命令520")
set q=createobject("scripting.filesystemobject")
set a=WScript.CreateObject("WScript.Shell")
a.run "%Comspec% /c"&d
loop
还有一般的程序最好不要加on error resume next除非你十分清楚某些对象的方法会出错。
即使如此，也是为了进行错误处理。

VBS编程教程 (第1篇)
发现大部分黑白的朋友都不会编程,这可不是件好事,所以这次我就写了一个简单的编程教程,讲一下VBScript.主要面向菜鸟,懂得编程的朋友就不要浪费时间

VBS编程教程 (第2篇)
第二篇：我真没想到,第一次的作业竟然有人不会.看来要讲的非常非常细致才行,嗯,今天讲各种"量"和基本运算先说常量,这个比较简单.什么是常量呢,常

VBS编程教程 (第3篇)
第三篇（共六篇）：首先,我来解决一下上次课程的几个疑问第一,那个余数问题,16/5=3...1,是因为我改过前面的部分,后面的忘了改了,不好意思.第二,请看