Unix telnet監控程序的實現
作者：佚名
文章中，我們對Unix telnet的具體監控程序的設置進行了介紹。那么其中的代碼我們進行了具體的講解。希望對大家有用。
在一些監控程序中，我們可以使用telnet服務。那么這里我們就介紹了一個Unix telnet的簡短的例子來幫助大家分析效益愛。那么這段代碼做了一個監控程序,觸發事件后實現telnet到Sco unix執行命令并取得命令結果,想了幾天終于完成,特和大家分享:
Unix telnet 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
以上Unix telnet的設置內容就完成了。
責任編輯：佟健
來源：
網絡整理
