WMI를 사용하여 추적을 캡처하는 방법

추적 캡처는 추적 로그를 보는 프로세스를 나타냅니다. 호스트 통합 서버의 경우 일반적으로 추적 로그 개체에 저장된 데이터를 단일 파일로 정렬하고 지정된 위치에 저장하는 것을 의미합니다. WMI(Windows Management Instrumentation)에서 다른 정보를 검색하는 것과 동일한 방식으로 SNA 추적 정보를 캡처할 수 있습니다. ExecQuery를 사용하여 관련 개체를 호출한 다음 원하는 위치에 정보를 씁니다.

추적을 캡처하려면

1. 매개 변수에 모니커가 있는 GetObject 를 사용하여 네임스페이스에 연결합니다.

2. ExecQuery를 사용하여 SNA 애플리케이션을 나타내는 개체를 검색합니다.

   추적 캡처의 핵심 기능은 다음 코드에서 설명할 수 있습니다.

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

   이 샘플의 다른 모든 항목은 파일에 대한 로깅을 지원하는 것입니다.

   다음 코드 예제에서는 추적을 캡처하는 방법을 보여줍니다.

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