Networking Monitoring Script Samples (VBScript)
Monitor HTTP Indexing Service PerformanceMonitor 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