Войти

Показать полную графическую версию : Авторизация на удалённом ПК (Remote PC Authorization)


morres
23-03-2012, 14:45
Подскажите пожалуйста!
Как в данном скрипте заменить вызов 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()




© OSzone.net 2001-2012