Coleção LocalComputer

Contém um único objeto que corresponde ao computador cujo catálogo você está acessando. Esse objeto contém informações de configurações de nível de computador. Se você chamar o método Connect em um objeto criado a partir da classe COMAdminCatalog , o objeto na coleção LocalComputer conterá informações sobre o computador remoto cujo catálogo você está acessando.

Essa coleção não dá suporte aos métodos Add e Remove do objeto COMAdminCatalogCollection .

Membros

A coleção LocalComputer herda da interface IUnknown , mas não tem membros adicionais.

Coleções relacionadas

Você pode navegar desta coleção para qualquer uma das seguintes coleções:

• ErrorInfo
• Propertyinfo
• RelatedCollectionInfo

Você pode navegar para essa coleção a partir das seguintes coleções:

• Raiz

Propriedades

As propriedades a seguir são compatíveis com o objeto COMAdminCatalogObject dentro da coleção:

• ApplicationProxyRSN
• CISEnabled
• DCOMEnabled
• DefaultAuthenticationLevel
• DefaultImpersonationLevel
• DefaultToInternetPorts
• Descrição
• DSPartitionLookupEnabled
• InternetPortsListed
• IsRouter
• LoadBalancingCLSID
• LocalPartitionLookupEnabled
• Nome
• OperatingSystem
• PartitionsEnabled
• Portas
• ResourcePoolingEnabled
• RPCProxyEnabled
• SecureReferencesEnabled
• SecurityTrackingEnabled
• SRPActivateAsActivatorChecks
• SRPRunningObjectChecks
• TransactionTimeout

ApplicationProxyRSN

CISEnabled

DCOMEnabled

DefaultAuthenticationLevel

DefaultImpersonationLevel

DefaultToInternetPorts

Descrição

DSPartitionLookupEnabled

InternetPortsListed

IsRouter

Se essa propriedade estiver definida como True, o servidor CLB será configurado e começará na inicialização. O servidor será adicionado à coleção ApplicationCluster se ainda não estiver presente.

LoadBalancingCLSID

LocalPartitionLookupEnabled

Nome

OperatingSystem

PartitionsEnabled

Portas

ResourcePoolingEnabled

RPCProxyEnabled

SecureReferencesEnabled

SecurityTrackingEnabled

SRPActivateAsActivatorChecks

SRPRunningObjectChecks

TransactionTimeout

Exemplo

O exemplo do Microsoft Visual Basic a seguir demonstra como se conectar a um computador remoto e obter sua propriedade SecurityTrackingEnabled usando a coleção LocalComputer do computador remoto. Para usar este exemplo, adicione o COM+ Administração Biblioteca de Tipos como uma referência ao seu projeto do Visual Basic.

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

Para usar a função , forneça um valor de cadeia de caracteres para o nome do computador remoto. O código do Visual Basic a seguir mostra como se conectar ao computador chamado "RemoteComputerName".

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

Confira também

Coleções de administração COM+