PacketX: Decode.js

00001 
00002 // File:         Decode.vbs
00003 //
00004 // Description:  This script demonstrates PacketX protocol decoding
00005 //
00006 // Notes:        Run the script from command line using the cscript.exe program
00007 //
00008 // Created:      May 10, 2004
00009 //
00010 // Copyright (c) 2000-2004 BeeSync Technologies.
00012 
00013 // Protocol types
00014 var cPktXProtocolTypeEthernet = 1;
00015 var cPktXProtocolTypeIp       = 2;
00016 var cPktXProtocolTypeUdp      = 3;
00017 var cPktXProtocolTypeTcp      = 4;
00018 
00019 // Create PacketX object
00020 var oPktX = WScript.CreateObject("PktX.PacketX","PacketX_");
00021 
00022 // Display network adapters
00023 for (i = 0; i < oPktX.Adapters.Count ; i++) {
00024   if (oPktX.Adapters(i+1).IsGood == true) {
00025     WScript.Echo("(" + (i+1) + ") " + oPktX.Adapters(i+1).Description);
00026   }
00027 }
00028 
00029 // Select network adapter
00030 oNullAdapter = WScript.CreateObject("PktX.Adapter");
00031 oPktX.Adapter = oNullAdapter;
00032 while(oPktX.Adapter == oNullAdapter) 
00033 {
00034   WScript.StdOut.Write("Choose adapter#")
00035   try { 
00036     oPktX.Adapter = oPktX.Adapters(WScript.StdIn.ReadLine());
00037   }
00038   catch(err){
00039     oPktX.Adapter = oNullAdapter;
00040   } 
00041 }
00042 
00043 // Run 60 secs
00044 oPktX.Start();
00045   WScript.Sleep(60000);
00046 oPktX.Stop();
00047 
00048 // Packet event handler
00049 function PacketX_OnPacket(oPacket) 
00050 {
00051   switch(oPacket.Protocol) {
00052     case cPktXProtocolTypeEthernet:
00053       WScript.Echo("MAC:\t" + oPacket.SourceMacAddress + "\t=> " + 
00054         oPacket.DestMacAddress);
00055       break;
00056     case cPktXProtocolTypeIp:
00057       WScript.Echo("IP:\t" + oPacket.SourceIpAddress + "\t=> " + 
00058         oPacket.DestIpAddress);
00059       break;
00060     case cPktXProtocolTypeTcp:
00061       WScript.Echo("TCP:\t" + oPacket.SourceIpAddress + "\t=> " + 
00062         oPacket.DestIpAddress + "\t" + oPacket.SourcePort + "\t=> " + 
00063         oPacket.DestPort);
00064       break;
00065     case cPktXProtocolTypeUdp:
00066       WScript.Echo("UDP:\t" + oPacket.SourceIpAddress + "\t=> " + 
00067         oPacket.DestIpAddress + "\t" + oPacket.SourcePort + "\t=> " + 
00068         oPacket.DestPort);
00069       break;
00070   }
00071 }