' В начале раб.дня диск сетевой надо подключть а в конце дня отключить, например, предварительно спросив об этом. Dim WshNetwork 'переменная - содержащая доступ к диску Dim flag 'переменная - указывающая на текущее подключение Dim bitcode 'переменная - тип нажатой клавиши Set WshNetwork = WScript.CreateObject("WScript.Network") ' переменная приводится к класу сетевых подключений Set oDrives = WshNetwork.EnumNetworkDrives 'переменная - массив текущих дисковых подключений, где ячейка за ячейкой: имя диска и путь к нему в сети flag=0 'первоачально For i = 0 to oDrives.Count - 1 Step 2 ' просмотр всего массива дисковых состояний с шагом 2, для выделения только имен дисков if (oDrives.Item(i) ="X:") then flag=1 ' если имя диска искомое .. Next if flag = 1 then ' если диск подключен, то его наверно надо отключить bitcode=MsgBox ("Диск X: подключен, отключить его ?", 1, "Работа с сетевым диском") ' вывести окно и получить значение нажатой клавиши if bitcode <> 1 Then WScript.Quit ' если не нажат О.К. выход WshNetwork.RemoveNetworkDrive "x:" ' отключение сетевого диска end if if flag = 0 then ' если ниск не найден , то подключаем bitcode=MsgBox ("Диск X: не подключен, подключить его ?", 1, "Работа с сетевым диском") if bitcode <> 1 Then WScript.Quit WshNetwork.MapNetworkDrive "x:", "\\main\big_frame_work.fr_today" ' подключение диска с указанным маршрутом end if