用VFP实现telnet到Sco unix执行命令并取得命令结果

Air_Fish

前一段做了一个监控程序，触发事件后实现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)
   
   ***************取出的数据
    ok = VAL(STREXTRACT(data,"/","/",3))
    IF ok>WP04 && Warn Point
       thisform.showinfo("01","★警告：银联中心网络延时[192.168.0.1]！当前值:"+ALLTRIM(STR(ok,10,2))+"设定值："+ALLTRIM(STR(WP04,10,2)))
       thisform.addlog(Tsys_kind,"★警告：银联中心网络延时[192.168.0.1]！当前值:"+ALLTRIM(STR(ok,10,2))+"设定值："+ALLTRIM(STR(WP04,10,2)))

   ......&&触发事件


    ENDIF

[ 本帖最后由 Air_Fish 于 2006-4-19 19:45 编辑 ]

Cocal

强人，几乎把这个语法忘记了，不多不少，10年了。 ：）

hude

安装TelnetTool控件

unixboy1106

LZ是否是郑州的接入机构？钻研精神是好的，但是也要注意安全，把具体的真实机构的IP公布出去，是否不太合适？

[ 本帖最后由 unixboy1106 于 2006-4-19 11:18 编辑 ]

banhao

楼上说的对！支持！

Air_Fish

呵呵。楼上说的对，没有注意。不过，IP地址是内网IP，又不是INTERNET的IP，没有什么安全的问题。本人已作修改。你们看来是业内人士了。

Air_Fish

telnetTool 控件下载：

Air_Fish

telnetTool 控件下载：上网搜一下很多网站都有下载。

本想上传一个，但是本人只能传100K的文件。权限不足，恳请版主给大一些的权限上传好东东，与大家分享。

1212everyday

不错
收了

340151170

支持楼主，请各位unix爱好者加群号102531，强烈欢迎ChinaUnix各位楼主、精华区牛人的加入！！