Charles Ezzell (MSFT)
Guest
|
Posted:
Wed May 04, 2005 4:52 pm Post subject:
Re: How to use MsHisTrace_COMTI |
|
|
Paul,
here you go, but please not that most items are viewable only via WMI and
you can not change everything.
*** Begin Cut ***
On Error Resume Next
Const wbemFlagReturnImmediately = &h10
Const wbemFlagForwardOnly = &h20
arrComputers = Array("SNASERVER1")
For Each strComputer In arrComputers
WScript.Echo
WScript.Echo "=========================================="
WScript.Echo "Computer: " & strComputer
WScript.Echo "=========================================="
Set objWMIService = GetObject("winmgmts:\\" & strComputer &
"\root\MicrosoftHIS")
Set colItems = objWMIService.ExecQuery("SELECT * FROM MsHisTrace_COMTI",
"WQL", _
wbemFlagReturnImmediately +
wbemFlagForwardOnly)
For Each objItem In colItems
WScript.Echo "BlackBoard: " & objItem.BlackBoard
WScript.Echo "BriefLU62Trace: " & objItem.BriefLU62Trace
WScript.Echo "COMTIProxy: " & objItem.COMTIProxy
WScript.Echo "Conversions: " & objItem.Conversions
WScript.Echo "DataLayout: " & objItem.DataLayout
WScript.Echo "DataTransit: " & objItem.DataTransit
WScript.Echo "DPLHeaderTrace: " & objItem.DPLHeaderTrace
WScript.Echo "EnabledTraces: " & objItem.EnabledTraces
WScript.Echo "GeneralService: " & objItem.GeneralService
WScript.Echo "InternalMessageTrace: " & objItem.InternalMessageTrace
WScript.Echo "LU62Trace: " & objItem.LU62Trace
WScript.Echo "PipeLine: " & objItem.PipeLine
WScript.Echo "Registrar: " & objItem.Registrar
WScript.Echo "Repository: " & objItem.Repository
WScript.Echo "Scripting: " & objItem.Scripting
WScript.Echo "SessionManager: " & objItem.SessionManager
WScript.Echo "Transport: " & objItem.Transport
WScript.Echo
Next
Next
*** End Cut ***
Charles
"Paul" <ClearPath@newsgroup.nospam> wrote in message
news:uLodvgFUFHA.2928@TK2MSFTNGP09.phx.gbl...
| Quote: | Tried using this with GetObject("winmgmts:\\" & strComputer &
"\root\MicrosoftHIS") with no success. Need a hint.
|
|
|