Cómo recuperar información de conexión
Otra tarea común que puede realizar con Instrumental de administración de Windows (WMI) para Host Integration Server es recuperar información relacionada con una conexión.
Para recuperar información de conexión
Conéctese al espacio de nombres mediante GetObject con un moniker en el parámetro .
Recupere todos los objetos de información de conexión mediante ExecQuery.
Muestre la información según corresponda.
En el ejemplo de código siguiente se muestra cómo recuperar información sobre una conexión SDLC:
On Error Resume Next
strComputer = "."
Set objWMIService = GetObject("winmgmts:\\" & strComputer & "\root\MicrosoftHIS")
Set colItems = objWMIService.ExecQuery("Select * from MsSna_ConnectionSdlc",,48)
For Each objItem in colItems
Wscript.Echo "Activation: " & objItem.Activation
Wscript.Echo "Adapter: " & objItem.Adapter
Wscript.Echo "AllowIncoming: " & objItem.AllowIncoming
Wscript.Echo "BlockId: " & objItem.BlockId
Wscript.Echo "Comment: " & objItem.Comment
Wscript.Echo "CompressionLevel: " & objItem.CompressionLevel
Wscript.Echo "DialData: " & objItem.DialData
Wscript.Echo "DynamicLuDef: " & objItem.DynamicLuDef
Wscript.Echo "LocalControlPoint: " & objItem.LocalControlPoint
Wscript.Echo "LocalNetName: " & objItem.LocalNetName
Wscript.Echo "MaxBtu: " & objItem.MaxBtu
Wscript.Echo "Name: " & objItem.Name
Wscript.Echo "NodeId: " & objItem.NodeId
Wscript.Echo "PartnerConnectionName: " & objItem.PartnerConnectionName
Wscript.Echo "PeerRole: " & objItem.PeerRole
Wscript.Echo "RemoteBlockId: " & objItem.RemoteBlockId
Wscript.Echo "RemoteControlPoint: " & objItem.RemoteControlPoint
Wscript.Echo "RemoteEnd: " & objItem.RemoteEnd
Wscript.Echo "RemoteNetName: " & objItem.RemoteNetName
Wscript.Echo "RemoteNodeId: " & objItem.RemoteNodeId
Wscript.Echo "RetryDelay: " & objItem.RetryDelay
Wscript.Echo "RetryLimit: " & objItem.RetryLimit
Wscript.Echo "SdlcContactLimit: " & objItem.SdlcContactLimit
Wscript.Echo "SdlcContactTO: " & objItem.SdlcContactTO
Wscript.Echo "SdlcDataRate: " & objItem.SdlcDataRate
Wscript.Echo "SdlcDuplex: " & objItem.SdlcDuplex
Wscript.Echo "SdlcEncoding: " & objItem.SdlcEncoding
Wscript.Echo "SdlcIdleLimit: " & objItem.SdlcIdleLimit
Wscript.Echo "SdlcIdleTO: " & objItem.SdlcIdleTO
Wscript.Echo "SdlcLeasedLine: " & objItem.SdlcLeasedLine
Wscript.Echo "SdlcMultiPrimary: " & objItem.SdlcMultiPrimary
Wscript.Echo "SdlcPollAddress: " & objItem.SdlcPollAddress
Wscript.Echo "SdlcPollLimit: " & objItem.SdlcPollLimit
Wscript.Echo "SdlcPollRate: " & objItem.SdlcPollRate
Wscript.Echo "SdlcPollTO: " & objItem.SdlcPollTO
Wscript.Echo "SdlcStandby: " & objItem.SdlcStandby
Wscript.Echo "SdlcSwitchTO: " & objItem.SdlcSwitchTO
Wscript.Echo "Service: " & objItem.Service
Wscript.Echo "StatusText: " & objItem.StatusText
Wscript.Echo "XIDFormat: " & objItem.XIDFormat
Next