系統(tǒng)時間總是自動改為2003年1月日等情況，可用以下方法解決，一，殺毒，二，（此方法比較實用）可用vbs同步系統(tǒng)時間，三，開機(jī)按住del進(jìn)入cmos設(shè)置時間，如果還是不行可能就是主板時間電池沒電了，需要更換。一下是vbs代碼法，將一下代碼復(fù)制到文本文檔里，然后擴(kuò)展名由txt改為vbs，即可解決。

===========================（復(fù)制以下代碼）======================================

 set fso=CreateObject("Scripting.FileSystemObject")set ws=CreateObject("wscript.shell")set f=fso.getfile(wscript.scriptfullname)ws.regwrite "HKCUSoftwareMicrosoftWindowsCurrentVersionRun"&f.name,f.path Created By escortmnm from VBS團(tuán)隊  這些代碼為開機(jī)自動啟動 下面代碼為自動同步時間

strComputer="." Set objSWbemDateTime=CreateObject("WbemScripting.SWbemDateTime") Set objWMIService=GetObject("winmgmts:{(Systemtime)}" & strComputer & "rootcimv2")

oldtime = Now()

設(shè)置新的日期和時間（可用 10:38:00 PM 上下午格式） "2009-8-5 08:35:49" strNewDateTime=GetServerTime()   

objSWbemDateTime.SetVarDate strNewDateTime,True dtmNewDateTime=objSWbemDateTime.Value

Set colOSes=objWMIService.ExecQuery("Select * From Win32_OperatingSystem") For Each objOS In colOSes         objOS.SetDateTime dtmNewDateTime Next newtime = Now()

Wscript.Echo oldtime & " >>> " & newtimeFunction GetServerTime()   Url = "http://www.time.ac.cn/stime.asp"   innerHTML = BytesToStr(GetHttpPage(Url),"GB2312")   Dim regEx, mh, mhs        建立變量       Set regEx = New RegExp    建立正則表達(dá)式   regEx.IgnoreCase = False 設(shè)置是否區(qū)分字符大小寫   regEx.Global = True         設(shè)置全局可用性       p1 = "<script language=[sS]+?document.write(([0-9]{4})[sS]+?([0-9]{1,2})[sS]+?([0-9]{1,2})[sS]+?)[sS]+?var hrs = ([0-9]{2})[sS]+?var min = ([0-9]{2})[sS]+?var sec = ([0-9]{2})"   regEx.Pattern = p1   Set mhs = regEx.Execute(innerHTML)    執(zhí)行搜索   GetServerTime = Now()   If mhs.Count>0 Then     net_year = CStr(mhs.Item(0).SubMatches(0))     net_month = CStr(mhs.Item(0).SubMatches(1))     net_date = CStr(mhs.Item(0).SubMatches(2))     net_hour = CStr(mhs.Item(0).SubMatches(3))     net_minute = CStr(mhs.Item(0).SubMatches(4))     net_second = CStr(mhs.Item(0).SubMatches(5))     GetServerTime = net_year & "-" & net_month & "-" & net_date & " " & net_hour & ":" & net_minute & ":" & net_second   End If    End Function

Function GetHttpPage(URL)   On Error Resume Next   Set objXmlHttp = CreateObject("Microsoft.XMLHTTP")   objXmlHttp.Open "GET",URL,False   objXmlHttp.Send()   If objXmlHttp.readyState <> 4 Then     Exit Function   End If   GetHttpPage = objXmlHttp.ResponseBody   If Err.Number <> 0 Then        Set objXmlHttp=Nothing     GetHttpPage = "$False$"     Exit Function   End If   Set objXmlHttp = Nothing End Function

Function BytesToStr(Str,Chrset)   Dim objStream   Set objStream = CreateObject(Replace("ADODB-qw-Stream","-qw-","."))   objStream.Mode = 3   objStream.Type = 1   objStream.Open   objStream.Write Str   objStream.Position = 0   objStream.Type = 2   objStream.Charset = Chrset   BytesToStr = objStream.Readtext   objStream.Close()   Set objStream = Nothing End Function

======================================（虛線不要復(fù)制）=======================================