Функция 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
Категория
Функции работы с объектами