系統(tǒng)時(shí)間總是自動(dòng)改為2003年1月日等情況，可用以下方法解決，一，殺毒，二，（此方法比較實(shí)用）可用vbs同步系統(tǒng)時(shí)間，三，開機(jī)按住del進(jìn)入cmos設(shè)置時(shí)間，如果還是不行可能就是主板時(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)隊(duì) 這些代碼為開機(jī)自動(dòng)啟動(dòng) 下面代碼為自動(dòng)同步時(shí)間
strComputer="."
Set objSWbemDateTime=CreateObject("WbemScripting.SWbemDateTime")
Set objWMIService=GetObject("winmgmts:{(Systemtime)}" & strComputer & "rootcimv2")
oldtime = Now()
'設(shè)置新的日期和時(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 & " >>> " & newtime
Function GetServerTime()
Url = ""
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ù)制）=======================================