WinFAQ Logo

WinFAQ

Главная cтраница
Windows NT/W2K/XP
Windows 95/98/Me
Форум

NT/2000/XP


Новые поступления
Основные сведения
Установка
Файловая система
Резервирование (Backups)
Служба удаленного доступа (RAS)
Реестр
Железо
Расширение возможностей Internet Explorer
Outlook / Exchange
Расширение сетевых возможностей
Расширение возможностей OS Windows NT
Конфигурирование Системы
Конфигурирование пользователей
Internet Explorer 4.0 / 5.0
Distributed File System
Terminal Server
TCP/IP
DHCP
WINS
DNS
NETWARE
Командные файлы
Сети
Печать
Безопасность
Windows 95/98, как клиент
Возможные проблемы
Proxy Server и ISA 2000
Windows "Whistler" 2001
Event Log
Разное

Друзья

WindowsFAQ.ru

InfoCity - виртуальный город компьютерной документации

Как настроить ISA на автоматическое дозванивание при помощи RAS?

Если вы откроете ветку вашего массива ISA, раскроете ветку Network Configuration и выберете Routing, то вы увидите ключ "Default rule". Если вы щелкните по нему правой кнопкой мыши и выберете Properties в открывшемся меню, а затем перейдете на закладку Actions, то здесь вы увидите параметр 'Automatically dial out', однако ни одна из ваших записей удаленного доступа показана не будет.

Для устранения этой проблемы вам нужно отредактировать и запустить несложный VBS-скрипт, приведенный ниже:

'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
'
' Copyright (c) 2000 Microsoft Corporation. All rights reserved.
'
'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''

'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
' Данный скрипт добавит новую запись удаленного доступа и
' выполнит ее настройку. После этого скрипт настроит ISA на
' использование этой записи
'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''

Sub SetDialupEntry()
Set ISA = CreateObject("FPC.Root")
ISA.Refresh
Set Arrays = ISA.Arrays

arrayname = InputBox("Укажите укажите массив ISA или нажмите <ENTER> для выбора первого массива")

If arrayname = "" Then
Set arr = Arrays(1)
Else
' Ищем указанный массив
On Error Resume Next
Set arr = Arrays(arrayname)

If Err.Number <> 0 Then
MsgBox "Указанный массив не найден"
Exit Sub
End If
End If


'Добавляем запись удаленного доступа
Set objDialupEntry = Arr.PolicyElements.DialupEntries.Add ("ISA_DISPLAY", "RAS_ENTRY")
'И задаем ее настройки
objDialupEntry.Credentials.UserName = "UserName" 'Здесь укажите логин
objDialupEntry.Credentials.Password = "Password" 'А здесь - пароль
objDialupEntry.AuthenticationEnabled = True
Arr.Save

Arr.Refresh

'Настройка ISA на использование этой записи
Set objRoutingRule= arr.NetworkConfiguration.RoutingRules(1)
objRoutingRule.PrimaryRoute.AutoDialOut.SetAutoDial True,"ISA_DOD"
objRoutingRule.Save

MsgBox "Выполнено"
End Sub

SetDialupEntry

Здесь нужно изменить параметры, выделенные цветом. Параметр ISA_DISPLAY - это название записи удаленного доступа, которое будет отображаться в ISA, а следующий параметр - это настоящее название записи удаленного доступа. Кроме того, впишите в скрипт нужный логин и пароль для доступа к нему.

Завершив изменение скрипта, дважды щелкните по скрипту для его запуска. Когда скрипт отработает, запись удаленного доступа появится в настройках ключа Default Rule.





Copyright © 1999-2004 Alexander Naoumovitch, Andrew Harchenko and SavageNoName.
При любом использовании материалов ссылка на http://WinFAQ.com.ru обязательна.
Авторские права на оригиналы статей: Microsoft Corporation, SavillTech Ltd, Simon Clausen