获取当前日期方法一：

Currentdate1=date()
msgbox Currentdate1

获取当前日期方法二：

Currentdate2=year(Now)&"-"&Month(Now)&"-"&day(Now)
msgbox Currentdate2

获取当前时间：

CurrentTime=Hour(Now)&":"&Minute(Now)&":"&Second(Now)
m = "当前时间"& CurrentTime 
msgbox m

windows下使用VBS取当前日期的前一天，并修正输出格式

my_date1 = DateAdd("d",-1,date)

作用：取当前时间的前一天（当前时间以系统时间为准）并将结果赋予变量my_date1
my_date2 = DatePart("yyyy",my_date1) & "-" & Right("0" & DatePart("m",my_date1), 2) & "-" & Right("0" & DatePart("d",my_date1),2)

作用：不考虑系统设定的时间格式（默认为YYYY/M/D），修改输出时间格式为YYYY-MM-DD,并将结果赋予变量my_date2

查看输出的时间：

msgbox my_date1
msgbox my_date2

以上脚本在windows2003、2008下测试通过

vbs qq自动登录脚本改进版
OnErrorResumeNextDimWshShell,QQPath,QQselectsetwshshell=createobject("wscript.shell")setfso=createobject("scripting.filesystemobject")key="HKLMSOFTWARETencentPlatForm_TYPE_LIST1"QQPath=wshshell.r

vbs qq自动发信息增强版
运行前请确定你的电脑安装了word。i=0setwshshell=createobject("wscript.shell")SetobjWord=CreateObject("Word.Application")SetcolTasks=objWord.Tasksdowhilei30ForEachobjTaskincolTasksifleft(o

vbs实现的保存剪贴板中的文本并编辑或保存
保存剪贴板中的文本.vbs原理就是首先判断是否存在同名文件，存在就名字后面+1，然后将剪贴板的内容保存到自定义扩展名的文件里setfso=createobject("scrip