[已解决]本机同步网络日期时间的vbs代码，以前可用。现在出现错误提示。求解决。

yu2n

回复 15# ygqiang


    妹阿，讓你自己刪，可也得保證JS語句正常阿，你刪得 if else 都不能保持正常姿勢了。

以下是注釋掉提示的代碼：

1. //文件名称：SyncNetTime.js
   
2. //功能说明：同步本机时间与网络时间
   
3. //使用方法：Cscript.exe //nologo SyncNetTime.js
   
4. //测试环境：系统 Win10 x64 时间 17/2/10 23:35 用户 Yu2n
   
5. //更新内容：Fix 获取网络时间，防止 eval 安全问题
   
6. 
   
7. //以管理员运行
   
8. function GetSystemVersion() {
   
9.         var os = GetObject("winmgmts:").InstancesOf("Win32_OperatingSystem");
   
10.         for (var e = new Enumerator(os); ! e.atEnd(); e.moveNext()) {
    
11.                 var v = e.item().Version;
    
12.                 var ss = v.split('.');
    
13.                 return ss[0] + ss[1];
    
14.         }
    
15.         return - 1;
    
16. }
    
17. if (GetSystemVersion() >= 60) {
    
18.         var cmd = WScript.ScriptFullName;
    
19.         if (cmd.substring(cmd.length - 3) != ".jS") {
    
20.                 var Shell = new ActiveXObject("Shell.Application");
    
21.                 Shell.ShellExecute("wscript.exe", """ + cmd.substring(0, cmd.length - 3) + ".jS"", "", "runas", 1);
    
22.                 WScript.Quit(0);
    
23.         }
    
24. }
    
25. 
    
26. //获取网络时间，从 www.beijing-time.org 页面，使用正则验证结果，防止 eval 安全问题
    
27. var getNetDate = function() {
    
28.         var s='';
    
29.         try{
    
30.                 var http = new ActiveXObject("Microsoft.XMLHTTP");
    
31.                 http.open("GET", "http://www.beijing-time.org/time15.asp?rnd=" + (new Date()), false);
    
32.                 http.send();
    
33.                 s = http.responseText;
    
34.         }catch(e){};
    
35.         var re = /^[\s\S]*(nyear\=\d+;[\r\n]+)(nmonth\=\d+;[\r\n]+)(nday\=\d+;[\r\n]+)(nwday\=\d+;[\r\n]+)(nhrs\=\d+;[\r\n]+)(nmin\=\d+;[\r\n]+)(nsec\=\d+;)[\s\S]*$/igm;
    
36.         if (re.test(s) == true) {
    
37.                 eval(s.replace(re,'$1$2$3$5$6$7'));        //使用正则替换结果，防止 eval 安全问题
    
38.                 return new Date(nyear+'/'+nmonth+'/'+nday+' '+nhrs+':'+nmin+':'+nsec);
    
39.         } else {
    
40.                 //WScript.Echo("警告：获取网络时间失败！")
    
41.                 WScript.Quit(0);
    
42.         }
    
43. };
    
44. 
    
45. //设置时间
    
46. function ChangeDate()
    
47. {
    
48.         var WmiService, ComputerName, OSList, OSEnum, OS, DateTime;
    
49.         ComputerName = ".";
    
50.         WmiService = GetObject ("winmgmts:{impersonationLevel=impersonate, (Systemtime)}!//" + ComputerName + "/root/cimv2");
    
51.         OSList = WmiService.InstancesOf ("Win32_OperatingSystem");
    
52.         DateTime = new ActiveXObject ("WbemScripting.SWbemDateTime");
    
53.         OSEnum = new Enumerator (OSList);
    
54.         for ( ; !OSEnum.atEnd(); OSEnum.moveNext())
    
55.         {
    
56.                 OS = OSEnum.item();
    
57.                 var dtNewDate = getNetDate();        //获取网络时间
    
58.                 DateTime.Value = OS.LocalDateTime;
    
59.                 DateTime.Year = dtNewDate.getFullYear();
    
60.                 DateTime.Month = dtNewDate.getMonth() + 1;
    
61.                 DateTime.Day = dtNewDate.getDate();
    
62.                 DateTime.Hours = dtNewDate.getHours();
    
63.                 DateTime.Minutes = dtNewDate.getMinutes();
    
64.                 DateTime.Seconds = dtNewDate.getSeconds();
    
65.                 if (OS.SetDateTime(DateTime.Value) != 0) {
    
66.                         //WScript.Echo("警告：设置系统时间失败！");
    
67.                 } else {
    
68.                         //WScript.Echo("提示：设置成功。当前时间：" + new Date(DateTime.GetVarDate()).toLocaleString());
    
69.                 };
    
70.         }
    
71. }
    
72. ChangeDate();
    
73. WScript.Quit(0);

复制代码

ygqiang

回复 16# yu2n


    非常感谢。

ygqiang

1. /*&cls
   
2. @echo off
   
3. rem 去掉下句中的echo;方可同步，否则只显示
   
4. for /f "tokens=1*" %%i in ('cscript -nologo -e:jscript "%~f0"') do echo;date %%i&echo;time %%j
   
5. for /f "tokens=1*" %%i in ('cscript -nologo -e:jscript "%~f0"') do date %%i&time %%j
   
6. 1pause&exit
   
7. */
   
8. function az(n){return n<10?'0'+n:n}
   
9. var http = new ActiveXObject('MSXML2.XMLHTTP');
   
10. http.open('POST','http://www.114time.com/api/time.php', false)
    
11. http.send();
    
12. var dt = new Date(http.ResponseText*1);
    
13. //减去12个小时上句改为var dt = new Date(http.ResponseText*1-12*3600*1000);
    
14. Y = dt.getFullYear();
    
15. M = dt.getMonth()+1;
    
16. D = dt.getDate();
    
17. h = dt.getHours();
    
18. m = dt.getMinutes();
    
19. s = dt.getSeconds();
    
20. WSH.echo(Y+'/'+az(M)+'/'+az(D)+' '+az(h)+':'+az(m)+':'+az(s));

复制代码

ygqiang

1. @echo off
   
2. (
   
3.     echo;With CreateObject("Microsoft.XMLHTTP"^)
   
4.     echo;   .open "GET", "http://www.114time.com/api/time.php", False
   
5.     echo;   .send
   
6.     echo;   ms = .responseText*1
   
7.     echo;End With
   
8.     echo;WSH.Echo DateAdd("s", left(ms, len(ms^)-3^)+480*60, "1970-1-1 0:0:0"^)
   
9. )>%tmp%\dt.vbs
   
10. 
    
11. for /f "tokens=1*" %%i in ('cscript -nologo %tmp%\dt.vbs') do date %%i&time %%j
    
12. 1pause
    
13. 
    
14. 
    
15. for /f "tokens=1*" %%i in ('cscript -nologo %tmp%\dt.vbs') do echo;date %%i&echo;time %%j
    
16. 1pause
    
17. 
    
18. for /f "tokens=1*" %%i in ('cscript -nologo %tmp%\dt.vbs') do (echo %%i|date&echo %%j|time)
    
19. 
    
20. 1pause
    
21. 
    
22. 
    
23. exit

复制代码