在網站建設過程中，我們可以應用Telnet Tool ActiveX來進行一些編程。對于Telnet Tool ActiveX控件的功能我們在前一篇文章中已經介紹過了。那么下面我們就來對這方面進行一下應用舉例。

編程實例

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

程序并不復雜，登錄到一個SCO UNIX系統后，執行了2條命令，命令的結果顯示在瀏覽器頁面上。

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() 

小結

通過使用Telnet Tool ActiveX控件，我們可以在ASP程序中登錄到UNIX系統上，輕松地完成很多命令行操作。類似的，我們也可以實現通過瀏覽器查看CISCO路由器、交換機中的網絡配置和運行狀態。

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

當然，我們在ASP編程中應該隨時考慮到安全性問題，尤其是要避免不慎造成的ASP源代碼和UNIX口令的泄露。