Scriptbox
 VBScript Links 
 About VBscript 
 JavaScript Links 
 About JavaScript 
 Powershell Links 
 PSCRIPT the Script Launcher 
 PowerShell Shortcut Keys 
 About Powershell 
     VBScript
    JavaScript
    Powershell
Disclaimer
Contact
Latest 10 Scripts
Script search
  :: { Category } :: 0-9ABCDEFGHIJKLMNOPQRSTUVWXYZ
         

Search Options:  Monitor  MSDTC  Distributed  Transaction  Coordinator  Performance  

 Content of Monitor MSDTC Distributed Transaction Coordinator Performance.vbs
MD5 Hash: 179A55C01E379876D827D8FFAA309FE0
' Description: Uses cooked performance counters to measure Microsoft Distributed Transaction Coordinator performance.


strComputer = "."
Set objWMIService = GetObject("winmgmts:" _
& "{impersonationLevel=impersonate}!\\" & strComputer & "\root\cimv2")
set objRefresher = CreateObject("WbemScripting.SWbemRefresher")
Set colItems = objRefresher.AddEnum(objWMIService," & _
"Win32_PerfFormattedData_MSDTC_DistributedTransactionCoordinator"). _
objectSet
objRefresher.Refresh

For i = 1 to 5
For Each objItem in colItems
Wscript.Echo "Aborted Transactions: " & objItem.AbortedTransactions
Wscript.Echo "Aborted Transactions Per Second: " & _
objItem.AbortedTransactionsPersec
Wscript.Echo "Active Transactions: " & objItem.ActiveTransactions
Wscript.Echo "Active Transactions Maximum: " & _
objItem.ActiveTransactionsMaximum
Wscript.Echo "Caption: " & objItem.Caption
Wscript.Echo "Committed Transactions: " & objItem.CommittedTransactions
Wscript.Echo "Committed Transactions Per Second: " & _
objItem.CommittedTransactionsPersec
Wscript.Echo "Description: " & objItem.Description
Wscript.Echo "Force Aborted Transactions: " & _
objItem.ForceAbortedTransactions
Wscript.Echo "Force Committed Transactions: " & _
objItem.ForceCommittedTransactions
Wscript.Echo "In-Doubt Transactions: " & objItem.InDoubtTransactions
Wscript.Echo "Name: " & objItem.Name
Wscript.Echo "Response Time Average: " & objItem.ResponseTimeAverage
Wscript.Echo "Response Time Maximum: " & objItem.ResponseTimeMaximum
Wscript.Echo "Response Time Minimum: " & objItem.ResponseTimeMinimum
Wscript.Echo "Transactions Per Second: " & objItem.TransactionsPersec
Wscript.Sleep 2000
objRefresher.Refresh
Next
Next

   © 2008 - 2013 Boris Toll      :: Scripts available: 6.481 ::      :: scriptbox.toll.at ::      :: powered by www.toll.at ::
  Google Entries:n/a
  Yahoo Backlinks:n/a
  Live Backlinks:n/a
  del.icio.us Bookmarks:n/a
  Technorati Links:n/a