vbs开机自动启动同步系统时间

欢迎您访问我爱IT技术网，今天小编为你分享的电脑教程是日常使用电脑方面的电脑常识：vbs开机自动启动同步系统时间，学会并运用这些电脑常识，让你快速玩转电脑及互联网方面的知识，下面是详细的分享！

vbs开机自动启动同步系统时间

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

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

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团队 这些代码为开机自动启动 下面代码为自动同步时间

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

oldtime=Now()

'设置新的日期和时间（可用 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="http://www.time.ac.cn/stime.asp"
innerHTML=BytesToStr(GetHttpPage(Url),"GB2312")
Dim regEx, mh, mhs '建立变量

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

p1="