On Error Resume Next
   Dim WshShell, fso, inifile, iniconfig, temp, temp2
   set WshShell = WScript.CreateObject("WScript.Shell")
   strComputer = "."
   Set objWMIService = GetObject("winmgmts:\\"& strComputer & "\root\cimv2")
   Set colAdapters = objWMIService.ExecQuery("SELECT * FROM Win32_NetworkAdapterConfiguration WHERE IPEnabled = True")
   Set fso = CreateObject("Scripting.FileSystemObject")
   For Each objAdapter in colAdapters
   WshShell.Run("arp -s " & objAdapter.IPAddress(Ip) & " " & Replace(objAdapter.MacAddress (Mac),":","-")),7,true
   WshShell.Run("arp -s 192.168.0.1 00.00.00.00.00.00"),7,true

'192.168.0.1 00.00.00.00.00.00改成你的网关,MAC,我用ROS 用双向绑定MAC,ARP没发现大问题.
   next
   if Weekday(date)=1 or Weekday(date)=3 or Weekday(date)=5 or Weekday(date)=7 then
      WScript.Quit
   end if
   if time<CDate("8:0:0 AM") or time>CDate("8:20:0 AM") then
      WScript.Quit
   end if
   Set inifile = fso.OpenTextFile("d:\games\游戏菜单\Esf.ini")'这个自己设置,Esf.ini内容为1=易速路径...
   iniconfig = inifile.ReadLine
   temp = left(iniconfig,Instr(1,iniconfig,"=",1)-1)
   temp2 = right(iniconfig,len(iniconfig)-Instr(1,iniconfig,"=",1))
if temp = "1" then
   wshshell.run temp2
end if  '脚本结束,直接COPY以上从On Error Resume Next开始到此文字.保存为.vbs的扩展名的文件限可.重庆网盟欢迎您.