我对 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。