Insieme LocalComputer

Contiene un singolo oggetto che corrisponde al computer a cui si accede al catalogo. Questo oggetto contiene informazioni sulle impostazioni a livello di computer. Se si chiama il metodo Connect su un oggetto creato dalla classe COMAdminCatalog , l'oggetto nell'insieme LocalComputer contiene informazioni sul computer remoto a cui si accede al catalogo.

Questa raccolta non supporta i metodi Add e Remove dell'oggetto COMAdminCatalogCollection .

Membri

L'insieme LocalComputer eredita dall'interfaccia IUnknown ma non dispone di membri aggiuntivi.

Raccolte correlate

È possibile passare da questa raccolta a una delle raccolte seguenti:

• Errorinfo
• Propertyinfo
• RelatedCollectionInfo

È possibile passare a questa raccolta dalle raccolte seguenti:

• Root

Proprietà

Le proprietà seguenti sono supportate dall'oggetto COMAdminCatalogObject all'interno dell'insieme:

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

ApplicationProxyRSN

CISEnabled

DCOMEnabled

DefaultAuthenticationLevel

DefaultImpersonationLevel

DefaultToInternetPorts

Descrizione

DSPartitionLookupEnabled

InternetPortsListed

IsRouter

Se questa proprietà è impostata su True, il server CLB viene configurato e viene avviato all'avvio. Il server viene aggiunto all'insieme ApplicationCluster, se non è già presente.

LoadBalancingCLSID

LocalPartitionLookupEnabled

Nome

OperatingSystem

PartitionsEnabled

Porte

ResourcePoolingEnabled

RPCProxyEnabled

SecureReferencesEnabled

SecurityTrackingEnabled

SRPActivateAsActivatorChecks

SRPRunningObjectChecks

TransactionTimeout

Esempio

Nell'esempio seguente di Microsoft Visual Basic viene illustrato come connettersi a un computer remoto e ottenere la relativa proprietà SecurityTrackingEnabled utilizzando l'insieme LocalComputer del computer remoto. Per usare questo esempio, aggiungere com+ Amministrazione libreria dei tipi come riferimento al progetto 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

Per usare la funzione, specificare un valore stringa per il nome del computer remoto. Nel codice di Visual Basic seguente viene illustrato come connettersi al computer denominato "RemoteComputerName".

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

Vedi anche

Raccolte di amministrazione COM+