能夠找回遠(yuǎn)程驅(qū)動器映射和打印機(jī)的腳本
來源:中國政府采購招標(biāo)網(wǎng) 時間:2008/9/22
使用這個VB腳本能夠連接到遠(yuǎn)程計算機(jī)并找回網(wǎng)絡(luò)驅(qū)動器的映射和打印機(jī)。
由于這個腳本是遠(yuǎn)程操作,你需要遵循建立一個遠(yuǎn)程WSH例子的步驟。這可以使用WSH 5.6或更高的版本。要想回顧一下如何安裝一個遠(yuǎn)程WSH的例子,可以閱讀這篇文章:安裝遠(yuǎn)程WSH。
注意:要確保在你的工作站上擁有最新的腳本引擎,你可以運(yùn)行下面提供的腳本。下載最新的腳本引擎請點擊這個鏈接:微軟腳本主頁。
==================================
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)你使用活動目錄服務(wù)接口(Active Directory Services Interface ,ADSI)工作的時候,你必須擁有相同的可用權(quán)力,就如同你使用內(nèi)建的管理工具一樣。