secure crt下面vb脚本编写求助！

bzzh

最近想用secure crt实现批量刷新设备配置，在网上找了一下文档，框架现在是实现了，但是如果碰到ping不通的设备的话，如何实现自动执行下一台设备呢，请各位大侠指点哦。
我自己的脚本如下：
# $language = "VBScript"
# $interface = "1.0"
Sub Main
  Const ForReading = 1, ForWriting = 2, ForAppending = 8
  Dim fso,file1,line,str1,params
  Set fso = CreateObject("Scripting.FileSystemObject")
  Set file1 = fso.OpenTextFile("c:\config.txt",Forreading, False)
     
   
  crt.Screen.Synchronous = True
DO
  line = file1.ReadLine
  params = Split (line)

  crt.Session.Connect "/TELNET " & params(0)
  



    If ( crt.Screen.waitForString ("d:",1) <> True) then
            Exit Do
    End If
  

  
  crt.Screen.Send params(1) & vbcr
  crt.Screen.waitForString ">"
  crt.Screen.Send "su" & vbcr
  crt.Screen.WaitForString "Password:"
  crt.Screen.Send params(2) & vbcr
  crt.Screen.waitForString ">"
  crt.Screen.Send "sys" & vbcr
  crt.Screen.waitForString "]"

  crt.Screen.Send " snmp-agent target-host trap address udp-domain 1.1.1.1 udp-port 161 params securityname public " & vbcr
  crt.Screen.Send " snmp-agent target-host trap address udp-domain 2.2.2.2 udp-port 161 params securityname public " & vbcr
  crt.Screen.waitForString "]"
  crt.Screen.Send "quit" & vbcr
  crt.Screen.waitForString ">"
  crt.Screen.Send "save" & vbcr
  crt.Screen.Send "Y" &  vbcr
  crt.Screen.Send vbCr
  crt.sleep 5000
  crt.Screen.waitForString ">"
  crt.Screen.Send "quit" & vbcr
  crt.Session.Disconnect




  loop While Not file1.AtEndOfStream
  crt.Screen.Synchronous = False           
End Sub

bzzh

这个脚本在config.txt里面碰到不通的设备时候就报错，如果通的设备的话只能执行第一台设备的操作，第二台设备的params(1) 就提示读取不到了

bzzh

如果把中间的if。。。then判断语句去掉的话，对于所有通的设备的话是没有问题的，但是现在就想脚本判断一下，如果碰到不通的情况，直接跳过
问问题之前也在CU上查了一下以前的文档，有一个兄弟以前也问过类似的问题，但是好像没有解决

ssffzz1

俺功力不够。

aplah

找个shell版的大牛问问？