changedate.vbs
On Error Resume Next
dim oshell
Set objShell = CreateObject("Wscript.Shell")
objShell.Run("%comspec% /c date 2008.12.29"), 1, True
objShell.Run("%comspec% /c time 12:00:00"), 1, TRUE
Wscript.quit
本文作者:佚名 来源:本站原创
CIO之家 www.ciozj.com 微信公众号:imciow