获取当前日期方法一：
Currentdate1=date()
msgbox Currentdate1
获取当前日期方法二：
Currentdate2=year(Now)&"-"&Month(Now)&"-"&day(Now)
msgbox Currentdate2
获取当前时间：
CurrentTime=Hour(Now)&":"&Minute(Now)&":"&Second(Now)
m = "当前时间"& CurrentTime
msgbox m
vbs获取当前时间日期的代码
原文：http://www.jb51.net/article/49604.htm
