pzh2393
13-02-2015, 11:21
Прошу перевести следующую группу пакетных скрипов 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.
Раньше чтобы не "маячили" окна скриптов пользовался утилитой 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.