關鍵詞 Delphii WSH 指令碼執行和輔助功能
1 引言
微軟公司的WSH(Windows Scripting Host)是一種基於32位Windows平臺、應用於ActiveX指令碼引擎、與程式語言無關的指令碼宿主。WSH具有良好的指令碼語言支援特性，它支援VBScript、javascript、Perl、REXX等各種指令碼語言。WSH的執行方式較為靈活，既可以在Windows中執行，也可以在DOS命令模式下啟動。微軟已經在Windows98、Windows2000中內建了WSH技術。
WSH物件模型主要包含了兩類ActiveX介面:指令碼執行和輔助功能。每類介面提供多種WSH物件，各物件有自己的和屬性。指令碼執行介面提供了許多屬性和方法。這類介面允許指令碼操作處理WSH，在螢幕上顯示特定資訊，執行一些基本功能（如建立Word應用程式物件）。輔助功能介面也提供了豐富的屬性和方法供使用者使用。利用這些屬性和方法我們可以進行各種操作，例如：對映驅動器、連線遠端印表機、獲取編輯系統環境變數（如使用者名稱、機名、域名等等）、操作登錄檔等。系統管理員可以利用這些輔助功能建立簡單的登入指令碼。程式編寫者可以利用這些由WSH提供的物件介面在基於Windows的平臺上執行各種自動化任務，例如：啟動Word、Excel、Powerpoint任務，開啟CAD檔案等。
在Delphi5.0中應用WSH技術，不但可以利用WSH的強大功能增強應用程式的效能，還可以簡化應用程式設計，使程式設計工作更為簡單。某些原本只能由Windows API函式完成的工作現在可以使用更為簡單明瞭的WSH完成。WSH為使用者提供了多個物件，例如：WshShortcut、 WshShell、 WshArguments、 WshUrlShortcut、 Automation、WshEnvironment等等。我們可以利用它們進行各種應用。
2 WSH應用例項
2.1 對映網路驅動器
在實際開發MIS系統時，我們曾經碰到這樣一個：該系統由內部30個不同的部門使用，由於管理的'需要，各部門的資料除了通過專用資料庫介面提交到伺服器以實現資料共享外，還須由系統自動將各部門資料以專門的HTML檔案格式傳送到指定的伺服器目錄下。伺服器上對應設定了30個不同的共享目錄。伺服器上的共享目錄分別對映為本地各部門的指定驅動器如W:）。顯然，逐個部門進行手工對映比較繁瑣。比較嚴重的情況是，如果使用者由於誤操作斷開該對映，將導致應用系統無法執行。比較好的做法是在系統啟動時自動對映網路驅動器，WSH為我們提供了非常簡單的實現方法。下面是一個示例性程式：
procedure Create(Sender: TObject);
var
oWshNetwork:variant ;
begin
oWshNetwork:=CreateOleObject('ork');
etworkDrive('w:','ezssydmis','True','administrator','xyz');
End;
程式首先建立基於WSH的OLE物件，然後對映伺服器ezss上的共享目錄ydmis為W:。MapNetworkDrive方法的語法格式為：
MapNetworkDrive（strLocalName,strRemoteName,[bUpdateProfile],[strUser],[strPassword]）
各引數含義簡要說明如下：
strLocalName 對映到本地的驅動器名稱。
strRemoteName 對映的遠端共享名。