Compartir a través de

Cómo capturar una traza con WMI

La captura de trazas hace referencia al proceso de visualización de registros de trazas. En 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 traza de SNA de la misma manera que recuperaría cualquier otra información de la instrumentación de administración de Windows (WMI). Se usa ExecQuery para realizar una llamada al objeto pertinente y, a continuación, escribir la información en la ubicación que desee.

Para capturar una traza

  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 una traza se puede describir en el siguiente código:

    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 para apoyar 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
  • Last updated on