windows下利用VBS修改系统时间

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