[Anton04]

smol84,

У меня такое реализовано скриптом:

Код:

DiskLetter = "X:"                               ' Буква сетевого диска
NetPath = "\\ad\Script"                     ' Путь к расшаренной папке
Pr = " "
Kav = Chr(34)
Program = Kav&"%SYSTEMROOT%\regedit.exe"&Kav&Pr&"/s"&Pr&Kav&"x:\print.reg"&Kav      ' Программа для запуска после подключения сетевого диска
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