能够找回远程驱动器映射和打印机的脚本

使用这个VB脚本能够连接到远程计算机并找回网络驱动器的映射和打印机。 

　　由于这个脚本是远程操作，你需要遵循建立一个远程WSH例子的步骤。这可以使用WSH 5.6或更高的版本。要想回顾一下如何安装一个远程WSH的例子，可以阅读这篇文章：安装远程WSH。

　　注意：要确保在你的工作站上拥有最新的脚本引擎，你可以运行下面提供的脚本。下载最新的脚本引擎请点击这个链接：微软脚本主页。

==================================
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
==================================

　　注意：当你使用活动目录服务接口（Active Directory Services Interface ，ADSI）工作的时候，你必须拥有相同的可用权力，就如同你使用内建的管理工具一样。