Telnet到Scounix執行并取得結果

2019-11-04 20:10:15

字體：大中小

來源：轉載

供稿：網友

前一段做了一個監控程序，觸發事件后實現telnet到Sco unix執行命令并取得命令結果，想了幾天終于完成，特和大家分享：

　　一、安裝TelnetTool控件（提供下載）

　　二、VFP代碼部分：

       LOCAL telnet1
        telnet1=CREATEOBJECT("Dart.Telnet.1")
    Telnet1.Timeout = 100
    Telnet1.TermType = "vt100"
  False=.t.
  True=.t.
  
vbCrLf=CHR(13)+CHR(10)
    ** logfile = "Host" + Hostip + ".log"
    ** Telnet1.Trace(logfile, False, True, vbCrLf + "---> ", vbCrLf + "<--- ")
     
    thisform.AddLog(Tsys_kind,"正在連接主機 " + HostIP + " ..." + vbCrLf)
    
     
    ok = Telnet1.Connect(HostIP, 23)
     IF ok=""
      thisform.AddLog(Tsys_kind,"銀聯前置["+HostIP+"]連接失敗!同銀聯中心鏈路無法檢查。")
      thisform.showinfo("99","錯誤：銀聯前置連接失敗!")
       thisform.warn
       thisform.command4.Picture="deng3.gif"
       thisform.command4.refresh
        telnet1.close
        RETURN
     ELSE
       telnet1.close
       Telnet1.Timeout = 10000
       Telnet1.Connect(HostIP, 23)        
     ENDIF       
    thisform.AddLog(Tsys_kind,"已連接" + vbCrLf)    Data = ""
    Telnet1.Search (@Data, "login:")
     * thisform.AddLog( Tsys_kind,Data)
    Telnet1.Send(User_name + vbCrLf)
    Data = ""
    Telnet1.Search(@Data, "PassWord:")
    *  thisform.AddLog(Tsys_kind,Data)
    Telnet1.Send (User_pwd + vbCrLf)
    Data = ""
    Telnet1.Search(@Data, ">")
   *   thisform.AddLog(Tsys_kind,Data)
    Telnet1.Send ("su" + vbCrLf)
    Telnet1.Search (@Data, "Password:")
    *  thisform.AddLog(Tsys_kind,data)
    Telnet1.Send(root_pwd + vbCrLf)
    Telnet1.Search(@Data, "#")
    * thisform.AddLog(Tsys_kind,Data)

                             Telnet1.Send(shell_cmd + vbCrLf)
    Telnet1.Search(@Data, "#")
   * thisform.AddLog(Tsys_kind,data)