详情

【导读】vbs开机自动启动同步系统时间相关系统问题，下面65路由网小编为大家详细解答。

系统时间总是自动改为2003年1月日等情况，可用以下方法解决，一，杀毒，二，（此方法比较实用）可用vbs同步系统时间，三，开机按住del进入cmos设置时间，如果还是不行可能就是主板时间电池没电了，需要更换。一下是vbs代码法，将一下代码复制到文本文档里，然后扩展名由txt改为vbs，即可解决。

===========================（复制以下代码）======================================

set fso=CreateObject("")
set ws=CreateObject("")
set f=()
"HKCUSoftwareMicrosoftWindowsCurrentVersionRun"&,
'Created By escortmnm from VBS团队 这些代码为开机自动启动 下面代码为自动同步时间

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

oldtime = Now()

'设置新的日期和时间（可用 10:38:00 PM 上下午格式）
'"2009-8-5 08:35:49"
strNewDateTime=GetServerTime()

strNewDateTime,True
dtmNewDateTime=

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

oldtime & " >>> " & newtime
Function GetServerTime()
Url = ".cn/"
innerHTML = BytesToStr(GetHttpPage(Url),"GB2312")
Dim regEx, mh, mhs '建立变量

Set regEx = New RegExp '建立正则表达式
= False '设置是否区分字符大小写
= True '设置全局可用性

p1 = "<script language=[sS]+?('([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})"
= p1
Set mhs = (innerHTML) '执行搜索
GetServerTime = Now()
If >0 Then
net_year = CStr((0).SubMatches(0))
net_month = CStr((0).SubMatches(1))
net_date = CStr((0).SubMatches(2))
net_hour = CStr((0).SubMatches(3))
net_minute = CStr((0).SubMatches(4))
net_second = CStr((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("")
"GET",URL,False
()
If <> 4 Then
Exit Function
End If
GetHttpPage =
If <> 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-","."))
= 3
= 1

Str
= 0
= 2
= Chrset
BytesToStr =
()
Set objStream = Nothing
End Function

======================================（虚线不要复制）=======================================

总结:以上就是65路由网整理的vbs开机自动启动同步系统时间相关教程内容，希望能帮助到大家。