希望从文件 VBS 重新映射驱动器

希望从文件 VBS 重新映射驱动器

我对 VBS 还很陌生。我正在尝试制作一个工具来帮助迁移用户以进行即将到来的刷新。我需要从机器上的当前用户那里获取打印机和驱动器映射,导出到文件,将文件复制到新机器,然后导入该文件。(无注册表交互)

我已经有了打印机部分,它的映射网络驱动器是一个问题。下面是用于导出的脚本。

Set objFSO = CreateObject("Scripting.FileSystemObject")

Const ForAppending = 8

Set objTextFile = objFSO.OpenTextFile _
 ("C:\Mapped_Drives.txt", ForAppending, True)


Set objNetwork = WScript.CreateObject("WScript.Network")
Set colDrives = objNetwork.EnumNetworkDrives
For i = 0 to colDrives.Count-1 Step 2
 objtextfile.writeline (colDrives.Item(i) & vbTab & colDrives.Item (i + 1))
Next
objtextfile.close

这将创建一个如下所示的文件

P:\服务器\共享

Z:\服务器\共享

Y:\server\share

我正在尝试找到某种方法将此信息导入同一用户的新机器。任何帮助都将不胜感激。

谢谢,

答案1

.OpenTextFile() 对导出的文件进行 ForReading,循环直到 .AtEndOfStream,.ReadLine() 每一行,在 vbTab 上进行 Split(),(检查合理性),将 Split() 数组的两个元素提供给 .MapNetworkDrive。

相关内容