Перейти из форума на сайт.

НовостиФайловые архивы
ПоискАктивные темыТоп лист
ПравилаКто в on-line?
Вход Забыли пароль? Первый раз на этом сайте? Регистрация
Компьютерный форум Ru.Board » Компьютеры » В помощь системному администратору » Автоматизация администрирования. Часть 2

Модерирует : lynx, Crash_Master, dg, emx, ShriEkeR

ShriEkeR (23-05-2011 23:06): Автоматизация администрирования. Часть 3  Версия для печати • ПодписатьсяДобавить в закладки
На первую страницук этому сообщениюк последнему сообщению

   

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
   

На первую страницук этому сообщениюк последнему сообщению

Компьютерный форум Ru.Board » Компьютеры » В помощь системному администратору » Автоматизация администрирования. Часть 2
ShriEkeR (23-05-2011 23:06): Автоматизация администрирования. Часть 3


Реклама на форуме Ru.Board.

Powered by Ikonboard "v2.1.7b" © 2000 Ikonboard.com
Modified by Ru.B0ard
© Ru.B0ard 2000-2024

BitCoin: 1NGG1chHtUvrtEqjeerQCKDMUi6S6CG4iC

Рейтинг.ru