» 网友学堂 » LINUX教程 » Telnet到Sco unix执行命令并取得结果
Telnet到Sco unix执行命令并取得结果
作者：问天 发表时间：2007-1-20 20:29 阅读：1642次 在百度搜索相关内容
前一段做了一个监控程序，触发事件后实现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 + "

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