LocalComputer collection

Contains a single object that corresponds to the computer whose catalog you are accessing. This object holds computer level settings information. If you call the Connect method on an object created from the COMAdminCatalog class, the object in the LocalComputer collection contains information about the remote computer whose catalog you are accessing.

This collection does not support the Add and Remove methods of the COMAdminCatalogCollection object.

The LocalComputer collection inherits from the IUnknown interface but does not have additional members.

You can navigate from this collection to any of the following collections:

• ErrorInfo
• PropertyInfo
• RelatedCollectionInfo

You can navigate to this collection from the following collections:

• Root

The following properties are supported by the COMAdminCatalogObject object within the collection:

• ApplicationProxyRSN
• CISEnabled
• DCOMEnabled
• DefaultAuthenticationLevel
• DefaultImpersonationLevel
• DefaultToInternetPorts
• Description
• DSPartitionLookupEnabled
• InternetPortsListed
• IsRouter
• LoadBalancingCLSID
• LocalPartitionLookupEnabled
• Name
• OperatingSystem
• PartitionsEnabled
• Ports
• ResourcePoolingEnabled
• RPCProxyEnabled
• SecureReferencesEnabled
• SecurityTrackingEnabled
• SRPActivateAsActivatorChecks
• SRPRunningObjectChecks
• TransactionTimeout

If this property is set to True, the CLB server is configured and starts at startup. The server is added to the ApplicationCluster collection if it is not already present.

The following Microsoft Visual Basic example demonstrates how to connect to a remote computer and get its SecurityTrackingEnabled property by using the LocalComputer collection of the remote computer. To use this example, add the COM+ Admin Type Library as a reference to your Visual Basic project.

Function RemoteComputerConnect(strComputer As String _
) As Boolean  ' Return False if any errors occur.
    
    RemoteComputerConnect = False   ' Initialize the function.
    On Error GoTo My_Error_Handler  ' Initialize error handling.

    Dim boolSTE As Boolean
    Dim objCatalog As COMAdminCatalog
    Dim objRemoteRootColl As COMAdminCatalogCollection
    Dim objRemoteComputerColl As COMAdminCatalogCollection
    Dim objRemoteComputerItem As COMAdminCatalogObject
    
    Set objCatalog = CreateObject("COMAdmin.COMAdminCatalog")
    Set objRemoteRootColl = objCatalog.Connect(strComputer)
    Set objRemoteComputerColl = objRemoteRootColl.GetCollection( _
      "LocalComputer", objRemoteRootColl.Name)
    objRemoteComputerColl.Populate
    Set objRemoteComputerItem = objRemoteComputerColl.Item(0)
    boolSTE = objRemoteComputerItem.Value("SecurityTrackingEnabled")
    If boolSTE Then
        MsgBox "Security Tracking is enabled on " & strComputer
    Else
        MsgBox "Security Tracking is NOT enabled on " & strComputer
    End If

    Set objRemoteComputerItem = Nothing
    Set objRemoteComputerColl = Nothing
    Set objRemoteRootColl = Nothing
    Set objCatalog = Nothing
    RemoteComputerConnect = True  ' Successful end to procedure
    Exit Function

My_Error_Handler:  ' Replace with specific error handling.
    MsgBox "Error # " & Err.Number & " (Hex: " & Hex(Err.Number) _
      & ")" & vbNewLine & Err.Description
    Set objRemoteComputerItem = Nothing
    Set objRemoteComputerColl = Nothing
    Set objRemoteRootColl = Nothing
    Set objCatalog = Nothing
End Function

To use the function, provide a string value for the name of the remote computer. The following Visual Basic code shows how to connect to the computer named "RemoteComputerName".

Sub Main()
    If Not RemoteComputerConnect("RemoteComputerName") Then
        MsgBox "RemoteComputerConnect failed."
    End If
End Sub

COM+ Administration Collections