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