Функция

GetAutoServerSetting

Синтаксис

object.GetAutoServerSettings([progid], [clsid])

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

Параметры

Замечания

Функция GetAutoServerSettings возвращает результат типа Variant, который содержит массив значений, описывающих данный компонент ActiveX. Значения индексов и их описание следующие:
1 - True, если компонент ActiveX зарегистрирован как удаленный.
2 - Имя удаленной машины.
3 - Имя сетевого протокола RPC.
4  - Уровень идентификации RPC.

Пример использования

'данный пример возвращает информацию о зарегистрированном
'на удаленном сервере объекте «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 is registered remotely on a " & "server named: " & vRC(1)
        Else
            MsgBox "Hello is registered locally."
        End If
    End if
End Sub

Дополнительная информация

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

Еще функции: CallByName, CreateObject, GetAutoServerSetting, GetObject

Логин:

Пароль:

Регистрация, забыли пароль?