Contact Info

Crumbtrail

ActiveXperts.com » Administration » VBScript Collection » Networking » Monitoring

Networking Monitoring Script Samples (VBScript)

Monitor HTTP Indexing Service Performance
Monitor IPSec 4 Driver Performance
Monitor IPSec 4 IKE Performance
Monitor MSDTC Distributed Transaction Coordinator Performance
Monitor PSched Flow Performance
Monitor PSched Pipe Performance
Monitor Remote Access Performance
Monitor Remote Access RAS Port Performance
Monitor Redirector Service Performance
Monitor RSVP ACSRVP Interfaces Performance
Monitor RSVP ACSRVPS Service Performance
Monitor TAPI Server Telephony Performance
Monitor TCP-IP ICMP Performance
Monitor TCP-IP ICMPv6 Performance
Monitor TCP-IP IP Performance
Monitor TCP-IP IPv4 Performance
Monitor TCP-IP IPv6 Performance
Monitor TCP-IP Network Interface Performance
Monitor TCP-IP TCP Performance
Monitor TCP-IP TCPv4 Performance
Monitor TCP-IP TCPv6 Performance
Monitor TCP-IP UDP Performance
Monitor TCP-IP UDPv4 Performance
Monitor TCP-IP UDPv6 Performance
Monitor TCP NBT Connection Performance


You can use any of the VBScript programs below in ActiveXperts Network Monitor. Click here for an explanation about how to include scripts in ActiveXperts Network Monitor.



Monitor HTTP Indexing Service Performance


Uses cooked performance counters to return performance data from the HTTP Indexing Service.
strComputer = "."
Set objWMIService = GetObject("winmgmts:" _
    & "{impersonationLevel=impersonate}!\\" & strComputer & "\root\cimv2")
set objRefresher = CreateObject("WbemScripting.SWbemRefresher")
Set colItems = objRefresher.AddEnum(objWMIService," & _
    "Win32_PerfFormattedData_ISAPISearch_HTTPIndexingService").objectSet
objRefresher.Refresh

For i = 1 to 5
    For Each objItem in colItems
        Wscript.Echo "Active Queries: " & objItem.Activequeries
        Wscript.Echo "Cache Items: " & objItem.Cacheitems
        Wscript.Echo "Caption: " & objItem.Caption
        Wscript.Echo "Current Requests Queued: " & _
            objItem.Currentrequestsqueued
        Wscript.Echo "Description: " & objItem.Description
        Wscript.Echo "Name: " & objItem.Name
        Wscript.Echo "Percent Cache Hits: " & objItem.PercentCachehits
        Wscript.Echo "Percent Cache Misses: " & objItem.PercentCachemisses
        Wscript.Echo "Queries Per Minute: " & objItem.Queriesperminute
        Wscript.Echo "Total Queries: " & objItem.Totalqueries
        Wscript.Echo "Total Requests Rejected: " & _
            objItem.Totalrequestsrejected
        Wscript.Sleep 2000
        objRefresher.Refresh
    Next
Next
	

Monitor IPSec 4 Driver Performance


Uses cooked performance counters to monitor IPSec v4 driver performance.
strComputer = "."
Set objWMIService = GetObject("winmgmts:" _
    & "{impersonationLevel=impersonate}!\\" & strComputer & "\root\cimv2")
Set objRefresher = CreateObject("WbemScripting.SWbemRefresher")
Set colItems = objRefresher.AddEnum _
    (objWMIService, "Win32_PerfFormattedData_IPSec4Driver").objectSet
objRefresher.Refresh

For i = 1 to 5
    For Each objItem in colItems
        Wscript.Echo "Pending key exchange operations: " & _
            objItem.PendingKeyExchangeOperations
        Wscript.Sleep 2000
        objRefresher.Refresh
    Next
Next
	

Monitor IPSec 4 IKE Performance


Uses cooked performance counters to monitor IPSec v4 IKE performance.
strComputer = "."
Set objWMIService = GetObject("winmgmts:" _
    & "{impersonationLevel=impersonate}!\\" & strComputer & "\root\cimv2")
Set objRefresher = CreateObject("WbemScripting.SWbemRefresher")
Set colItems = objRefresher.AddEnum _
    (objWMIService, "Win32_PerfFormattedData_IPSec4Driver").objectSet
objRefresher.Refresh

For i = 1 to 5
    For Each objItem in colItems
        Wscript.Echo "Acquire heap size: " & _
            objItem.AcquireHeapSize
        Wscript.Echo "Main mode SA list entries: " & _
            objItem.MainModeSAListEntries
        Wscript.Echo "Quick mode SA list entries: " & _
            objItem.QuickModeSAListEntries
        Wscript.Echo "Receive heap size: " & _
            objItem.ReceiveHeapSize
        Wscript.Echo "Total authentication failures: " & _
            objItem.TotalAuthenticationFailures
        Wscript.Echo "Total main mode SAs: " & _
            objItem.TotalMainModeSAs
        Wscript.Echo "Total negotiation failures: " & _
            objItem.TotalNegotiationFailures
        Wscript.Echo "Total quick mode SAs: " & _
            objItem.TotalQuickModeSAs
        Wscript.Echo "Total soft associations: " & _
            objItem.TotalSoftAssociations
        Wscript.Sleep 2000
        objRefresher.Refresh
    Next
Next
	

Monitor MSDTC Distributed Transaction Coordinator Performance


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
	

Monitor PSched Flow Performance


Uses cooked performance counters to measure flow statistics from the packet scheduler
strComputer = "."
Set objWMIService = GetObject("winmgmts:" _
    & "{impersonationLevel=impersonate}!\\" & strComputer & "\root\cimv2")
set objRefresher = CreateObject("WbemScripting.SWbemRefresher")
Set colItems = objRefresher.AddEnum _
    (objWMIService, "Win32_PerfFormattedData_PSched_PSchedFlow").objectSet
objRefresher.Refresh

For i = 1 to 5
    For Each objItem in colItems
        Wscript.Echo "Average Packets in Netcard: " & _
            objItem.AveragePacketsinnetcard
        Wscript.Echo "Average Packets in Sequencer: " & _
            objItem.Averagepacketsinsequencer
        Wscript.Echo "Average Packets in Shaper: " & _
            objItem.Averagepacketsinshaper
        Wscript.Echo "Bytes Scheduled: " & objItem.Bytesscheduled
        Wscript.Echo "Bytes Scheduled Per Second: " & _
            objItem.BytesscheduledPersec
        Wscript.Echo "Bytes Transmitted: " & objItem.Bytestransmitted
        Wscript.Echo "Bytes Transmitted Per Second: " & _
            objItem.BytestransmittedPersec
        Wscript.Echo "Caption: " & objItem.Caption
        Wscript.Echo "Description: " & objItem.Description
        Wscript.Echo "Maximum Packets in Netcard: " & _
            objItem.MaximumPacketsinnetcard
        Wscript.Echo "Maximum Packets in Sequencer: " & _
            objItem.Maxpacketsinsequencer
        Wscript.Echo "Maximum Packets in Shaper: " & _
            objItem.Maxpacketsinshaper
        Wscript.Echo "Name: " & objItem.Name
        Wscript.Echo "Non-conforming Packets Scheduled: " & _
            objItem.Nonconformingpacketsscheduled
        Wscript.Echo "Non-conforming Packets ScheduledPersec: " & _
            objItem.NonconformingpacketsscheduledPersec
        Wscript.Echo "Non-conforming Packets Transmitted: " & _
            objItem.Nonconformingpacketstransmitted
        Wscript.Echo "Non-conforming Packets TransmittedPersec: " & _
            objItem.NonconformingpacketstransmittedPersec
        Wscript.Echo "Packets Dropped: " & objItem.Packetsdropped
        Wscript.Echo "Packets Dropped Per Second: " & _
            objItem.PacketsdroppedPersec
        Wscript.Echo "Packets Scheduled: " & objItem.Packetsscheduled
        Wscript.Echo "Packets Scheduled Per Second: " & _
            objItem.PacketsscheduledPersec
        Wscript.Echo "Packets Transmitted: " & objItem.Packetstransmitted
        Wscript.Echo "Packets Transmitted Per Second: " & _
            objItem.PacketstransmittedPersec
        Wscript.Sleep 2000
        objRefresher.Refresh
    Next
Next
	

Monitor PSched Pipe Performance


Uses cooked performance counters to measure pipe statistics from the packet scheduler
strComputer = "."
Set objWMIService = GetObject("winmgmts:" _
    & "{impersonationLevel=impersonate}!\\" & strComputer & "\root\cimv2")
set objRefresher = CreateObject("WbemScripting.SWbemRefresher")
Set colItems = objRefresher.AddEnum _
    (objWMIService, "Win32_PerfFormattedData_PSched_PSchedPipe").objectSet
objRefresher.Refresh

For i = 1 to 5
    For Each objItem in colItems
        Wscript.Echo "Average Packets in Netcard: " & _
            objItem.Averagepacketsinnetcard
        Wscript.Echo "Average Packets in Sequencer: " & _
            objItem.Averagepacketsinsequencer
        Wscript.Echo "Average Packets in Shaper: " & _
            objItem.Averagepacketsinshaper
        Wscript.Echo "Caption: " & objItem.Caption
        Wscript.Echo "Description: " & objItem.Description
        Wscript.Echo "Flow Mods Rejected: " & objItem.Flowmodsrejected
        Wscript.Echo "Flows Closed: " & objItem.Flowsclosed
        Wscript.Echo "Flows Modified: " & objItem.Flowsmodified
        Wscript.Echo "Flows Opened: " & objItem.Flowsopened
        Wscript.Echo "Flows Rejected: " & objItem.Flowsrejected
        Wscript.Echo "Maximum Packets in Netcard: " & _
            objItem.Maxpacketsinnetcard
        Wscript.Echo "Maximum Packets in Sequencer: " & _
            objItem.Maxpacketsinsequencer
        Wscript.Echo "Maximum Packets in Shaper: " & _
            objItem.Maxpacketsinshaper
        Wscript.Echo "Maximum Simultaneous Flows: " & _
            objItem.Maxsimultaneousflows
        Wscript.Echo "Name: " & objItem.Name
        Wscript.Echo "Non-conforming Packets Scheduled: " & _
            objItem.Nonconformingpacketsscheduled
        Wscript.Echo "Non-conforming Packets ScheduledPersec: " & _
            objItem.NonconformingpacketsscheduledPersec
        Wscript.Echo "Non-conforming Packets Transmitted: " & _
            objItem.Nonconformingpacketstransmitted
        Wscript.Echo "Non-conforming Packets TransmittedPersec: " & _
            objItem.NonconformingpacketstransmittedPersec
        Wscript.Echo "Out-of-packets: " & objItem.Outofpackets
        Wscript.Sleep 2000
        objRefresher.Refresh
    Next
Next
	

Monitor Remote Access Performance


Uses cooked performance counters to monitor values for all ports of the Remote Access service (RAS) device on the computer.
strComputer = "."
Set objWMIService = GetObject("winmgmts:" _
    & "{impersonationLevel=impersonate}!\\" & strComputer & "\root\cimv2")
set objRefresher = CreateObject("WbemScripting.SWbemRefresher")
Set colItems = objRefresher.AddEnum(objWMIService," & _
    "Win32_PerfFormattedData_PerfProc_RemoteAccess_RASTotal").objectSet
objRefresher.Refresh

For i = 1 to 5
    For Each objItem in colItems
        Wscript.Echo "Alignment Errors: " & objItem.AlignmentErrors
        Wscript.Echo "Buffer Overrun Errors: " & objItem.BufferOverrunErrors
        Wscript.Echo "Bytes Received: " & objItem.BytesReceived
        Wscript.Echo "Bytes Received Per Second: " & _
            objItem.BytesReceivedPerSec
        Wscript.Echo "Bytes Transmitted: " & objItem.BytesTransmitted
        Wscript.Echo "Bytes Transmitted Per Second: " & _
            objItem.BytesTransmittedPerSec
        Wscript.Echo "Caption: " & objItem.Caption
        Wscript.Echo "CRC Errors: " & objItem.CRCErrors
        Wscript.Echo "Description: " & objItem.Description
        Wscript.Echo "Frames Received: " & objItem.FramesReceived
        Wscript.Echo "Frames Received Per Second: " & _
            objItem.FramesReceivedPerSec
        Wscript.Echo "Frames Transmitted: " & objItem.FramesTransmitted
        Wscript.Echo "Frames Transmitted Per Second: " & _
            objItem.FramesTransmittedPerSec
        Wscript.Echo "Name: " & objItem.Name
        Wscript.Echo "Percent Compression In: " & objItem.PercentCompressionIn
        Wscript.Echo "Percent Compression Out: " & _
            objItem.PercentCompressionOut
        Wscript.Echo "Serial Overrun Errors: " & objItem.SerialOverrunErrors
        Wscript.Echo "Timeout Errors: " & objItem.TimeoutErrors
        Wscript.Echo "Total Connections: " & objItem.TotalConnections
        Wscript.Echo "Total Errors: " & objItem.TotalErrors
        Wscript.Echo "Total Errors Per Second: " & objItem.TotalErrorsPerSec
        Wscript.Sleep 2000
        objRefresher.Refresh
    Next
Next
	

Monitor Remote Access RAS Port Performance


Uses cooked performance counters to monitor individual Remote Access Service ports of the RAS device on the computer.
strComputer = "."
Set objWMIService = GetObject("winmgmts:" _
    & "{impersonationLevel=impersonate}!\\" & strComputer & "\root\cimv2")
set objRefresher = CreateObject("WbemScripting.SWbemRefresher")
Set colItems = objRefresher.AddEnum(objWMIService," & _
    "Win32_PerfFormattedData_PerfProc_RemoteAccess_RASPort").objectSet
objRefresher.Refresh

For i = 1 to 5
    For Each objItem in colItems
        Wscript.Echo "Alignment Errors: " & objItem.AlignmentErrors
        Wscript.Echo "Buffer Overrun Errors: " & objItem.BufferOverrunErrors
        Wscript.Echo "Bytes Received: " & objItem.BytesReceived
        Wscript.Echo "Bytes Received Per Second: " & _
            objItem.BytesReceivedPerSec
        Wscript.Echo "Bytes Transmitted: " & objItem.BytesTransmitted
        Wscript.Echo "Bytes Transmitted Per Second: " & _
            objItem.BytesTransmittedPerSec
        Wscript.Echo "Caption: " & objItem.Caption
        Wscript.Echo "CRC Errors: " & objItem.CRCErrors
        Wscript.Echo "Description: " & objItem.Description
        Wscript.Echo "Frames Received: " & objItem.FramesReceived
        Wscript.Echo "Frames Received Per Second: " & _
            objItem.FramesReceivedPerSec
        Wscript.Echo "Frames Transmitted: " & objItem.FramesTransmitted
        Wscript.Echo "Frames Transmitted Per Second: " & _
            objItem.FramesTransmittedPerSec
        Wscript.Echo "Name: " & objItem.Name
        Wscript.Echo "Percent Compression In: " & objItem.PercentCompressionIn
        Wscript.Echo "Percent Compression Out: " & _
            objItem.PercentCompressionOut
        Wscript.Echo "Serial Overrun Errors: " & objItem.SerialOverrunErrors
        Wscript.Echo "Timeout Errors: " & objItem.TimeoutErrors
        Wscript.Echo "Total Errors: " & objItem.TotalErrors
        Wscript.Echo "Total Errors Per Second: " & objItem.TotalErrorsPerSec
        Wscript.Sleep 2000
        objRefresher.Refresh
    Next
Next
	

Monitor Redirector Service Performance


Uses cooked performance counters to monitor network connections originating at the local computer
strComputer = "."
Set objWMIService = GetObject("winmgmts:" _
    & "{impersonationLevel=impersonate}!\\" & strComputer & "\root\cimv2")
set objRefresher = CreateObject("WbemScripting.SWbemRefresher")
Set colItems = objRefresher.AddEnum _
    (objWMIService, "Win32_PerfFormattedData_PerfNet_Redirector").objectSet
objRefresher.Refresh

For i = 1 to 5
    For Each objItem in colItems
        Wscript.Echo "Bytes Received Per Second: " & _
            objItem.BytesReceivedPersec
        Wscript.Echo "Bytes Total Per Second: " & objItem.BytesTotalPersec
        Wscript.Echo "Bytes Transmitted Per Second: " & _
            objItem.BytesTransmittedPersec
        Wscript.Echo "Caption: " & objItem.Caption
        Wscript.Echo "Connects Core: " & objItem.ConnectsCore
        Wscript.Echo "Connects Lan Manager 2.0: " & _
            objItem.ConnectsLanManager20
        Wscript.Echo "Connects Lan Manager 2.1: " & _
            objItem.ConnectsLanManager21
        Wscript.Echo "Connects Windows NT: " & objItem.ConnectsWindowsNT
        Wscript.Echo "Current Commands: " & objItem.CurrentCommands
        Wscript.Echo "Description: " & objItem.Description
        Wscript.Echo "File Data Operations Per Second: " & _
            objItem.FileDataOperationsPersec
        Wscript.Echo "File Read Operations Per Second: " & _
            objItem.FileReadOperationsPersec
        Wscript.Echo "File Write Operations Per Second: " & _
            objItem.FileWriteOperationsPersec
        Wscript.Echo "Name: " & objItem.Name
        Wscript.Echo "Network Errors Per Second: " & _
            objItem.NetworkErrorsPersec
        Wscript.Echo "Packets Per Second: " & objItem.PacketsPersec
        Wscript.Echo "Packets Received Per Second: " & _
            objItem.PacketsReceivedPersec
        Wscript.Echo "Packets Transmitted Per Second: " & _
            objItem.PacketsTransmittedPersec
        Wscript.Echo "Read Bytes Cache Per Second: " & _
            objItem.ReadBytesCachePersec
        Wscript.Echo "Read Bytes Network Per Second: " & _
            objItem.ReadBytesNetworkPersec
        Wscript.Echo "Read Bytes NonPaging Per Second: " & _
            objItem.ReadBytesNonPagingPersec
        Wscript.Echo "Read Bytes Paging Per Second: " & _
            objItem.ReadBytesPagingPersec
        Wscript.Echo "Read Operations Random Per Second: " & _
            objItem.ReadOperationsRandomPersec
        Wscript.Echo "Read Packets Per Second: " & objItem.ReadPacketsPersec
        Wscript.Echo "Read Packets Small Per Second: " & _
            objItem.ReadPacketsSmallPersec
        Wscript.Echo "Reads Denied Per Second: " & objItem.ReadsDeniedPersec
        Wscript.Echo "Reads Large Per Second: " & objItem.ReadsLargePersec
        Wscript.Echo "Server Disconnects: " & objItem.ServerDisconnects
        Wscript.Echo "Server Reconnects: " & objItem.ServerReconnects
        Wscript.Echo "Server Sessions: " & objItem.ServerSessions
        Wscript.Echo "Server Sessions Hung: " & objItem.ServerSessionsHung
        Wscript.Echo "Write Bytes Cache Per Second: " & _
            objItem.WriteBytesCachePersec
        Wscript.Echo "Write Bytes Network Per Second: " & _
            objItem.WriteBytesNetworkPersec
        Wscript.Echo "Write Bytes NonPaging Per Second: " & _
            objItem.WriteBytesNonPagingPersec
        Wscript.Echo "Write Bytes Paging Per Second: " & _
            objItem.WriteBytesPagingPersec
        Wscript.Echo "Write Operations Random Per Second: " & _
            objItem.WriteOperationsRandomPersec
        Wscript.Echo "Write Packets Per Second: " & _
            objItem.WritePacketsPersec
        Wscript.Echo "Write PacketsSmall Per Second: " & _
            objItem.WritePacketsSmallPersec
        Wscript.Echo "Writes Denied Per Second: " & objItem.WritesDeniedPersec
        Wscript.Echo "Writes Large Per Second: " & objItem.WritesLargePersec
        Wscript.Sleep 2000
        objRefresher.Refresh
    Next
Next
	

Monitor RSVP ACSRVP Interfaces Performance


Uses cooked performance counters to monitor RSVP or ACS service performance.
strComputer = "."
Set objWMIService = GetObject("winmgmts:" _
    & "{impersonationLevel=impersonate}!\\" & strComputer & "\root\cimv2")
set objRefresher = CreateObject("WbemScripting.SWbemRefresher")
Set colItems = objRefresher.AddEnum _
    (objWMIService, "Win32_PerfFormattedData_RSVP_RSVPService").objectSet
objRefresher.Refresh

For i = 1 to 5
    For Each objItem in colItems
        Wscript.Echo "Bytes in QoS Notifications: " & _
            objItem.BytesinQoSnotifications
        Wscript.Echo "Caption: " & objItem.Caption
        Wscript.Echo "Description: " & objItem.Description
        Wscript.Echo "Failed QoS Requests: " & objItem.FailedQoSrequests
        Wscript.Echo "Failed QoS Sends: " & objItem.FailedQoSsends
        Wscript.Echo "Name: " & objItem.Name
        Wscript.Echo "Network Interfaces: " & objItem.NetworkInterfaces
        Wscript.Echo "Network Sockets: " & objItem.Networksockets
        Wscript.Echo "QoS Clients: " & objItem.QoSclients
        Wscript.Echo "QoS-Enabled Receivers: " & objItem.QoSenabledreceivers
        Wscript.Echo "QoS-Enabled Senders: " & objItem.QoSenabledsenders
        Wscript.Echo "QoS Notifications: " & objItem.QoSnotifications
        Wscript.Echo "RSVP Sessions: " & objItem.RSVPsessions
        Wscript.Echo "Timers: " & objItem.Timers
        Wscript.Sleep 2000
        objRefresher.Refresh
    Next
Next
	

Monitor RSVP ACSRVPS Service Performance


Uses cooked performance counters to monitor the number of local network interfaces visible to, and used by the RSVP service.
strComputer = "."
Set objWMIService = GetObject("winmgmts:" _
    & "{impersonationLevel=impersonate}!\\" & strComputer & "\root\cimv2")
set objRefresher = CreateObject("WbemScripting.SWbemRefresher")
Set colItems = objRefresher.AddEnum _
    (objWMIService, "Win32_PerfFormattedData_RSVP_RVPInterfaces").objectSet
objRefresher.Refresh

For i = 1 to 5
    For Each objItem in colItems
        Wscript.Echo "Blocked RESVs: " & objItem.BlockedRESVs
        Wscript.Echo "Caption: " & objItem.Caption
        Wscript.Echo "Description: " & objItem.Description
        Wscript.Echo "General Failures: " & objItem.Generalfailures
        Wscript.Echo "Maximum Admitted Bandwidth: " & _
            objItem.Maximumadmittedbandwidth
        Wscript.Echo "Name: " & objItem.Name
        Wscript.Echo "Number of Active Flows: " & objItem.Numberofactiveflows
        Wscript.Echo "Number of Incoming Messages Dropped: " & _ 
            objItem.Numberofincomingmessagesdropped
        Wscript.Echo "Number of Outgoing Messages Dropped: " & _
            objItem.Numberofoutgoingmessagesdropped
        Wscript.Echo "PATH Error Messages Received: " & _
            objItem.PATHERRmessagesreceived
        Wscript.Echo "PATH Error Messages Sent: " & _
            objItem.PATHERRmessagessent
        Wscript.Echo "PATH Messages Received: " & objItem.PATHmessagesreceived
        Wscript.Echo "PATH Messages Sent: " & objItem.PATHmessagessent
        Wscript.Echo "PATH State Block Timeouts: " & _
            objItem.PATHstateblocktimeouts
        Wscript.Echo "PATH TEAR Messages Received: " & _
            objItem.PATHTEARmessagesreceived
        Wscript.Echo "PATH TEAR Messages Sent: " & _
            objItem.PATHTEARmessagessent
        Wscript.Echo "Policy Control Failures: " & _
        objItem.Policycontrolfailures
        Wscript.Echo "Receive Messages Errors Big Messages: " & _
            objItem.ReceivemessageserrorsBigmessages
        Wscript.Echo "Receive Messages Errors No Memory: " & _
             objItem.ReceivemessageserrorsNomemory
        Wscript.Echo "Reserved Bandwidth: " & objItem.Reservedbandwidth
        Wscript.Echo "Resource Control Failures: " & _
            objItem.Resourcecontrolfailures
        Wscript.Echo "RESV CONFIRM Messages Received: " & _
            objItem.RESVCONFIRMmessagesreceived
        Wscript.Echo "RESV CONFIRM Messages Sent: " & _
            objItem.RESVCONFIRMmessagessent
        Wscript.Echo "RESV Error Messages Received: " & _
            objItem.RESVERRmessagesreceived
        Wscript.Echo "RESV Error Messages Sent: " & _
            objItem.RESVERRmessagessent
        Wscript.Echo "RESV Messages Received: " & objItem.RESVmessagesreceived
        Wscript.Echo "RESV Messages Sent: " & objItem.RESVmessagessent
        Wscript.Echo "RESV State Block Timeouts: " & _
            objItem.RESVstateblocktimeouts
        Wscript.Echo "RESV TEAR Messages Received: " & _
            objItem.RESVTEARmessagesreceived
        Wscript.Echo "RESV TEAR Messages Sent: " & _
            objItem.RESVTEARmessagessent
        Wscript.Echo "Send Messages Errors Big Messages: " & _
            objItem.SendmessageserrorsBigmessages
        Wscript.Echo "Send Messages Errors No Memory: " & _
            objItem.SendmessageserrorsNomemory
        Wscript.Echo "Signaling Bytes Received: " & _
            objItem.Signalingbytesreceived
        Wscript.Echo "Signaling Bytes Sent: " & objItem.Signalingbytessent
        Wscript.Sleep 2000
        objRefresher.Refresh
    Next
Next
	

Monitor TAPI Server Telephony Performance


Uses cooked performance counters to monitor the telephony service.
strComputer = "."
Set objWMIService = GetObject("winmgmts:" _
    & "{impersonationLevel=impersonate}!\\" & strComputer & "\root\cimv2")
set objRefresher = CreateObject("WbemScripting.SWbemRefresher")
Set colItems = objRefresher.AddEnum _
    (objWMIService, "Win32_PerfFormattedData_TAPISrv_Telephony").objectSet
objRefresher.Refresh

For i = 1 to 5
    For Each objItem in colItems
        Wscript.Echo "Active Lines: " & objItem.ActiveLines
        Wscript.Echo "Active Telephones: " & objItem.ActiveTelephones
        Wscript.Echo "Caption: " & objItem.Caption
        Wscript.Echo "Client Applications: " & objItem.ClientApps
        Wscript.Echo "Current Incoming Calls: " & objItem.CurrentIncomingCalls
        Wscript.Echo "Current Outgoing Calls: " & objItem.CurrentOutgoingCalls
        Wscript.Echo "Description: " & objItem.Description
        Wscript.Echo "Incoming Calls Per Second: " & _
            objItem.IncomingCallsPersec
        Wscript.Echo "Lines: " & objItem.Lines
        Wscript.Echo "Name: " & objItem.Name
        Wscript.Echo "Outgoing Calls Per Second: " & _
        objItem.OutgoingCallsPersec
        Wscript.Echo "Telephone Devices: " & objItem.TelephoneDevices
        Wscript.Sleep 2000
        objRefresher.Refresh
    Next
Next
	

Monitor TCP-IP ICMP Performance


Uses cooked performance counters to monitor the rates at which messages are sent and received by using ICMP protocols.
strComputer = "."
Set objWMIService = GetObject("winmgmts:" _
    & "{impersonationLevel=impersonate}!\\" & strComputer & "\root\cimv2")
set objRefresher = CreateObject("WbemScripting.SWbemRefresher")
Set colItems = objRefresher.AddEnum _
    (objWMIService, "Win32_PerfFormattedData_Tcpip_ICMP").objectSet
objRefresher.Refresh

For i = 1 to 5
    For Each objItem in colItems
        Wscript.Echo "Caption: " & objItem.Caption
        Wscript.Echo "Description: " & objItem.Description
        Wscript.Echo "Messages Outbound Errors: " & _
            objItem.MessagesOutboundErrors
        Wscript.Echo "Messages Per Second: " & objItem.MessagesPersec
        Wscript.Echo "Messages Received Errors: " & _
            objItem.MessagesReceivedErrors
        Wscript.Echo "Messages Received Per Second: " & _
            objItem.MessagesReceivedPersec
        Wscript.Echo "Messages Sent Per Second: " & objItem.MessagesSentPersec
        Wscript.Echo "Name: " & objItem.Name
        Wscript.Echo "Received Address Mask: " & objItem.ReceivedAddressMask
        Wscript.Echo "Received Address Mask Reply: " & _
            objItem.ReceivedAddressMaskReply
        Wscript.Echo "Received Destination Unreachable: " & _
            objItem.ReceivedDestUnreachable
        Wscript.Echo "Received Echo Per Second: " & objItem.ReceivedEchoPersec
        Wscript.Echo "Received Echo Reply Per Second: " & _
            objItem.ReceivedEchoReplyPersec
        Wscript.Echo "Received Parameter Problem: " & _
            objItem.ReceivedParameterProblem
        Wscript.Echo "Received Redirect Per Second: " & _
            objItem.ReceivedRedirectPersec
        Wscript.Echo "Received Source Quench: " & _
            objItem.ReceivedSourceQuench
        Wscript.Echo "Received Time Exceeded: " & _
        objItem.ReceivedTimeExceeded
        Wscript.Echo "Received Timestamp Per Second: " & _
            objItem.ReceivedTimestampPersec
        Wscript.Echo "Received Timestamp Reply Per Second: " & _
            objItem.ReceivedTimestampReplyPersec
        Wscript.Echo "Sent Address Mask: " & objItem.SentAddressMask
        Wscript.Echo "Sent Address Mask Reply: " & _
            objItem.SentAddressMaskReply
        Wscript.Echo "Sent Destination Unreachable: " & _
            objItem.SentDestinationUnreachable
        Wscript.Echo "Sent Echo Per Second: " & objItem.SentEchoPersec
        Wscript.Echo "Sent Echo Reply Per Second: " & _
            objItem.SentEchoReplyPersec
        Wscript.Echo "Sent Parameter Problem: " & objItem.SentParameterProblem
        Wscript.Echo "Sent Redirect Per Second: " & objItem.SentRedirectPersec
        Wscript.Echo "Sent Source Quench: " & objItem.SentSourceQuench
        Wscript.Echo "Sent Time Exceeded: " & objItem.SentTimeExceeded
        Wscript.Echo "Sent Timestamp Per Second: " & _
            objItem.SentTimestampPersec
        Wscript.Echo "Sent Timestamp Reply Per Second: " & _
            objItem.SentTimestampReplyPersec
        Wscript.Sleep 2000
        objRefresher.Refresh
    Next
Next
	

Monitor TCP-IP ICMPv6 Performance


Uses cooked performance counters to monitor the rates at which messages are sent and received by using ICMPv6 protocols.
strComputer = "."
Set objWMIService = GetObject("winmgmts:" _
    & "{impersonationLevel=impersonate}!\\" & strComputer & "\root\cimv2")
set objRefresher = CreateObject("WbemScripting.SWbemRefresher")
Set colItems = objRefresher.AddEnum _
    (objWMIService, "Win32_PerfFormattedData_TCPIP_ICMPv6").objectSet
objRefresher.Refresh

For i = 1 to 5
    For Each objItem in colItems
        Wscript.Echo "Messages per second: " & objItem.MessagesPerSec
        Wscript.Sleep 2000
        objRefresher.Refresh
    Next
Next
	

Monitor TCP-IP IP Performance


Uses cooked performance counters to monitor the rates at which IP datagrams are sent and received by using IP protocols.
strComputer = "."
Set objWMIService = GetObject("winmgmts:" _
    & "{impersonationLevel=impersonate}!\\" & strComputer & "\root\cimv2")
set objRefresher = CreateObject("WbemScripting.SWbemRefresher")
Set colItems = objRefresher.AddEnum _
    (objWMIService, "Win32_PerfFormattedData_TCPIP_IP").objectSet
objRefresher.Refresh

For i = 1 to 5
    For Each objItem in colItems
        Wscript.Echo "Caption: " & objItem.Caption
        Wscript.Echo "Datagrams Forwarded Per Second: " & _
            objItem.DatagramsForwardedPersec
        Wscript.Echo "Datagrams Outbound Discarded: " & _
            objItem.DatagramsOutboundDiscarded
        Wscript.Echo "Datagrams Outbound No Route: " & _
            objItem.DatagramsOutboundNoRoute
        Wscript.Echo "Datagrams Per Second: " & objItem.DatagramsPersec
        Wscript.Echo "Datagrams Received Address Errors: " & _
            objItem.DatagramsReceivedAddressErrors
        Wscript.Echo "Datagrams Received Delivered Per Second: " & _
            objItem.DatagramsReceivedDeliveredPersec
        Wscript.Echo "Datagrams Received Discarded: " & _
            objItem.DatagramsReceivedDiscarded
        Wscript.Echo "Datagrams Received Header Errors: " & _
            objItem.DatagramsReceivedHeaderErrors
        Wscript.Echo "Datagrams Received Per Second: " & _
            objItem.DatagramsReceivedPersec
        Wscript.Echo "Datagrams Received Unknown Protocol: " & _
            objItem.DatagramsReceivedUnknownProtocol
        Wscript.Echo "Datagrams Sent Per Second: " & _
            objItem.DatagramsSentPersec
        Wscript.Echo "Description: " & objItem.Description
        Wscript.Echo "Fragmentation Failures: " & _
            objItem.FragmentationFailures
        Wscript.Echo "Fragmented Datagrams Per Second: " & _
            objItem.FragmentedDatagramsPersec
        Wscript.Echo "Fragment Reassembly Failures: " & _
            objItem.FragmentReassemblyFailures
        Wscript.Echo "Fragments Created Per Second: " & _
            objItem.FragmentsCreatedPersec
        Wscript.Echo "Fragments Reassembled Per Second: " & _
            objItem.FragmentsReassembledPersec
        Wscript.Echo "Fragments Received Per Second: " & _
            objItem.FragmentsReceivedPersec
        Wscript.Echo "Name: " & objItem.Name
        objRefresher.Refresh
    Next
Next
	

Monitor TCP-IP IPv4 Performance


Uses cooked performance counters to monitor the rates at which IP datagrams are sent and received by using IPv4 protocols.
strComputer = "."
Set objWMIService = GetObject("winmgmts:" _
    & "{impersonationLevel=impersonate}!\\" & strComputer & "\root\cimv2")
set objRefresher = CreateObject("WbemScripting.SWbemRefresher")
Set colItems = objRefresher.AddEnum _
    (objWMIService, "Win32_PerfFormattedData_TCPIP_IPv4").objectSet
objRefresher.Refresh

For i = 1 to 5
    For Each objItem in colItems
        Wscript.Echo "Datagrams per second: " & objItem.DatagramsPerSec
        Wscript.Sleep 2000
        objRefresher.Refresh
    Next
Next
	

Monitor TCP-IP IPv6 Performance


Uses cooked performance counters to monitor the rates at which IP datagrams are sent and received by using IPv6 protocols.
strComputer = "."
Set objWMIService = GetObject("winmgmts:" _
    & "{impersonationLevel=impersonate}!\\" & strComputer & "\root\cimv2")
set objRefresher = CreateObject("WbemScripting.SWbemRefresher")
Set colItems = objRefresher.AddEnum _
    (objWMIService, "Win32_PerfFormattedData_TCPIP_IPv6").objectSet
objRefresher.Refresh

For i = 1 to 5
    For Each objItem in colItems
        Wscript.Echo "Datagrams per second: " & objItem.DatagramsPerSec
        Wscript.Sleep 2000
        objRefresher.Refresh
    Next
Next
	

Monitor TCP-IP Network Interface Performance


Uses cooked performance counters to monitor the rates at which bytes and packets are sent and received over a TCP/IP network connection.
strComputer = "."
Set objWMIService = GetObject("winmgmts:" _
    & "{impersonationLevel=impersonate}!\\" & strComputer & "\root\cimv2")
set objRefresher = CreateObject("WbemScripting.SWbemRefresher")
Set colItems = objRefresher.AddEnum _
    (objWMIService, "Win32_PerfFormattedData_TCPIP_NetworkInterface").objectSet
objRefresher.Refresh

For i = 1 to 5
    For Each objItem in colItems
        Wscript.Echo "Bytes Received Per Second: " & _
        objItem.BytesReceivedPersec
        Wscript.Echo "Bytes Sent Per Second: " & objItem.BytesSentPersec
        Wscript.Echo "Bytes Total Per Second: " & objItem.BytesTotalPersec
        Wscript.Echo "Caption: " & objItem.Caption
        Wscript.Echo "Current Bandwidth: " & objItem.CurrentBandwidth
        Wscript.Echo "Description: " & objItem.Description
        Wscript.Echo "Name: " & objItem.Name
        Wscript.Echo "Output Queue Length: " & objItem.OutputQueueLength
        Wscript.Echo "Packets Outbound Discarded: " & _
            objItem.PacketsOutboundDiscarded
        Wscript.Echo "Packets Outbound Errors: " & _
            objItem.PacketsOutboundErrors
        Wscript.Echo "Packets Per Second: " & objItem.PacketsPersec
        Wscript.Echo "Packets Received Discarded: " & _
            objItem.PacketsReceivedDiscarded
        Wscript.Echo "Packets Received Errors: " & _
            objItem.PacketsReceivedErrors
        Wscript.Echo "Packets Received Non-Unicast Per Second: " & _
            objItem.PacketsReceivedNonUnicastPersec
        Wscript.Echo "Packets Received Per Second: " & _
            objItem.PacketsReceivedPersec
        Wscript.Echo "Packets Received Unicast Per Second: " & _
            objItem.PacketsReceivedUnicastPersec
        Wscript.Echo "Packets Received Unknown: " & _
            objItem.PacketsReceivedUnknown
        Wscript.Echo "Packets Sent Non-Unicast Per Second: " & _
            objItem.PacketsSentNonUnicastPersec
        Wscript.Echo "Packets Sent Per Second: " & objItem.PacketsSentPersec
        Wscript.Echo "Packets Sent Unicast Per Second: " & _
            objItem.PacketsSentUnicastPersec
        Wscript.Sleep 2000
        objRefresher.Refresh
    Next
Next
	

Monitor TCP-IP TCP Performance


Uses cooked performance counters to monitor the rates at which TCP segments are sent and received by using the TCP protocol.
strComputer = "."
Set objWMIService = GetObject("winmgmts:" _
    & "{impersonationLevel=impersonate}!\\" & strComputer & "\root\cimv2")
set objRefresher = CreateObject("WbemScripting.SWbemRefresher")
Set colItems = objRefresher.AddEnum _
    (objWMIService, "Win32_PerfFormattedData_TCPIP_TCP").objectSet
objRefresher.Refresh

For i = 1 to 5
    For Each objItem in colItems
        Wscript.Echo "Caption: " & objItem.Caption
        Wscript.Echo "Connection Failures: " & objItem.ConnectionFailures
        Wscript.Echo "Connections Active: " & objItem.ConnectionsActive
        Wscript.Echo "Connections Established: " & _
            objItem.ConnectionsEstablished
        Wscript.Echo "Connections Passive: " & objItem.ConnectionsPassive
        Wscript.Echo "Connections Reset: " & objItem.ConnectionsReset
        Wscript.Echo "Description: " & objItem.Description
        Wscript.Echo "Name: " & objItem.Name
        Wscript.Echo "Segments Per Second: " & objItem.SegmentsPersec
        Wscript.Echo "Segments Received Per Second: " & _\
            objItem.SegmentsReceivedPersec
        Wscript.Echo "Segments Retransmitted Per Second: " & _
            objItem.SegmentsRetransmittedPersec
        Wscript.Echo "Segments Sent Per Second: " & _
             objItem.SegmentsSentPersec
        objRefresher.Refresh
    Next
Next
	

Monitor TCP-IP TCPv4 Performance


Uses cooked performance counters to monitor the rates at which TCP segments are sent and received by using the TCPv4 protocol.
strComputer = "."
Set objWMIService = GetObject("winmgmts:" _
    & "{impersonationLevel=impersonate}!\\" & strComputer & "\root\cimv2")
set objRefresher = CreateObject("WbemScripting.SWbemRefresher")
Set colItems = objRefresher.AddEnum _
    (objWMIService, "Win32_PerfFormattedData_TCPIP_TCPv4").objectSet
objRefresher.Refresh

For i = 1 to 5
    For Each objItem in colItems
        Wscript.Echo "Connection failures: " & objItem.ConnectionFailures
        Wscript.Sleep 2000
        objRefresher.Refresh
    Next
Next
	

Monitor TCP-IP TCPv6 Performance


Uses cooked performance counters to monitor the rates at which TCP segments are sent and received by using the TCPv6 protocol.
strComputer = "."
Set objWMIService = GetObject("winmgmts:" _
    & "{impersonationLevel=impersonate}!\\" & strComputer & "\root\cimv2")
set objRefresher = CreateObject("WbemScripting.SWbemRefresher")
Set colItems = objRefresher.AddEnum _
    (objWMIService, "Win32_PerfFormattedData_TCPIP_TCPv6").objectSet
objRefresher.Refresh

For i = 1 to 5
    For Each objItem in colItems
        Wscript.Echo "Connection failures: " & objItem.ConnectionFailures
        Wscript.Sleep 2000
        objRefresher.Refresh
    Next
Next
	

Monitor TCP-IP UDP Performance


Uses cooked performance counters to monitor the rates at which UDP datagrams are sent and received by using the UDP protocol.
strComputer = "."
Set objWMIService = GetObject("winmgmts:" _
    & "{impersonationLevel=impersonate}!\\" & strComputer & "\root\cimv2")
set objRefresher = CreateObject("WbemScripting.SWbemRefresher")
Set colItems = objRefresher.AddEnum _
    (objWMIService, "Win32_PerfFormattedData_TCPIP_UDP").objectSet
objRefresher.Refresh
For i = 1 to 5
    For Each objItem in colItems
        Wscript.Echo "Caption: " & objItem.Caption
        Wscript.Echo "Datagrams No Port Per Second: " & _
            objItem.DatagramsNoPortPersec
        Wscript.Echo "Datagrams Per Second: " & objItem.DatagramsPersec
        Wscript.Echo "Datagrams Received Errors: " & _
            objItem.DatagramsReceivedErrors
        Wscript.Echo "Datagrams Received Per Second: " & _
            objItem.DatagramsReceivedPersec
        Wscript.Echo "Datagrams Sent Per Second: " & _
            objItem.DatagramsSentPersec
        Wscript.Echo "Description: " & objItem.Description
        Wscript.Echo "Name: " & objItem.Name
        Wscript.Sleep 2000
        objRefresher.Refresh
    Next
Next
	

Monitor TCP-IP UDPv4 Performance


Uses cooked performance counters to monitor the rates at which UDP datagrams are sent and received by using the UDPv4 protocol.
strComputer = "."
Set objWMIService = GetObject("winmgmts:" _
    & "{impersonationLevel=impersonate}!\\" & strComputer & "\root\cimv2")
set objRefresher = CreateObject("WbemScripting.SWbemRefresher")
Set colItems = objRefresher.AddEnum _
    (objWMIService, "Win32_PerfFormattedData_TCPIP_UDPv4").objectSet
objRefresher.Refresh

For i = 1 to 5
    For Each objItem in colItems
        Wscript.Echo "Datagrams sent per second: " & _
            objItem.DatagramsSentPerSec
        Wscript.Sleep 2000
        objRefresher.Refresh
    Next
Next
	

Monitor TCP-IP UDPv6 Performance


Uses cooked performance counters to measure rates at which UDP datagrams are sent and received by using the UDPv6 protocol.
strComputer = "."
Set objWMIService = GetObject("winmgmts:" _
    & "{impersonationLevel=impersonate}!\\" & strComputer & "\root\cimv2")
set objRefresher = CreateObject("WbemScripting.SWbemRefresher")
Set colItems = objRefresher.AddEnum _
    (objWMIService, "Win32_PerfFormattedData_TCPIP_UDPv6").objectSet
objRefresher.Refresh

For i = 1 to 5
    For Each objItem in colItems
        Wscript.Echo "Datagrams sent per second: " & _
            objItem.DatagramsSentPerSec
        Wscript.Sleep 2000
        objRefresher.Refresh
    Next
Next
	

Monitor TCP NBT Connection Performance


Uses cooked performance counters to monitor the rates at which bytes are sent and received over the NetBIOS over TCP/IP (NBT) connection between the local computer and a remote computer.
strComputer = "."
Set objWMIService = GetObject("winmgmts:" _
    & "{impersonationLevel=impersonate}!\\" & strComputer & "\root\cimv2")
set objRefresher = CreateObject("WbemScripting.SWbemRefresher")
Set colItems = objRefresher.AddEnum _
    (objWMIService, "Win32_PerfFormattedData_TCP_NBTConnection").objectSet
objRefresher.Refresh

For i = 1 to 5
    For Each objItem in colItems
        Wscript.Echo "Bytes Received Per Second: " & _
            objItem.BytesReceivedPersec
        Wscript.Echo "Bytes Sent Per Second: " & objItem.BytesSentPersec
        Wscript.Echo "Bytes Total Per Second: " & objItem.BytesTotalPersec
        Wscript.Echo "Caption: " & objItem.Caption
        Wscript.Echo "Description: " & objItem.Description
        Wscript.Echo "Name: " & objItem.Name
        objRefresher.Refresh
    Next
Next