none
Скрипты для добавления списков URL в URL Sets (ISA 2004) RRS feed

 > 

  • Вопрос

  • Question
    Нужно войти
    0
    Нужно войти

    Вот в чем вопрос, есть у меня текстовый файл с огроиным количеством URL-адресов сайтов с XXX содержымым. Хочу все их внести в ISA (ISA Server Managment/.../firewall Policy/Toolbox/Network Objects/URL Sets). Руками делать - можно сразу в психушку ложиться.

    Я знаю, что есть скрипты, с помощью которых можно добавить URL из текстового файла. Кто знает, напишите где можно об этом почитать, а еще лучше дайте ссылки на эти скрипты или текст скрипта.

    Спасибо.

    25 октября 2006 г. 6:47
    |

Ответы

Все ответы

  • Question
    Нужно войти
    0
    Нужно войти

     www.isatools.org

     www.isascripts.org

    25 октября 2006 г. 6:52
    |
  • Question
    Нужно войти
    0
    Нужно войти

    Я кажется нашел ответ.

    1. Открываем ISA Server Managment.
    2. Находим пункт firewall policy.
    3. В окне с права есть три вкладки - Toolbox, Tasks, Help. Нам нужна вкладка Toolbox.
    4. В этой вкладке пункт Network Objects.
    5. Далее раскрываем пунк URL Sets.
    6. Нажимаем "New/URL Set".
    7. В появившемся окне в поле "Name:" пишем любое имя, например "URL" и жмем "OK".
    8. Теперь пишем сам скрипт. Для этого обычным блокнотом создаем файл и меняем ему расширение с .txt на .vbs . В теле этого файла пишем следующее:

    -----

    Set Isa = CreateObject("FPC.Root")
    Set CurArray = Isa.GetContainingArray
    Set RuleElements = CurArray.RuleElements
    Set URLSets = RuleElements.URLSets
    Set URLSet = URLSets.Item("URL")
    Set FileSys = CreateObject("Scripting.FileSystembject")
    Set UrlsFile = FileSys.OpenTextFile("links.txt", 1)
    For i = 1 to URLSet.Count
     URLSet.Remove 1
    Next
    Do While UrlsFile.AtEndOfStream <> True
     URLSet.Add UrlsFile.ReadLine
    Loop
    WScript.Echo "Save..."
    CurArray.Save
    WScript.Echo "Complete"

    -----

    Пояснения к скрипту:

    • В тексте файла URL - это то, что мы делали в пункте 7 вышеизложенного.
    • links.txt - файл с списком URL адресов, которые надо внести в URL.

    Копируем наш файл (.vbs) и файл links.txt в одну папку и запускаем на машине с установленным ISA Server 2004.

    Запускаем наш скрипт (файл с расширением .vbs). В зависимости от того как много адресов написано в файле links.txt, может проити от нескольких секунд до нескольких минут, прежде, чем процесс будет завершен. По окончании появятся два окна. В первом будет написано "Save". Нажмите кнопку "ОК". Появится второе с надписью "Complete". Опять нажмите "ОК". Все, процесс завершен.

     

    25 октября 2006 г. 7:09
    |
  • Question
    Нужно войти
    0
    Нужно войти

    Я думаю, будет логично написать еще и информацию о добавлении  элементов текстового файла в набор имен доменов.

    По аналогии с добавлением в набор URL-адресов.

    1. Открываем ISA Server Managment.
    2. Находим пункт firewall policy.
    3. В окне с права есть три вкладки - Toolbox, Tasks, Help. Нам нужна вкладка Toolbox.
    4. В этой вкладке пункт Network Objects.
    5. Далее раскрываем пунк Domain Name Sets.
    6. Нажимаем "New/Domain Name Set".
    7. В появившемся окне в поле "Name:" пишем любое имя, например "Domains" и жмем "OK".
    8. Теперь пишем сам скрипт. Для этого обычным блокнотом создаем файл и меняем ему расширение с .txt на .vbs . В теле этого файла пишем следующее:

    -----

    Set Isa = CreateObject("FPC.Root")
    Set CurArray = Isa.GetContainingArray
    Set RuleElements = CurArray.RuleElements
    Set DomainNameSets = RuleElements.DomainNameSets
    Set DomainNameSet = DomainNameSets.Item("Domains") //коментарий: Domains - то, что мы делали в пункте 7 описанного выше.
    Set FileSys = CreateObject("Scripting.FileSystemObject")
    Set DomainsFile = FileSys.OpenTextFile("domlinks.txt", 1) //коментарий: domlinks.txt - файл со списками доменов
    For i = 1 to DomainNameSet.Count
    DomainNameSet.Remove 1
    Next
    Do While DomainsFile.AtEndOfStream <> True
    DomainNameSet.Add DomainsFile.ReadLine
    Loop
    WScript.Echo "Save"
    CurArray.Save
    WScript.Echo "Complete"

    -----

    "Коментарий: ....." - это в текст скрипта писать не надо, это просто коментарий

    Копируем наш файл (.vbs) и файл domlinks.txt в одну папку и запускаем на машине с установленным ISA Server 2004.

    Запускаем наш скрипт (файл с расширением .vbs). В зависимости от того как много адресов написано в файле domlinks.txt, может проити от нескольких секунд до нескольких минут, прежде, чем процесс будет завершен. По окончании появятся два окна. В первом будет написано "Save". Нажмите кнопку "ОК". Появится второе с надписью "Complete". Опять нажмите "ОК". Все, процесс завершен.

    25 октября 2006 г. 7:39
    |