anton04
Silver Member | Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору DiskLetter = "S:" ' Буква сетевого диска NetPath = "\\Server\Resurs" ' Путь к расшаренной папке Program = "C:\WINDOWS\system32\notepad.exe" ' Программа для запуска после подключения сетевого диска Set WShell = CreateObject("Wscript.Shell") Set WshNetwork = CreateObject("WScript.Network") 'Создаем объект WshNetwork Mess_Off = NetDiskUnMap(DiskLetter) Mess_On = NetDiskMap(DiskLetter, NetPath) If Mess_On = "yes" Then Sending = WShell.Run(Program, 1, True) Mess_Off = NetDiskUnMap(DiskLetter) End If ' Подключение сетевого диска Function NetDiskMap(Drive, NetPath) ' Set WshNetwork = CreateObject("WScript.Network") 'Создаем объект WshNetwork On Error Resume Next WshNetwork.MapNetworkDrive Drive, NetPath If Err.Number <> 0 Then Mess = "Ошибка при подключении диска " + Drive + vbCrLf + "Код ошибки: " + CStr(Err.Number) + vbCrLf + "Описание: " + Err.Description MsgBox Mess, 16, "Подключение сетевого диска" Else Mess = "yes" End If On Error GoTo 0 NetDiskMap = Mess ' MsgBox Mess, 16, "Подключение сетевого диска" End Function ' Отключение сетевого диска Function NetDiskUnMap(Drive) ' Set WshNetwork = CreateObject("WScript.Network") 'Создаем объект WshNetwork On Error Resume Next WshNetwork.RemoveNetworkDrive Drive If Err.Number <> 0 Then Mess = "Ошибка при отключении диска " + Drive + vbCrLf + "Код ошибки: " + CStr(Err.Number) + vbCrLf + "Описание: " + Err.Description Else Mess = "yes" End If On Error GoTo 0 NetDiskUnMap = Mess ' MsgBox Mess, 64, "Отключение сетевого диска" End Function | Всего записей: 2803 | Зарегистр. 14-06-2006 | Отправлено: 16:53 05-05-2010 | Исправлено: anton04, 15:01 28-05-2010 |
|