Statistics.vbs

This example demonstrates how to use PacketX to collect statistics from VBScript.

See also:

PacketX , Statistics , Adapter

'
'// File:         Statistics.vbs
'//
'// Description:  This script demonstrates how to collect statistics
'//
'// Notes:        Run the script from command line using the cscript.exe program
'//
'// Created:      May 10, 2004
'//
'// Copyright (c) 2000-2004 BeeSync Technologies.
'

'// Constants
const PktXModeStatistics = 2

'// Create PacketX object
Set oPktX = WScript.CreateObject("PktX.PacketX","PacketX_")

'// Display network adapters
For i = 1 To oPktX.Adapters.Count
  If oPktX.Adapters(i).IsGood Then
    WScript.Echo "(" & i & ") " & RTrim(LTrim(oPktX.Adapters(i).Description))
  End If
Next

'// Select network adapter
oPktX.Adapter = Nothing
While oPktX.Adapter Is Nothing
  WScript.StdOut.Write "Choose adapter#"
  On Error Resume Next
    oPktX.Adapter = oPktX.Adapters(RTrim(LTrim(WScript.StdIn.ReadLine)))
  On Error Goto 0
Wend

'// Set statistics mode 
oPktX.Adapter.Mode=PktXModeStatistics
oPktX.Adapter.ReadTimeout=2000 '// 2 sec

'// Start capture
oPktX.Start
  WScript.Sleep(60000)
oPktX.Stop

'// Statistics event handler
Public Sub PacketX_OnStatistics(ByRef oStats)
  WScript.Echo oStats.Date & " Pkts " & oStats.Packets & " Bytes " & oStats.Bytes
End Sub