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()
Как в данном скрипте заменить вызов 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()