Загадочный агент.

[Dymytry]

День добрый!

Посоветуйте с такой странной проблемкой: есть агент который просто проходит по виду с группами $VIMGroups в Адресной Книге и чего-то там считывает. Удивительное рядом: если я запускаю агент под веб - он считывает оттуда все группы. Если же я запускаю его из клиента (я так хочу т.к. добавил туда немного swinga-интерфейса), то он видит только ДВЕ группы: OtherDomainServers и LocalDomainServers.

Я конечно понимаю, что во втором случае агент работает на клиенте. Но собственно какая разница? Я как юзер имею доступ к АК по-любому. И почему видны именно те два документа?

Агент на Джаве.

 

[nvyush]

Посмотрите внимательно вторую закладку свойств агента, от имени кого и с какими разрешениями он выполняется. Пользователь, от имени которого выполняется агент, может видеть остальные группы?

 

[RAJ]

.... то он видит только ДВЕ группы: OtherDomainServers и LocalDomainServers.

такое ощущение, что он локальную книгу сканирует, а не серверную
как вы открываете АК?

 

[ToxaRat]

Dymytry
1) при запуске через веб(если всё по дефоулту) - агент стартует от имени подписавшего
2) при запуске от клиента(если всё по дефоулту) - агент стартует от имени запускающего его
3) Агент точно видет АК сервера а не локальную?

 

[Dymytry]

ААААААААААА!

Да.
Не поставил имя сервера когда получал адресную книгу, и оказался на локале. "Умолчанные" параметры - зло!

Спасибо! <_<

 

[yerke]

ААААААААААА!

Да.
Не поставил имя сервера когда получал адресную книгу, и оказался на локале. "Умолчанные" параметры - зло!

Спасибо!

а так можно получить серверную книгу и в локале)))

	'=get PublicAddressBook
Set PublicAddressBook=Nothing
'=
AddressBooks=ses.AddressBooks
Forall AddressBook In AddressBooks
If Not(AddressBook Is Nothing) Then
If AddressBook.IsPublicAddressBook Then
Set PublicAddressBook=AddressBook
Exit Forall
End If
End If
End Forall
'=
If PublicAddressBook Is Nothing Then
Print "Серверная адресная книга не найдена!"
Exit Sub
End If
'=
If Not PublicAddressBook.IsOpen Then
If Not(PublicAddressBook.Open("", "")) Then
Print "Серверная адресная книга не доступна!"
Exit Sub
End If
End If