Страницы: 1 2 След.
RSS
Переодическое обновление списка сетей
 
Есть список сетей который обновляется каждые 4 часа, он доступен по адресу в интернете (адрес постоянный). Нужно чтоб ТИ тоже обновлял свои фильтры согласно этому списку.

Есть ли возможность как то организовать это???

P.S. Форум по этой теме перешерстил вроде весь
 

выяснить название файла в папке \config\flt_0DE03B52-C2D6-4A85-BEE0-74FD1AB7703F.txt (с нужным содержимым), сделать батник закачивающий нужный файл из инета(он же текстовый и скорее всего содержит ип сети принадлежащие Вашей зоне) и копирующий его содержимое в данный. запускать по шедуллеру каждые 4 часа.



тут   https://forum.ru-board.com/topic.cgi?forum=62&topic=6156& amp;start=0 можно посмотреть

DmitryPC39474.6449421296
 
Спасибо большое, попробуем.
 
https://help.smart-soft.ru/apiimportdesc.htm</br><br />пример программы для загрузки списка на форуме выкладывался
 
Может кто то подскажет точнее где, а то никак найти не могу.

Пытаюсь делать все как написано здесь


https://help.smart-soft.ru/apiimportdesc.htm<br><br>Постоянно вылазит ошибка в скрипте.


Код
Srv.APILogon(Ввожу сюда апи пароль)<br>APIImportDesc(21, Item, file1.txt,&nbsp; outErrorPos, outErrorText)<br>


И пишет что ошибка компилятора в строку 2 символ 63.

Подскажите плиз что не так.
 

Цитата
...



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

 
Уже перепробовал по разному  но все равно ругается на строчку с
APIImportDesc(21, Item, file1.txt,  outErrorPos, outErrorText)

попробовал даже так
Это чуть переработаный стандартный скрипт "rstcnt.vbs"
 
Код
Set Args = WScript.Arguments.Unnamed<br>If Args.Count &lt;&gt; 1 Then<br>&nbsp;&nbsp;&nbsp; WScript.Echo "??? usage: cscript.exe rstcnt.vbs APIPassword /sn:ServerName"<br>&nbsp;&nbsp;&nbsp; WScript.Quit<br>End If<br><br>APIPass = Args(0)<br><br>If WScript.Arguments.Named.Exists("sn") Then<br>&nbsp;&nbsp;&nbsp; ServName = WScript.Arguments.Named.Item("sn")<br>&nbsp;&nbsp;&nbsp; Set Srv = CreateObject("TrafInsp.TrafInspAdmin", ServName)<br>Else<br>&nbsp;&nbsp;&nbsp; Set Srv = CreateObject("TrafInsp.TrafInspAdmin")<br>End If<br>Srv.APILogon(APIPass)<br><br>APIImportDesc(21, Item, file1.txt,&nbsp; outErrorPos, outErrorText)


Запускал скрипт как из папки скрипт и из других мест, ничего непомогает
 
2008-01-30_091055_UpdateList.rar



при запуске с ключем -hide программа выполняет загрузку и закрывается



повесьте в планировщик задач и обновляейте список.

параметры сохраняются в реестре



вот и исходники 2008-01-30_091050_UpdateListsSource.rar

Default39477.3830439815
 
Спасибо большое

Если несложно нужен сам скрипт обновления списка сетей на VB, а то у меня прога достающая список сетей есть а с скриптом никак не пойму в чем проблема, нивкакую не хочет  VB  воспринимать то что я пытаюсь сваять


 
1) Item (имя списка) где назначается?

2) file1.txt - это должна быть строка, а не имя файла.

где у вас загрузка файла происходит?
Страницы: 1 2 След.
Читают тему (гостей: 2)