Код:

Option Explicit
 
Dim fso, objShell, WshNetwork
Dim Path, UserName, UserDomain

Path = "\\MYSERVER.DOMAIN.COM\Share$\!Обмен\ABS\"
UserName = "superman"
UserDomain = "DOMAIN"

Set objShell = WScript.CreateObject ("WScript.shell")
objShell.run "cmd /C net use \\MYSERVER.DOMAIN.COM\IPC$ P@ssw0rd /USER:" & UserDomain & "\" & UserName

Set fso = CreateObject("Scripting.FileSystemObject")
If Not fso.FolderExists(Path & UserName & "." & UserDomain & "\") Then
    fso.CreateFolder(Path & UserName & "." & UserDomain)
End If

Set WshNetwork = CreateObject("WScript.Network")
On Error Resume Next
WshNetwork.RemoveNetworkDrive "V:"
WshNetwork.MapNetworkDrive "V:", Path & UserName & "." & UserDomain
objShell.NameSpace("V:").Self.Name = "Документы"

WScript.Quit()