Необходимо преобразовать сценарий пакетного входа в VBScript

Question

В настоящее время мы переходим от использования сценариев пакетного входа к VBScript.

Как мы должны написать следующие строки из нашего пакетного файла в VBScript, чтобы иметь эквивалентный эффект?

net use p: \\server\%username%$ /persistent:yes

Любые идеи будут высоко ценится!

Answer 1

Метод MapNetworkDrive

Dim WshNetwork, WshShell, username
set WshShell = WScript.CreateObject("WScript.Shell")
username = WshShell.ExpandEnvironmentStrings("%username%")
Set WshNetwork = WScript.CreateObject("WScript.Network")
WshNetwork.MapNetworkDrive "P:", "\\Server\" & username, True