[решено] Наличие файла на сервере (да-да, знаю-знаю как надоел)

Компьютерный форум OSzone.net (http://forum.oszone.net/index.php)

- Скриптовые языки администрирования Windows (http://forum.oszone.net/forumdisplay.php?f=102)

Наличие файла на сервере (да-да, знаю-знаю как надоел)

Спасибо всем, кто не поленился открыть! =)
Тема такая - при старте проги, первым в очереди стоит *.bat, который должен проверять наличие файла на сервере и если, он есть, сказать что бы шли на форум, а сели нет файла - то прога запускалась бы. Вот так.

Дополню, что разумно было бы вместо *.bat, использовать *.vbs (чтоб выдавать MsgBox, в котором кнопки ДА/НЕТ; на ДА - шёл бы линк, на НЕТ - шла бы загрузка проги). Но, к сожалению, с трудом ворочаю что в BAT, что в VBS =)

Скорее всего, файл будет на http протоколе, но вся фича в том, что надо умудрится сделать вышеописаное ШТАТНЫМ набором средств.

С_П_А_С_И_Б_О!

[upd]
Забыл ещё тему, что если нет соединение с Инетом, то он должен выдавать MsgBox с ДА/НЕТ (если говорить о *.vbs).
Если о *.bat файле, то пусть пропингует www.ru и пошлёт юзера за интернетом коментарием (помоему в CMD нет вывода MsgBox'а).

СПАСИБО!

Онотоле_0001, пожалуйста, то же самое, но по-русски.

Онотоле_0001, Вы хотите указать в какой очерёдности загрузиться конкретному файлу?

Вы бы действительно, перевели ваш сумбур на русский язык
И вы наверно в чатах любите сидеть :)

Ну блин, старался тут расписывал)
Вобщем соль вот в чём - батник/скрипт должен проверять подключение к интернету и, при наличии такого, проверить наличие файла на http и выдать Msgbox с предложением пойти по ссылке на форум.
в чатах сидеть привычки не имею =)

Онотоле_0001, проверять подключение к интернету ни к чему. Достаточно проверить доступность файла.

Например, так:

Код:

"%ProgramFiles%\WGet\wget.exe" --spider --quiet "http://www.nirsoft.net/utils/shexview.zip" && (msg.exe * /w /time:15 "Now you going to site «ShellExView - Shell Extensions Manager»" & start "" "http://www.nirsoft.net/utils/shexview.html")

не, эт я в одном из топиков видал уже =)
фича №2 состоит в том, что сделать это надо ШТАТНЫМ набором средств -.-

Цитата:

Цитата Онотоле_0001

фича №2 состоит в том, что сделать это надо ШТАТНЫМ набором средств -.- »

Попробуйте так:

Код:

Option Explicit



Dim strUrl





strUrl = "http://www.nirsoft.net/utils/shexview.zip"



With WScript.CreateObject("Microsoft.XMLHTTP")

        .open "HEAD", strUrl, False

        .setRequestHeader "If-Modified-Since", "Thu, 1 Jan 1970 00:00:00 UTC"

        .send

        

        If .status = 200 Then

                If WScript.CreateObject("WScript.Shell").Popup( _

                        "Now you going to site «ShellExView - Shell Extensions Manager»" , 15, "File [" & strUrl & "] exists on server", vbOKCancel + vbInformation _

                ) <> vbCancel Then

                        

                        WScript.CreateObject("Shell.Application").ShellExecute "http://www.nirsoft.net/utils/shexview.html"

                End If

        Else

                'WScript.Echo "File [" & strUrl & "] not exists on server"

        End If

End With



WScript.Quit

Спасибо, попробуем!)

[upd] Не, не работает, ничего не выдаёт, да и процесс в диспетчере на пару секунд повляется, думаю, что просто проверяет на правильность и вырубается.

Онотоле_0001, к сожалению, по моему недогляду, в пост попал последний вариант, когда я проверял работоспособность с несуществующей ссылкой:

Код:

strUrl = "http://www.nirsoft.net/utils/shexview2.zip"

Я исправил предыдущий пост. Пробуйте снова:

Цитата:

Код:

---------------------------

File [http://www.nirsoft.net/utils/shexview.zip] exists on server

---------------------------

Now you going to site «ShellExView - Shell Extensions Manager»

---------------------------

ОК   Отмена   

---------------------------

СПАСИБО ОГРОМНОЕ!
Двоечка многое поменяла)
Не знаю как выразить благодарность, пивом что ли?)
СПАСИБО!

Тема закрыта.

Цитата:

Цитата Онотоле_0001

Не знаю как выразить благодарность, пивом что ли?) »

Это к Администрации ;).