Cómo capturar un seguimiento con WMI

La captura de seguimiento hace referencia al proceso de visualización de registros de seguimiento. Para Host Integration Server, esto normalmente hace referencia a la intercalación de datos almacenados en objetos de registro de seguimiento en un único archivo y guardarlos en una ubicación especificada. Puede capturar información de seguimiento de SNA de la misma manera que recuperaría cualquier otra información de Instrumental de administración de Windows (WMI). Use ExecQuery para realizar una llamada al objeto pertinente y, a continuación, escribir la información en la ubicación que desee.

Para capturar un seguimiento

1. Conéctese al espacio de nombres mediante GetObject con un moniker en el parámetro .

2. Recupere los objetos que representan la aplicación SNA mediante ExecQuery.

   La funcionalidad principal de capturar un seguimiento se puede describir en el código siguiente:

   Set colItems = objWMIService.ExecQuery("Select * from MsHisTrace_SNAApplication",,48)  
   Set colItems = objWMIService.ExecQuery("Select * from MsHisTrace_SNABase",,48)  
   

   Todo lo demás de este ejemplo es admitir el registro en un archivo.

   En el ejemplo de código siguiente se muestra cómo capturar un seguimiento:

On Error Resume Next  
strComputer = "."  
Dim iCounter  
'Initialize  
    CreateLogFile  
    Set objWMIService = GetObject("winmgmts:\\" & strComputer & "\root\MicrosoftHIS")  
  
'Validate TraceSnaApplication  
    iCounter = 0  
    Set colItems = objWMIService.ExecQuery("Select * from MsHisTrace_SNAApplication",,48)  
For Each objItem in colItems  
    Wscript.Echo "APPCTrace: " & objItem.APPCTrace  
    Wscript.Echo "CPICTrace: " & objItem.CPICTrace  
    Wscript.Echo "CSVTrace: " & objItem.CSVTrace  
    Wscript.Echo "EnabledTraces: " & objItem.EnabledTraces  
    Wscript.Echo "InternalMessageTrace: " & objItem.InternalMessageTrace  
    Wscript.Echo "LU62Trace: " & objItem.LU62Trace  
    Wscript.Echo "LUATrace: " & objItem.LUATrace  
    Wscript.Echo "T3270Trace: " & objItem.T3270Trace  
    iCounter = iCounter + 1  
Next  
  
if iCounter > 0 then  
    Wscript.Echo "Number of Instances found " & iCounter  
else  
    Wscript.Echo "No Instances Found"  
End If  
  
    iCounter = 0  
    Set colItems = objWMIService.ExecQuery("Select * from MsHisTrace_SNABase",,48)  
For Each objItem in colItems  
    Wscript.Echo "EnabledTraces: " & objItem.EnabledTraces  
    Wscript.Echo "InternalMessageTrace: " & objItem.InternalMessageTrace  
    Wscript.Echo "LU62Trace: " & objItem.LU62Trace  
    Wscript.Echo "T3270Trace: " & objItem.T3270Trace  
    iCounter = iCounter + 1  
Next  
  
if iCounter > 0 then  
    Wscript.Echo "Number of Instances found " & iCounter  
else  
    Wscript.Echo "No Instances Found"  
End If