欢迎登陆真网站,您的到来是我们的荣幸。 登陆 注册 忘记密码? ☆设为首页 △加入收藏
欢迎加入真幸福QQ群
电脑知识: 基础知识 网络技术 操作系统 办公软件 电脑维修 电脑安全 windows7 windows8 windows10 服务器教程 平板电脑 视频播放教程 网络应用 互联网 工具软件 浏览器教程 QQ技巧 输入法教程 影视制作 YY教程 wps教程 word教程 Excel教程 PowerPoint
云南西双版纳特产小花糯玉米真空包装


解决移动硬盘在我的电脑中无法显示的问题
Excel中图标的制作与建立动画教程
Excel导入ACCESS数据库动画教程
电脑鼠标有哪些类型
如何屏蔽Windows使用usb设备
怎样把FAT32转换为NTFS格式
dhcp服务器要怎么设置
IE下载文件提示当前安全设置不允许下载怎么办
winXP网络打印机怎么设置取消右下角气泡通知?
网页提示Flash版本低怎么办
vbs开机自动启动同步系统时间
【 来源:网络 】【 点击:1 】 【 发布时间:2017_03_03 08:59:59 】

系统时间总是自动改为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"

本网站由川南居提供技术支持,fkzxf版权所有 浙ICP备12031891号