Collection LocalComputer

Contient un objet unique qui correspond à l’ordinateur dont vous accédez au catalogue. Cet objet contient des informations sur les paramètres au niveau de l’ordinateur. Si vous appelez la méthode Connect sur un objet créé à partir de la classe COMAdminCatalog , l’objet de la collection LocalComputer contient des informations sur l’ordinateur distant dont vous accédez au catalogue.

Cette collection ne prend pas en charge les méthodes Add et Remove de l’objet COMAdminCatalogCollection .

Membres

La collection LocalComputer hérite de l’interface IUnknown , mais n’a pas de membres supplémentaires.

Collections associées

Vous pouvez naviguer à partir de cette collection vers l’une des collections suivantes :

• ErrorInfo
• Propertyinfo
• RelatedCollectionInfo

Vous pouvez accéder à cette collection à partir des collections suivantes :

• Racine

Propriétés

Les propriétés suivantes sont prises en charge par l’objet COMAdminCatalogObject au sein de la collection :

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

ApplicationProxyRSN

CISEnabled

DCOMEnabled

DefaultAuthenticationLevel

DefaultImpersonationLevel

DefaultToInternetPorts

Description

DSPartitionLookupEnabled

InternetPortsListed

IsRouter

Si cette propriété a la valeur True, le serveur CLB est configuré et démarre au démarrage. Le serveur est ajouté à la collection ApplicationCluster s’il n’est pas déjà présent.

LoadBalancingCLSID

LocalPartitionLookupEnabled

Nom

OperatingSystem

PartitionsEnabled

Ports

ResourcePoolingEnabled

RPCProxyEnabled

SecureReferencesEnabled

SecurityTrackingEnabled

SRPActivateAsActivatorChecks

SRPRunningObjectChecks

TransactionTimeout

Exemple

L’exemple Microsoft Visual Basic suivant montre comment se connecter à un ordinateur distant et obtenir sa propriété SecurityTrackingEnabled à l’aide de la collection LocalComputer de l’ordinateur distant. Pour utiliser cet exemple, ajoutez la bibliothèque de types COM+ Administration en tant que référence à votre projet 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

Pour utiliser la fonction , fournissez une valeur de chaîne pour le nom de l’ordinateur distant. Le code Visual Basic suivant montre comment se connecter à l’ordinateur nommé « RemoteComputerName ».

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

Voir aussi

Regroupements d’administration COM+