Board logo

标题: [问题求助] [已解决]本机同步网络日期时间的vbs代码,以前可用。现在出现错误提示。求解决。 [打印本页]

作者: ygqiang    时间: 2017-2-9 18:07     标题: [已解决]本机同步网络日期时间的vbs代码,以前可用。现在出现错误提示。求解决。

本帖最后由 pcl_test 于 2017-3-20 14:24 编辑

[已解决]网络时间同步vbs代码,以前可用。现在出现错误提示。求解决。谢谢

错误提示如下。
getTime.vbs(6,1)vbscript运行时错误:类型不匹配:‘s’
  1. @echo off&setlocal enabledelayedexpansion
  2. ping 127.0.0.1 -n 2 >nul 2>nul
  3. title 获取网络时间,同步到本机(需联网)
  4. cd /d "%tmp%"
  5. (
  6.     echo With CreateObject("Microsoft.XMLHTTP"^)
  7.     echo    .open "GET", "http://time.tianqi.com/", False
  8.     echo    .send
  9.     echo    s = Split(Split(.responseText, "new Date(("^)(1^), "+"^)(0^)
  10.     echo End With
  11.     echo WSH.Echo DateAdd("s", s * 1, "1970-1-1 8:00"^)
  12. )>getTime.vbs
  13. ——————————————————————————
  14. cls
  15. for /l %%m in (1,1,180) do (
  16. ping 127.0.0.1 -n 2 >nul 2>nul
  17. ping time.tianqi.com -n 1 >nul 2>nul
  18. echo !errorlevel!
  19. if !errorlevel! equ 0 goto :neta
  20. echo 外网不通
  21. )
  22. echo 外网不通,持续30分钟
  23. exit
  24. :neta
  25. echo 外网通,同步本机时间
  26. pause
  27. for /f "tokens=1*" %%i in ('cscript //nologo gettime.vbs') do date %%i & time %%j
  28. echo 本机系统时间设置完成!
  29. pause
  30. exit
复制代码
getTime.vbs代码如下:
  1. With CreateObject("Microsoft.XMLHTTP")
  2.    .open "GET", "http://time.tianqi.com/", False
  3.    .send
  4.    s = Split(Split(.responseText, "new Date((")(1), "+")(0)
  5. End With
  6. WSH.Echo DateAdd("s", s * 1, "1970-1-1 8:00")
复制代码

作者: hlzj88    时间: 2017-2-9 23:00

也许是原网页改版了,,源码里只有一个时间,或许不是vbs提取的位置。vbs不懂,其他高手看看。
作者: zhanglei1371    时间: 2017-2-10 06:01

vbs是获取javascript中的代码tt:( tt = parseInt(timestamp.substring(0, 10));)但是只能获取变量tt名,而非tt代表的时间。
js不懂,等待高手解决。
作者: 老刘1号    时间: 2017-2-10 17:19

S内包含非数字,无法乘以1变为数字,故出此错误提示。
作者: codegay    时间: 2017-2-10 18:23

吐槽
首先,时间同步的问题,是有这个叫NTP的专门协议和标准来解决的。
很多系统和网络设备,比如路由器,一般都是支持NTP网络时间同步。

然后,楼主偏偏爱用各种脚本,然后自己又没有能力写,会发帖子让别人写。
出了问题,自己又没能力解决。

网络时间协议:
https://zh.wikipedia.org/zh-cn/% ... 3%E5%8D%94%E5%AE%9A
作者: yu2n    时间: 2017-2-10 21:35

如何用一个.bat文件运行一下快速与Internet同步计算机时间?
https://zhidao.baidu.com/question/625946177689115404.html
如果想要立刻与新的时间服务器同步,一个.bat的文件
则执行下面的命令:
  1. w32tm /register
  2. net start w32time
  3. w32tm /config /update
  4. w32tm /resync /rediscover
复制代码

作者: codegay    时间: 2017-2-11 06:24

NetTime
http://www.timesynctool.com/
作者: codegay    时间: 2017-2-11 06:26

Setting up NTP on Windows

http://www.satsignal.eu/ntp/setup.html
作者: ygqiang    时间: 2017-2-11 14:20

回复 6# yu2n


    win7 64系统。修改系统日期和时间。
运行你的这个bat,无效果。
作者: ygqiang    时间: 2017-2-11 17:31

本帖最后由 ygqiang 于 2017-2-11 17:32 编辑

回复 6# yu2n

w32tm /unregister
w32tm /register

先后运行上面2个命令,6楼bat命令可用了。但是:


win7 64系统,本地时间修改了,本地日期也修改为2016/12/1
运行到下面命令,提示:此计算机没有重新同步,因为要求的时间更改太大。
w32tm /resync /rediscover
作者: yu2n    时间: 2017-2-11 18:20

回复 10# ygqiang

    JS 同步本机时间与网络时间
    http://www.bathome.net/thread-43147-1-1.html
作者: yu2n    时间: 2017-2-11 18:42

回复 10# ygqiang


    那是微软的作品,找微软改改就好了。
作者: ygqiang    时间: 2017-2-11 21:07

回复 11# yu2n


    WScript.Echo("提示:设置成功。当前时间:" + new Date(DateTime.GetVarDate()).toLocaleString());

你好,能否修改设置为:不弹出任何设置“成功”或“不成功”的窗口提示。
作者: yu2n    时间: 2017-2-11 22:34

回复 13# ygqiang


    很简单。你删掉 WScript.Echo 开头的行。
作者: ygqiang    时间: 2017-2-13 07:17

回复 14# yu2n


    多谢。。

WScript.Echo("提示:设置成功。当前时间:" + new Date(DateTime.GetVarDate()).toLocaleString());


这一行,全删除。没效果啊。不弹出窗口提示了,但也不能同步了。
作者: yu2n    时间: 2017-2-13 16:24

回复 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. function GetSystemVersion() {
  8. var os = GetObject("winmgmts:").InstancesOf("Win32_OperatingSystem");
  9. for (var e = new Enumerator(os); ! e.atEnd(); e.moveNext()) {
  10. var v = e.item().Version;
  11. var ss = v.split('.');
  12. return ss[0] + ss[1];
  13. }
  14. return - 1;
  15. }
  16. if (GetSystemVersion() >= 60) {
  17. var cmd = WScript.ScriptFullName;
  18. if (cmd.substring(cmd.length - 3) != ".jS") {
  19. var Shell = new ActiveXObject("Shell.Application");
  20. Shell.ShellExecute("wscript.exe", "\"" + cmd.substring(0, cmd.length - 3) + ".jS\"", "", "runas", 1);
  21. WScript.Quit(0);
  22. }
  23. }
  24. //获取网络时间,从 www.beijing-time.org 页面,使用正则验证结果,防止 eval 安全问题
  25. var getNetDate = function() {
  26. var s='';
  27. try{
  28. var http = new ActiveXObject("Microsoft.XMLHTTP");
  29. http.open("GET", "http://www.beijing-time.org/time15.asp?rnd=" + (new Date()), false);
  30. http.send();
  31. s = http.responseText;
  32. }catch(e){};
  33. 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;
  34. if (re.test(s) == true) {
  35. eval(s.replace(re,'$1$2$3$5$6$7')); //使用正则替换结果,防止 eval 安全问题
  36. return new Date(nyear+'/'+nmonth+'/'+nday+' '+nhrs+':'+nmin+':'+nsec);
  37. } else {
  38. //WScript.Echo("警告:获取网络时间失败!")
  39. WScript.Quit(0);
  40. }
  41. };
  42. //设置时间
  43. function ChangeDate()
  44. {
  45. var WmiService, ComputerName, OSList, OSEnum, OS, DateTime;
  46. ComputerName = ".";
  47. WmiService = GetObject ("winmgmts:{impersonationLevel=impersonate, (Systemtime)}!//" + ComputerName + "/root/cimv2");
  48. OSList = WmiService.InstancesOf ("Win32_OperatingSystem");
  49. DateTime = new ActiveXObject ("WbemScripting.SWbemDateTime");
  50. OSEnum = new Enumerator (OSList);
  51. for ( ; !OSEnum.atEnd(); OSEnum.moveNext())
  52. {
  53. OS = OSEnum.item();
  54. var dtNewDate = getNetDate(); //获取网络时间
  55. DateTime.Value = OS.LocalDateTime;
  56. DateTime.Year = dtNewDate.getFullYear();
  57. DateTime.Month = dtNewDate.getMonth() + 1;
  58. DateTime.Day = dtNewDate.getDate();
  59. DateTime.Hours = dtNewDate.getHours();
  60. DateTime.Minutes = dtNewDate.getMinutes();
  61. DateTime.Seconds = dtNewDate.getSeconds();
  62. if (OS.SetDateTime(DateTime.Value) != 0) {
  63. //WScript.Echo("警告:设置系统时间失败!");
  64. } else {
  65. //WScript.Echo("提示:设置成功。当前时间:" + new Date(DateTime.GetVarDate()).toLocaleString());
  66. };
  67. }
  68. }
  69. ChangeDate();
  70. WScript.Quit(0);
复制代码

作者: ygqiang    时间: 2017-2-13 19:30

回复 16# yu2n


    非常感谢。
作者: ygqiang    时间: 2017-10-16 16:12

本帖最后由 ygqiang 于 2017-10-16 16:13 编辑
  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    时间: 2017-10-16 16:12

  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. for /f "tokens=1*" %%i in ('cscript -nologo %tmp%\dt.vbs') do date %%i&time %%j
  11. 1pause
  12. for /f "tokens=1*" %%i in ('cscript -nologo %tmp%\dt.vbs') do echo;date %%i&echo;time %%j
  13. 1pause
  14. for /f "tokens=1*" %%i in ('cscript -nologo %tmp%\dt.vbs') do (echo %%i|date&echo %%j|time)
  15. 1pause
  16. exit
复制代码





欢迎光临 批处理之家 (http://bbs.bathome.net/) Powered by Discuz! 7.2