判断系统时间为星期几；
dim sysdate,sysweek,sysweekdayname
sysdate=date
sysweek=weekday(sysdate)
sysweekdayname=weekdayname(sysweek,true)
if sysweekdayname="星期一" then
msgbox sysweekdayname
如果 Sub 过程无任何参数，则 Sub 语句必须包含空括号 ()。 下面的 Sub 过程使用两个固有的（或内置的）VBScript 函数，即 MsgBox 和 InputBox，来提示用户输入信息。然后显示根据这些信息计算的结果。计算由使用 VBScript 创建的 Function 过程完成。此过程在以下讨论之后演示。 Sub ConvertTemp() temp = InputBox("请输
有时候我们需要批处理一些Excel文件，Vbscript可以帮助我们用简单的程序实现之。Vbscript脚本保存为.vbs文件，则可以双击运行，非常方便。
这个是示例代码，请保存为 run.vbs 文件：
' on error resume next ' define params: dim ExcelApp dim objWork
