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 
posted @ 2009-01-01 01:31  blueKnight  Views(1328)  Comments(0)  Edit  收藏  举报