能夠找回遠(yuǎn)程驅(qū)動(dòng)器映射和打印機(jī)的腳本
來(lái)源：中國(guó)政府采購(gòu)招標(biāo)網(wǎng) 時(shí)間：2008/9/22
使用這個(gè)VB腳本能夠連接到遠(yuǎn)程計(jì)算機(jī)并找回網(wǎng)絡(luò)驅(qū)動(dòng)器的映射和打印機(jī)。
由于這個(gè)腳本是遠(yuǎn)程操作，你需要遵循建立一個(gè)遠(yuǎn)程WSH例子的步驟。這可以使用WSH 5.6或更高的版本。要想回顧一下如何安裝一個(gè)遠(yuǎn)程WSH的例子，可以閱讀這篇文章：安裝遠(yuǎn)程WSH。
注意：要確保在你的工作站上擁有最新的腳本引擎，你可以運(yùn)行下面提供的腳本。下載最新的腳本引擎請(qǐng)點(diǎn)擊這個(gè)鏈接：微軟腳本主頁(yè)。
==================================
CompName = inputbox("enter computer name")
Set Connect = GetObject("WinNT://"&CompName)
Set WshNetwork = WScript.CreateObject("WScript.Network")
Set oDrives = WshNetwork.EnumNetworkDrives
Set oPrinters = WshNetwork.EnumPrinterConnections
WScript.Echo "Network drive mappings:"
For i = 0 to oDrives.Count - 1 Step 2
WScript.Echo "Drive " & oDrives.Item(i) & " = " & oDrives.Item(i+1)
Next
WScript.Echo
WScript.Echo "Network printer mappings:"
For i = 0 to oPrinters.Count - 1 Step 2
WScript.Echo "Port " & oPrinters.Item(i) & " = " & oPrinters.Item(i+1)
Next
==================================
注意：當(dāng)你使用活動(dòng)目錄服務(wù)接口（Active Directory Services Interface ，ADSI）工作的時(shí)候，你必須擁有相同的可用權(quán)力，就如同你使用內(nèi)建的管理工具一樣。