2.9　使用WshNetwork對象

IWshRuntimeLibrary下面的WshNetwork對象可以操作局域網多臺計算機的對象，其重要屬性如下。

　ComputerName：返回計算機名稱。

　UserName：返回用戶名。

重要方法如下。

　MapNetworkDrive：映射網絡驅動器。

　RemoveNetworkDrive：移除指定的網絡驅動器。

與打印機有關的成員如下。

　EnumPrinterConnections：枚舉所有打印機。

　SetDefaultPrinter：設置默認打印機。

2.9.1　返回計算機屬性

下面的程序返回當前計算機的名稱和用戶名。

運行上述程序，立即窗口的打印結果如圖2-49所示。

2.9.2　映射網絡驅動器

映射網絡驅動器功能可以把網絡中的其他計算機或服務器中的磁盤、路徑映射為當前計算機中的一個分區。WshNetWork下面的MapNetworkDrive方法可以實現這一功能，其參數如下。

　LocalName：本地驅動器名稱。

　RemoteName：遠程服務器或計算機中的路徑，一般以\\加上計算機名稱或IP地址開頭。

　UpdateProfi le：是否保存映射信息到本地計算機中，默認值為False。

　UserName：遠程服務器或計算機的用戶名。

　Password：遠程服務器或計算機的密碼。

假設有一臺遠程計算機的名稱為ryueifu_VBA，有如下路徑：

    D:\TEXTBOOK\Python

運行如下程序就可以把該路徑映射為本地計算機的Z分區。

運行上述程序，本地計算機的資源管理器中多出了Z分區，如圖2-50所示。

與之相反，使用RemoveNetworkDrive可以移除指定的映射分區。

運行上述程序，Z分區自動消失。

2.9.3　操作打印機

WshNetwork對象有很多用于操作打印機的成員，例如EnumPrinterConnections可以用于枚舉計算機中所有的打印機端口和名稱。

下面的程序枚舉當前計算機上所有的打印機名稱。

代碼分析：如果把Debug.Print Printers(i)中的i改成i—1，則打印出來的是每個打印機的端口名稱。

運行上述程序，立即窗口打印出所有打印機名稱，如圖2-51所示。

SetDefaultPrinter方法則可以設置默認打印機。

運行以上程序，更改默認打印機，然后打印出默認打印機的名稱，如圖2-52所示。

以上內容的源代碼文件為“實例文檔09.xlsm”。