Chinaunix首页 | 论坛 | 博客
  • 博客访问: 103647976
  • 博文数量: 19283
  • 博客积分: 9968
  • 博客等级: 上将
  • 技术积分: 196062
  • 用 户 组: 普通用户
  • 注册时间: 2007-02-07 14:28
文章分类

全部博文(19283)

文章存档

2011年(1)

2009年(125)

2008年(19094)

2007年(63)

分类:

2008-03-25 21:53:51

前一段做了一个监控程序,触发事件后实现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","★警告:银联中心网络延时[9.234.12.21]!当前值:"+ALLTRIM(STR(ok,10,2))+"设定值:"+ALLTRIM(STR(WP04,10,2)))
       thisform.addlog(Tsys_kind,"★警告:银联中心网络延时[9.234.12.21]!当前值:"+ALLTRIM(STR(ok,10,2))+"设定值:"+ALLTRIM(STR(WP04,10,2)))

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


    ENDIF

阅读(576) | 评论(0) | 转发(1) |
给主人留下些什么吧!~~