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

【导读】vbs开机自动启动同步系统时间相关系统问题,下面路由器之家小编为大家详细解答。系统时间总是自动改为2003年1月日等情况,可用以下方法解决,一,杀毒,二,(此方法比较实用)可用vbs同步系统

亲,以下就是关于(vbs开机自动启动同步系统时间教程),由“路由器之家”整理!

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 = “<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) ‘执行搜索
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

======================================(虚线不要复制)=======================================

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

以上就是关于-常见问题-(vbs开机自动启动同步系统时间教程)的教程!

本文来自投稿,不代表路由百科立场,如若转载,请注明出处:https://www.qh4321.com/101380.html

(1)

相关推荐

  • 小米路由器青春版怎么样?小米路由器青春版真机图赏【图解】

    路由器网投稿:文章是关于”小米路由器青春版怎么样?小米路由器青春版真机图赏【图解】”的相关知识分享,希望可以帮到大家。 – 素材来源网络 编辑:…

    2022年8月9日
    54
  • 水星(MERCURY)MW325R路由器上不了网/连不上网怎么办?

    在本文中,鸿哥主要给大家介绍,水星(MERCURY)MW325R路由器,连不上网/上不了网的解决办法。水星MW325R这款路由器,由于性价比高,很多用户在使用。但是,不少用户在使用的时候,经常遇到连不上网的问题。当你的水星MW325R路由器连不上网的时候,鸿哥建议你,从以下4个方面进行排查。1、宽带

    2021年5月30日
    277
  • Win10怎么关闭专注助手

    路由器网投稿:文章是关于”Win10怎么关闭专注助手”的相关知识分享,希望可以帮到大家。 – 素材来源网络 编辑:小易。 大家都知道,在win1…

    2022年9月13日
    61
  • 192.168.1.1登陆页面管理员密码和用户名是多少?【图】

    问:192.168.1.1手机登陆页面的管理员密码和用户名是多少?用手机设置无线路由器,在手机浏览器中输入192.168.1.1后,提示需要用户名和密码(有的路由器提示输入:管理员密码)。答:用手机打

    2022年10月19日
    29
  • xp系统不显示u盘盘符修复方法

    原标题:”Windows XP系统不显示U盘 XP可以识别但无法显示U盘”相关电脑问题教程分享。 – 来源:路由器之家。XP系统能识别到U盘但是我的电脑中却没有显示U盘该怎么办?windows XP

    2021年8月7日
    87
  • 小米3a路由器是千兆的吗(图文)

    【导读】小米3a路由器是千兆的吗,下面就是路由器之家整理的网络知识百科,来看看吧!大家好,我是191路由器网小编,上述问题将由我为大家讲解。不是的。小米路由器3A 是百兆端口的双频四天线无线路由。无

    2021年8月5日
    239