# $language = "VBScript"
# $interface = "1.0"

Sub Main
     Const ForReading = 1, ForWriting = 2, ForAppending = 8
     Dim fso,file1,line,str1,str2,params,host,passwd,user
     Set fso = CreateObject("Scripting.FileSystemObject")
     Set file1 = fso.OpenTextFile("c:\SWbackup\ssh-3A.txt",Forreading, False)       
     crt.Screen.Synchronous = True
     DO While file1.AtEndOfStream <> True
        line = file1.ReadLine
        params = Split (line)
        host = params(0)
        user = params(1)
        passwd = params(2)
        cmd = "/SSH2 /L " & user & " /PASSWORD " & passwd & " /C 3DES /M MD5 " & host
        crt.Session.Connect cmd
       crt.session.LogFileName = "c:\SWbackup\log\20150522\" & params(0) & ".txt"
       crt.session.Log(true)
        crt.Screen.Send "enable" & vbcr
        crt.Screen.Send params(3) & vbcr
        crt.Screen.waitForString "#"
         str1 = "sh cdp nei"
        crt.Screen.Send str1 & vbcr
  crt.Screen.Send "                                                " & vbcr
         str2 = "sh run"
 crt.Screen.Send str2 & vbcr
       ' crt.Screen.WaitForString " --More-- "
  crt.Screen.Send "                                                " & vbcr
  crt.Screen.Send "                                                " & vbcr
        crt.Screen.waitForString "end"
        crt.Screen.waitForString "#"
        crt.Screen.Send "exit" & vbcr
        crt.Session.Disconnect        
  loop
     crt.Screen.Synchronous = False      

End Sub