Домашняя страница Undo Do Save Карта сайта Обратная связь Поиск по форуму
МИР MS EXCEL - Гость.xls

Вход

Регистрация

Напомнить пароль

 

= Мир MS Excel/Справочники

МЕНЮ САЙТА
  • 1
  • 2
  • 3

КАТЕГОРИИ РАЗДЕЛА

ОПРОСЫ
Какой версией Excel Вы пользуетесь?
Всего ответов: 57437
Главная » Справочники » Функции VBA » Функции работы с объектами

GetAutoServerSettings

Функция GetAutoServerSettings

object.GetAutoServerSettings([Progid], [CLSID])

Возвращает информацию о состоянии регистрации компонента ActiveX

Параметры

Object
Обязательный параметр - объектное выражение, которое определяет объект в списке «Применяется к»
Progid
Необязательный параметр - выражение типа Variant, указывающее ProgID для компонента
CLSID
Необязательный параметр - выражение типа Variant, указывающее CLSID для компонента

Возвращаемое значение

Функция GetAutoServerSettings возвращает результат типа Variant, который содержит массив значений, описывающих данный компонент ActiveX. Значения индексов и их описание:

Значение Описание
1 True, если компонент ActiveX зарегистрирован как удаленный
2 Имя удаленной машины
3 Имя сетевого протокола RPC
4 Уровень идентификации RPC


Примечания

Если значение отсутствует или недоступно, то значением будет пустая строка. При возникновении ошибки во время выполнения метода будет возвращено значение Empty типа Variant

Пример

' Пример демонстрирует предоставление
' информации об удаленной регистрации объекта
' под именем «Hello»

Sub ViewHello()
 Dim oRegClass As New RegClass
 Dim vRC As Variant
 vRC = oRegClass.GetAutoServerSettings _
 ("HelloProj.HelloClass")
 If Not(IsEmpty(vRC)) Then
 If vRC(1) Then
 MsgBox "Hello зарегистрирован как удаленный на сервере: " & vRC(1)
 Else
 MsgBox "Hello зарегистрирован локально"
 End If
 End if
End Sub

Категория
Функции работы с объектами

Счетчики: 3305 | Добавил: Serge_007
Всего комментариев: 0
Добавлять комментарии могут только зарегистрированные пользователи.
[ Регистрация | Вход ]
Яндекс.Метрика Яндекс цитирования
© 2010-2024 · Дизайн: MichaelCH · Хостинг от uCoz · При использовании материалов сайта, ссылка на www.excelworld.ru обязательна!