Функция GetAutoServerSettings

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

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

Параметры

Object

Обязательный параметр - объектное выражение, которое определяет объект в списке «Применяется к»

Progid

Необязательный параметр - выражение типа Variant, указывающее ProgID для компонента

CLSID

Необязательный параметр - выражение типа Variant, указывающее CLSID для компонента

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

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

Примечания

Если значение отсутствует или недоступно, то значением будет пустая строка. При возникновении ошибки во время выполнения метода будет возвращено значение 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

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