文档内容为每次脚本运行的时间
   dim path,file,fso,ctf,str,strhtml,strnohtml
   Set fso = CreateObject("Scripting.FileSystemObject")
   Set CTF = FSO.OpenTextFile("network_"&date()&".txt",8,true,0)
   ctf.writeline(now())
   ctf.close
   end if

   temp.bat
           @ECHO   OFF
          ::   Create   SendKeys   script
          ECHO.set   sh=WScript.CreateObject("WScript.Shell")>_TEMP.VBS
          ECHO.WScript.Sleep   1000   >>_TEMP.VBS
          ::   Send   “open”   for  Connect  and wait 1 second
          ECHO.sh.SendKeys   "%%open "   >>_TEMP.VBS
          ECHO.WScript.Sleep   1000   >>_TEMP.VBS
          ::   Send   R   for   sub-item   Remote   system
          ::ECHO.sh.SendKeys   "R"   >>_TEMP.VBS
          ECHO.WScript.Sleep   1000   >>_TEMP.VBS
          ::   Send   Host   Name
          ECHO.sh.SendKeys   "192.168.2.1"   >>_TEMP.VBS
          ECHO.WScript.Sleep   1000   >>_TEMP.VBS
          ::   Send   the key of “enter”   to   press   Connect   button
          ECHO.sh.SendKeys   "{enter}"  >>_TEMP.VBS
   ECHO.WScript.Sleep   1000   >>_TEMP.VBS
         ECHO.sh.SendKeys   "the password of vty"  >>