使用VBS循环程序实现电脑时间同步

1、在电脑上面新建一个文本文档，然后将文本文档命名为“GetSetTime.cmd”。（文本文档后缀名“.txt”已经被改成“.cmd”）

2、在“GetSetTime.cmd”文件上面点击右键，选择“编辑”。

3、输入以下代码并进行保存。

@ net use \\192.16.46.203 "Abc123456" /user:"administrator"

@ net time \\192.16.46.203 /set /y

1、再新建一个文本文档，然后将文本文档命名为“SetTime.vbs”。（文本文档后缀名“.txt”已经被改成“.vbs”）

2、在“SetTime.vbs”文件上面点击右键，选择“编辑”。

3、输入以下代码并进行保存。

on error resume next

dim a,b,mo,ho,mi,se

set WSHshellA = wscript.createobject("wscript.shell")

a=0

do until a=11       '等到a=11时退出循环，但不会给a=11

a=0

wscript.sleep 3000  '延时3秒钟

ho=hour(now)        '获取系统上面当前的时间 小时

mi=minute(now)

se=second(now)

mo=ho mod 4         '取余，每隔4小时执行一次

if b<>20 and mo=3 and mi=0 and se<10 then  '从3点开始，每隔4小时执行一次

b=20

WSHshellA.run "cmd.exe /c D:\GetAndSetTime\GetSetTime.cmd",0

end if

if b=20 and se>10 then

b=10

end if

loop

4、检查无误后，双击“SetTime.vbs”文件进行运行，从3点开始，每隔4小时就会触发“GetSetTime.cmd”执行一次时间同步。