次の方法で共有

WMI を使用してトレースをキャプチャする方法

  • [アーティクル]

トレース キャプチャは、トレース ログを表示するプロセスを指します。 Host Integration Server の場合、これは通常、トレース ログ オブジェクトに格納されているデータを 1 つのファイルに照合し、指定した場所に保存することを指します。 SNA トレース情報は、Windows Management Instrumentation (WMI) から他の情報を取得するのと同じ方法でキャプチャできます。 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