VB & VBA in a Nutshell: The Language

GetAutoServerSettings Function

Syntax

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

object

Use: Required

Data Type: Object expression

An object variable representing the RacReg library.

Progid

Use: Optional

Data Type: Variant

The programmatic identifier (ProgID) for the component.

Clsid

Use: Optional

Data Type: Variant

The class identifier (CLSID) for the component.

Return Value

A Variant containing an array of values, described in the following table:

Index	Description
1	1 if the ActiveX component is registered to execute remotely, if registered to run locally
2	Remote machine name
3	RPC network protocol name
4	RPC authentication level

Description

Returns registration information for an ActiveX object.

Rules at a Glance

• Although both ProgID and Clsid are optional, one must be specified. They are also mutually exclusive.

• The variant array that is returned by GetAutoServerSettings is one-based.

• To access this function, you must reference the RacReg library in the References section of your project.

Example

Public Function tryCalling() As Boolean 'create local variables Dim oMyObj As MyRemServer.ServClass Dim oRacReg As New RacReg.RegClass Dim vASS As Variant Dim sTest As String 'get the settings of the ActiveX server vASS = _ oRacReg.GetAutoServerSettings("MyRemServer.ServClass") If Not (IsEmpty(vASS)) Then 'check element 1 of the array - True if remote If vASS(1) Then 'quick and dirty method of contacting the server 'at least it'll still work with NT5! sTest = Dir("\\" & ...