Любой язык - [решено] Передать данные из bat-файла в vbs-скрипт

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

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

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

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

Любой язык - [решено] Передать данные из bat-файла в vbs-скрипт

Hector

Misanthrope

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

Конфигурация

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

Есть bat-файл

Код:

@echo off

set directory=d:\hz

:loop

ping 127.0.0.1 -n 5 >nul

dir /b /a-d %directory% >nul 2>&1 || goto:loop

exit

который запускается скриптом

Код:

Set WshShell = CreateObject("WScript.Shell")

do while true

RetCode = WshShell.Run("mf.bat",0,true)

if RetCode=0 Then
  
  MsgBox "Новые файлы"

end if

loop

можно ли как то переменную directory передать в скрипт, что бы можно было сделать в нем так MsgBox "Новые файлы" &directory т. е. вывести значение переменной в окне скрипта

-------
Information must be free!
Нет границ, есть только препятствия

Отправлено: 13:21, 21-06-2011

amel27

Googler

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

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

Hector, не вижу смысла городить огород из VBS и CMD:

Код:

Set cF = WScript.CreateObject("Scripting.FileSystemObject").GetFolder("d:\hz").Files
Do While vbTrue
  If cF.Count > 0 Then MsgBox "Новые файлы"
  WScript.Sleep(5000)
Loop

Это сообщение посчитали полезным следующие участники:

El Sanchez, Hector

Отправлено: 15:38, 21-06-2011 | #2