用VFP實(shí)現(xiàn)telnet到Sco unix執(zhí)行命令并取得命令結(jié)果

sdccf

前一段做了一個(gè)監(jiān)控程序，觸發(fā)事件后實(shí)現(xiàn)telnet到Sco unix執(zhí)行命令并取得命令結(jié)果，想了幾天終于完成，特和大家分享：
一、安裝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,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)
   
   ***************取出的數(shù)據(jù)
    ok = VAL(STREXTRACT(data,"/","/",3))
    IF ok>WP04 && Warn Point
       thisform.showinfo("01","★警告：銀聯(lián)中心網(wǎng)絡(luò)延時(shí)[9.234.12.21]！當(dāng)前值:"+ALLTRIM(STR(ok,10,2))+"設(shè)定值："+ALLTRIM(STR(WP04,10,2)))
       thisform.addlog(Tsys_kind,"★警告：銀聯(lián)中心網(wǎng)絡(luò)延時(shí)[9.234.12.21]！當(dāng)前值:"+ALLTRIM(STR(ok,10,2))+"設(shè)定值："+ALLTRIM(STR(WP04,10,2)))
   ......&&觸發(fā)事件
    ENDIF


本文來自ChinaUnix博客，如果查看原文請點(diǎn)：http://blog.chinaunix.net/u/31/showart_508161.html