【2025-11-11更新，全网最快，时间同步工具】GetNetTime - v1.3.2025.1111

p1509101

1. WScript.sleep 5000
   
2. timeserv = "同步服务器 因为没权限发链接/?" & Now()
   
3. 
   
4. Set http = CreateObject("microsoft.xmlhttp")
   
5. http.open "GET",timeserv,false
   
6. http.send
   
7. gmttime = http.getResponseHeader("Date")
   
8. gmttime = Right(gmttime, Len(gmttime) - 5)
   
9. gmttime = Left(gmttime, Len(gmttime) - 3)
   
10. gmttime = CDate(gmttime)
    
11. Set http = Nothing
    
12. 
    
13. dtmNewDateTime=Right(String(4,"0") & Year(gmttime),4) &_
    
14. Right(String(2,"0") & Month(gmttime),2) &_
    
15. Right(String(2,"0") & Day(gmttime),2) &_
    
16. Right(String(2,"0") & Hour(gmttime),2) &_
    
17. Right(String(2,"0") & Minute(gmttime),2) &_
    
18. Right(String(2,"0") & Second(gmttime),2) &_
    
19. ".000000+000"
    
20. 
    
21. Set objWMIService=GetObject("winmgmts:{(Systemtime)}\\.\root\cimv2")
    
22. Set colOSes=objWMIService.ExecQuery("Select * From Win32_OperatingSystem")
    
23. For Each objOS In colOSes
    
24.     objOS.SetDateTime dtmNewDateTime
    
25. Next

复制代码

VBS丢开机启动就行,或者系统自带同步时间功能 修改注册表 让同步时间短一些,比如15分钟同步一次

1. Windows Registry Editor Version 5.00
   
2. 
   
3. 
   
4. [HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\CurrentVersion\DateTime\Servers]
   
5. @="0"
   
6. "1"="time.windows.com"
   
7. "2"="time.nist.gov"
   
8. "0"="cn.ntp.org.cn"
   
9. 
   
10. 
    
11. [HKEY_LOCAL_MACHINE\SYSTEM\CurrentControlSet\Services\W32Time\TimeProviders\NtpClient]
    
12. "AllowNonstandardModeCombinations"=dword:00000001
    
13. "CompatibilityFlags"=dword:80000000
    
14. "CrossSiteSyncFlags"=dword:00000002
    
15. "Enabled"=dword:00000001
    
16. "EventLogFlags"=dword:00000001
    
17. "InputProvider"=dword:00000001
    
18. "LargeSampleSkew"=dword:00000003
    
19. "ResolvePeerBackoffMaxTimes"=dword:00000007
    
20. "ResolvePeerBackoffMinutes"=dword:0000000f
    
21. "SignatureAuthAllowed"=dword:00000001
    
22. "SpecialPollInterval"=dword:00000168

复制代码

p1509101

51xp 发表于 2025-6-3 17:22
1.无外网时，可以通过局网的某台电脑同步？
2.有批处理不？

1. Windows Registry Editor Version 5.00
   
2. 
   
3. [HKEY_LOCAL_MACHINE\SYSTEM\CurrentControlSet\Services\W32Time\Config]
   
4. "AnnounceFlags"=dword:00000005
   
5. 
   
6. [HKEY_LOCAL_MACHINE\SYSTEM\CurrentControlSet\Services\W32Time\TimeProviders\NtpServer]
   
7. "Enabled"=dword:00000001
   
8. 
   

复制代码

可以,让电脑作为时间同步服务器.