Нужно переназначить диски из файла VBS

Question

Я очень новичок в VBS. Я пытаюсь сделать инструмент, который поможет с миграцией пользователей для обновления. Мне нужно получить принтеры и сопоставления дисков от текущего пользователя на компьютере, экспортировать в файл, скопировать файл на новый компьютер и затем импортировать этот файл. (нет взаимодействия с реестром)

Раздел принтера у меня уже есть, это подключенные сетевые диски, которые являются проблемой. IBelow - это скрипт для экспорта.

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: \server \share

Z: \server \share

Y: \server \share

Я пытаюсь найти способ импортировать эту информацию в новую машину для того же пользователя. Любая помощь будет оказана.

Спасибо,

Answer 1

,OpenTextFile () экспортированный файл ForReading, цикл до.AtEndOfStream.ReadLine () каждой строки, Split () на vbTab, (проверьте на правдоподобие), передайте два элемента массива Split () в.MapNetworkDrive.