Авторизация на удалённом ПК (Remote PC Authorization)

Подскажите пожалуйста!
Как в данном скрипте заменить вызов cmd и авторизоваться на удалённом сервере средствами VBscript?

Код:

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()