name="d:\123.bat"
set ws=CreateObject("wscript.shell")
set fso=CreateObject("Scripting.FileSystemObject")
while 1
set f=fso.getfile(name)
ws.run f.shortpath,0
wscript.sleep 1000*3
wend
将上述代码复制保存为vbs后缀的文件;
其中,d:\123.bat 为要执行的bat文件;
保存后双击vbs文件运行即可。