Telnet Tool ActiveX控件應(yīng)用實(shí)例代碼

作者：佚名 2010-07-14 17:46:40

下面我們對(duì)Telnet Tool ActiveX控件的一個(gè)個(gè)應(yīng)用實(shí)例進(jìn)行了介紹。通過對(duì)代碼的分析，相信大家對(duì)這類應(yīng)用能有個(gè)整體把握。

在網(wǎng)站建設(shè)過程中，我們可以應(yīng)用Telnet Tool ActiveX來進(jìn)行一些編程。對(duì)于Telnet Tool ActiveX控件的功能我們?cè)谇耙黄恼轮幸呀?jīng)介紹過了。那么下面我們就來對(duì)這方面進(jìn)行一下應(yīng)用舉例。

編程實(shí)例

下面是一個(gè)簡單的Telnet Tool ActiveX控件的ASP編程實(shí)例。實(shí)驗(yàn)環(huán)境是： Windows 2000 Professional、IIS 5.0、SCO OpenServer 5.0.2和Telnet Tool ActiveX控件。Telnet Tool ActiveX控件可以在www.dart.com下載30天試用版，只需要安裝在WEB服務(wù)器上。

程序并不復(fù)雜，登錄到一個(gè)SCO UNIX系統(tǒng)后，執(zhí)行了2條命令，命令的結(jié)果顯示在瀏覽器頁面上。

HTML  
HEADTITLEPowerTCP Telnet Tool Demo Page/TITLE/HEAD  
BODY  
*******************************************************************  
Program: PowerTCP Telnet Tool Demo  
Author: Yin  
Date: 07/16/2001  
Purpose: To demonstrate how to login into a SCO UNIX server.  
********************************************************************}  
Sub DoLogin()   
Session(RESULT) =   
On Error Resume Next   
Create a Telnet control   
Dim Telnet1   
Set Telnet1 = Server.CreateObject(Dart.Telnet.1)   
Use a 10 second timeout   
Telnet1.Timeout = 10000   
Specifies terminal type   
Telnet1.TermType = ansi   
AddResult Connecting to + txtHost + ... + vbCrLf   
Connect to the host on port 23   
Telnet1.Connect txtHost,23   
Dim a string to be used by the search method   
Dim Data   
Data =   
Search for login prompt   
Telnet1.Search Data, txtLoginPrompt   
AddResult Data   
Send username   
Telnet1.Send txtUser + vbCrLf   
Search for password prompt   
Telnet1.Search Data, txtPassPrompt   
AddResult Data   
Send password   
Telnet1.Send txtPass + vbCrLf + vbCrLf   
Search for command prompt   
Telnet1.Search Data, txtCommandPrompt   
AddResult Data   
Send command   
Telnet1.Send ps + vbCrLf   
Search for command prompt   
Telnet1.Search Data, txtCommandPrompt   
AddResult Data   
Send command   
Telnet1.Send netstat -rn + vbCrLf   
Search for command prompt   
Telnet1.Search Data, txtCommandPrompt   
AddResult Data   
Close the connection   
Telnet1.Close   
If Err.number = 0 then   
AddResult vbCrLf + Disconnecting... SUCCESS!   
Else   
Display info about the error   
AddResult vbcrlf + ERROR # + CStr(Err.number) + : + Err.Description   
End if   
Response.Write Session(RESULT)   
End Sub   
Private Sub AddResult(s)   
Session(RESULT) = Session(RESULT) + ReadyForHtml(s)   
End Sub   
Substitute escape codes for some of the HTML reserved characters   
Function ReadyForHtml(Data)   
On Error Resume Next   
ReadyForHtml = Data   
ReadyForHtml = Replace(ReadyForHtml, , gt;)   
ReadyForHtml = Replace(ReadyForHtml, , lt;)   
ReadyForHtml = Replace(ReadyForHtml, , nbsp;)   
ReadyForHtml = Replace(ReadyForHtml, vbCrLf , brnbsp;)   
ReadyForHtml = Replace(ReadyForHtml, vbCrLf, br)   
End Function   
Dim txtHost   
Dim txtLoginPrompt   
Dim txtUser   
Dim txtPassPrompt   
Dim txtPass   
Dim txtCommandPrompt   
txtHost = 192.0.1.6   
txtLoginPrompt = login:   
txtUser = root   
txtPassPrompt = Password   
txtPass = hp123   
txtCommandPrompt = #   
DoLogin()

小結(jié)

通過使用Telnet Tool ActiveX控件，我們可以在ASP程序中登錄到UNIX系統(tǒng)上，輕松地完成很多命令行操作。類似的，我們也可以實(shí)現(xiàn)通過瀏覽器查看CISCO路由器、交換機(jī)中的網(wǎng)絡(luò)配置和運(yùn)行狀態(tài)。

企業(yè)的防火墻設(shè)置一般來說應(yīng)該禁止從外部網(wǎng)直接遠(yuǎn)程登錄到內(nèi)部的UNIX主機(jī)上，但是我們可以通過在瀏覽器上簡單的點(diǎn)擊選擇特定的操作，由WEB Server端的ASP程序登錄到UNIX主機(jī)上完成指定操作，在方便管理的同時(shí)增加了系統(tǒng)的安全性。

當(dāng)然，我們?cè)贏SP編程中應(yīng)該隨時(shí)考慮到安全性問題，尤其是要避免不慎造成的ASP源代碼和UNIX口令的泄露。

責(zé)任編輯：佟健來源： csdn.net

Telnet Tool ActiveX控