Scaramanga
Full Member | Редактировать | Профиль | Сообщение | ICQ | Цитировать | Сообщить модератору
Всем привет.
На sysadmin взял скрипт для подключения к сетевым дискам следующего содержания
Код: 'Скрипт подключения сетевого диска с определенной меткой.
'ВНИМАНИЕ!!!
'Скрипт не будет работать, если буква подключаемого диска совпадает с буквой локального диска.
'****************************************************************************
Option Explicit
Dim objFSO
Dim strDriveLetter, strRemotePath, strNewDiskName
strDriveLetter = "Z:"
strRemotePath = "\\
strNewDiskName = "Free"
On Error Resume Next
Set objFSO = CreateObject("Scripting.FileSystemObject")
'Если такой сетевой диск существует, отключаем его и переподключаем по новой.
'На тот случай, если был подключен не тот диск. Затем переименовываем.
'Если диск не существует, подключаем и переименовываем.
If objFSO.DriveExists(strDriveLetter) = True Then
RemNetDrive strDriveLetter, True, True
MapNetDrive strDriveLetter, strRemotePath, False
RenameNetDrive strDriveLetter, strNewDiskName
Else
MapNetDrive strDriveLetter, strRemotePath, False
RenameNetDrive strDriveLetter, strNewDiskName
End If
'****************************************************************************
'ПРОЦЕДУРЫ
'****************************************************************************
'Процедура переименования сетевого диска.
'Принимаемые параметры:
'strDriveLetter - буква диска + двоеточие, например "P:"
'strNewDiskName - новая метка диска, например "Документы бухгалтерии"
Sub RenameNetDrive (strDriveLetter, strNewDiskName)
Dim objShell
Set objShell = CreateObject("Shell.Application")
objShell.NameSpace(strDriveLetter).Self.Name = strNewDiskName
End Sub
'Процедура подключения сетевого диска.
'Принимаемые параметры:
'strDriveLetter - буква диска + двоеточие, например "P:"
'strRemotePath - путь к общему ресурсу, монтируемому, как диск, например "\\Fileserver01\Buh"
'bUpdateProfile - сохранять ли информацию в профиле пользователя. Аналог ключа /PERSISTENT:YES команды net use.
Sub MapNetDrive (strDriveLetter, strRemotePath, bUpdateProfile)
Dim objNetwork
Set objNetwork = CreateObject("WScript.Network")
objNetwork.MapNetworkDrive strDriveLetter, strRemotePath, bUpdateProfile
End Sub
'Процедура удаления сетевого диска.
'Принимаемые параметры:
'strDriveLetter - буква диска + двоеточие, например "P:"
'bForce - отключать ли диск, если он в данный момент используется
'bUpdateProfile - сохранять ли информацию в профиле пользователя.
Sub RemNetDrive (strDriveLetter, bForce, bUpdateProfile)
Dim objNetwork
Set objNetwork = CreateObject("WScript.Network")
objNetwork.RemoveNetworkDrive strDriveLetter, bForce, bUpdateProfile
End Sub |
Активно им пользуюсь, но сейчас возникла необходимость чтобы подключался диск от имени другого пользователя, но и чтобы функции этого скрипта не потерялись (т.е. переименование имени диска, проверка на уже уже существующий и т.п.) Грубо говоря. Нужно объеденить этот скрипт и
Код: Dim WshNetwork
Set WshNetwork = WScript.CreateObject("WScript.Network")
WshNetwork.MapNetworkDrive "q:", "\\192.168.1.100\e$", , "administrator", "password" |
этот. Заранее спасибо за помошь |
)
