'// Create PackeX instance Set oPktX = WScript.CreateObject("PktX.PacketX","PacketX_") '// Select adapter oPktX.Adapter = oPktX.Adapters(1) '// Start and stop capture oPktX.Start WScript.Sleep(60000) oPktX.Stop '// Packet event handler Public Sub PacketX_OnPacket(ByRef oPacket) '// Process packet ... End Sub