Come visualizzare lo stato della connessione
Il recupero dello stato di una connessione è un'attività comune da eseguire con WMI.
Per visualizzare lo stato di una connessione
Connettersi allo spazio dei nomi usando GetObject con un moniker nel parametro.
Enumera MsSnaStatus_Connections usando ExecQuery.
Visualizzare i codici di errore se necessario.
Nell'esempio seguente viene illustrato come visualizzare lo stato di tutte le connessioni definite in Host Integration Server (HIS):
Private Function DisplayConnectionStatus ()
'Variables
Dim objWMIService, colItems, iCounter, objItem, _
strReport
'Connect to the namespace
Set objWMIService = GetObject("winmgmts:\\" & strComputer & "\root\microsofthis")
'Enumerate the Class
Set colItems = objWMIService.ExecQuery("Select * from MSSnaStatus_Connection")
iCounter = colItems.Count
if Err.Number = 0 then
For Each objItem in colItems
strReport = "Connection " & objItem.Name & " status is " & objItem.StatusText
Wscript.Echo strReport
strReport = ""
Next
else
Wscript.Echo "An error occurred enumerating instances for status " & Err.Number & " " & Err.Description
End If
DisplayConnectionStatus = true
End Function