Unix telnet的命令设置

网络 网络管理
下面我们来对Unix telnet的具体操作进行一下讲解。对于这当中的设置命令代码我们都进行了具体的介绍。希望对大家有所帮助。

下面我们来对Unix telnet的命令设置的一些内容进行一下讲解。当中的一些命令和代码,我们已经为大家进行了分析。那么这段代码做了一个监控程序,触发事件后实现telnet到Sco unix执行命令并取得命令结果,想了几天终于完成,特和大家分享:

Unix telnet VFP代码部分:

  1. LOCAL telnet1  
  2. telnet1=CREATEOBJECT("Dart.Telnet.1")  
  3. Telnet1.Timeout = 100 
  4. Telnet1.TermType = "vt100" 
  5. False=.t.  
  6. True=.t.  
  7. vbCrLf=CHR(13)+CHR(10)  
  8. ** logfile = "Host" + HostIP + ".log"  
  9. ** Telnet1.Trace(logfile, False, True, vbCrLf + "---> ", vbCrLf + "<--- ")  
  10. thisform.AddLog(Tsys_kind,"正在连接主机 " + HostIP + " ..." + vbCrLf)  
  11. ok = Telnet1.Connect(HostIP, 23)  
  12. IF ok="" 
  13. thisform.AddLog(Tsys_kind,"银联前置["+HostIP+"]连接失败!同银联中心链路无法检查.")  
  14. thisform.showinfo("99","错误:银联前置连接失败!")  
  15. thisform.warn  
  16. thisform.command4.Picture="deng3.gif" 
  17. thisform.command4.refresh  
  18. telnet1.close  
  19. RETURN  
  20. ELSE  
  21. telnet1.close  
  22. Telnet1.Timeout = 10000 
  23. Telnet1.Connect(HostIP, 23)  
  24. ENDIF  
  25. thisform.AddLog(Tsys_kind,"已连接" + vbCrLf)  
  26. Data = "" 
  27. Telnet1.Search (@Data, "login:")  
  28. * thisform.AddLog( Tsys_kind,Data)  
  29. Telnet1.Send(User_name + vbCrLf)  
  30. Data = "" 
  31. Telnet1.Search(@Data, "Password:")  
  32. *  thisform.AddLog(Tsys_kind,Data)  
  33. Telnet1.Send (User_pwd + vbCrLf)  
  34. Data = "" 
  35. Telnet1.Search(@Data, ">")  
  36. *thisform.AddLog(Tsys_kind,Data)  
  37. Telnet1.Send ("su" + vbCrLf)  
  38. Telnet1.Search (@Data, "Password:")  
  39. *  thisform.AddLog(Tsys_kind,data)  
  40. Telnet1.Send(root_pwd + vbCrLf)  
  41. Telnet1.Search(@Data, "#")  
  42. * thisform.AddLog(Tsys_kind,Data)  
  43. Telnet1.Send(shell_cmd + vbCrLf)  
  44. Telnet1.Search(@Data, "#")  
  45. * thisform.AddLog(Tsys_kind,data)  
  46. ***************取出的数据  
  47. ok = VAL(STREXTRACT(data,"/","/",3))  
  48. IF ok>WP04 && Warn Point  
  49. thisform.showinfo("01","★警告:银联中心网络延时[9.234.12.21]!当前值:"+ALLTRIM(STR(ok,10,2))+"设定值:"+ALLTRIM(STR(WP04,10,2)))  
  50. thisform.addlog(Tsys_kind,"★警告:银联中心网络延时[9.234.12.21]!当前值:"+ALLTRIM(STR(ok,10,2))+"设定值:"+ALLTRIM(STR(WP04,10,2)))  
  51. ......&&触发事件  
  52. ENDIF 

以上Unix telnet的设置内容就完成了。

责任编辑:佟健 来源: 163.com
相关推荐

2010-07-27 15:24:44

2010-07-15 09:55:05

2010-07-22 10:23:19

2010-07-20 15:28:34

2010-05-05 13:45:21

Unix Telnet

2010-07-22 12:38:35

Unix telnet

2010-07-21 16:08:57

telnet命令

2010-07-21 16:04:26

telnet服务器

2010-07-21 09:46:39

SuSE Telnet

2010-07-14 16:09:52

Telnet命令例子

2010-07-26 15:18:19

Telnet命令

2010-07-15 15:46:01

2010-07-14 15:52:28

Telnet命令

2010-07-21 16:30:00

telnet程序

2010-07-15 15:36:14

AIX telnet命

2010-07-25 14:37:40

telnet命令

2010-07-21 16:19:33

telnet程序

2010-07-26 13:44:33

Ubuntu teln

2010-04-07 17:55:12

Unix命令

2010-05-06 17:31:39

Unix命令
点赞
收藏

51CTO技术栈公众号