VBS/WSH/JS - подключение/отключение логических дисков

Внимание, важное сообщение: Дорогие Друзья!
В ноябре далекого 2001 года мы решили создать сайт и форум, которые смогут помочь как начинающим, так и продвинутым пользователям разобраться в операционных системах. В 2004-2006г наш проект был одним из самых крупных ИТ ресурсов в рунете, на пике нас посещало более 300 000 человек в день! Наша документация по службам Windows и автоматической установке помогла огромному количеству пользователей и сисадминов. Мы с уверенностью можем сказать, что внесли большой вклад в развитие ИТ сообщества рунета.

Но... время меняются, приоритеты тоже. И, к сожалению, пришло время сказать До встречи! После долгих дискуссий было принято решение закрыть наш проект. 1 августа форум переводится в режим Только чтение, а в начале сентября мы переведем рубильник в положение Выключен

Огромное спасибо за эти 24 года, это было незабываемое приключение. Сказать спасибо и поделиться своей историей можно в данной теме.

С уважением, ваш призрачный админ, BigMac...

VBS/WSH/JS - подключение/отключение логических дисков

pzh2393

Пользователь

Сообщения: 93
Благодарности: 2

Профиль | Отправить PM | Цитировать

Прошу перевести следующую группу пакетных скрипов BAT на VBS.
Раньше чтобы не "маячили" окна скриптов пользовался утилитой hidec, поскольку один из пакетных файлов постоянно запущен в системе.
Теперь пришла мысль, что скрипты VBS изначально могут не создавать дополнительных окон и так будет даже лучше.
Вот только познаний не достаточно для самостоятельного написания подобного..

(

Первый скрипт (начальный) монтирует несколько папок в качестве логических дисков, а так же проверяет доступность локального и в зависимости от результата запускает один из последующих пакетных файлов.

Код:

ping 127.0.0.1 -n 30 > nul
start /b subst D: "C:\Documents and Settings\D"
start /b subst I: "C:\Documents and Settings\I"
if exist "\\LAN\E" (
hidec /w NET.BAT
exit
)
hidec /w DIR.BAT
exit

пакетный файл DIR.BAT

Код:

subst E: "c:\Documents and Settings\E"
:chk
if exist "\\LAN\E" (
subst E: /d
Xcopy /e /c /y "c:\Documents and Settings\E\*.*" \\LAN\E\
Rd /s /q "c:\Documents and Settings\E\"
Md "c:\Documents and Settings\E"
hidec /w NET.BAT
exit
)
ping 127.0.0.1 -n 30 > nul
goto chk

пакетный файл NET.BAT

Код:

net use E: "\\LAN\E" /persistent:no
:chk
if not exist "\\LAN\E" (
net use E: /delete /y
hidec /w DIR.BAT
exit
)
ping 127.0.0.1 -n 30 > nul
goto chk

Разбивка на отдельные скрипты понадобилась, поскольку при попытке совмещения всех операций в одном пакетном файле - "ругалось" на невозможность повторного вызова команды subst.

Отправлено: 11:21, 13-02-2015