PingPlotter Script V4.00 ScriptType=Startup Language=VBScript DefaultEnabled=1 This script will allow editing of the source adapter address for the selected engine. ---- Do not edit this line, or anything above it ---- option explicit ' Set up an event to call when each new target is created - this overrides the default ' setting value and writes in our edits (if they exist). Events.SetEvent MainForm, "OnNewTargetView", "CreateNewTarget" ' Create a new menu dim NewMenu set NewMenu = MainForm.CreateAppObject("TMenuItem") NewMenu.Name = "miEditSourceIP" NewMenu.Caption = "Edit Source IP for this configuration" ' Hook up the "OnClick" event Events.SetEvent NewMenu, "OnClick", "EditSourceIP" ' Add the menu to the Tools menu, and make sure the Tools menu is visible MainForm.miTools.Add(NewMenu) MainForm.miTools.Visible = True ' --------------------------------------------------------------------- ' Prompt for TOS byte value for current target's engine. ' --------------------------------------------------------------------- sub EditSourceIP(Action) dim ReturnValueString dim ReturnValueInteger ReturnValueString = MainForm.DataCollector.Settings.AdditionalSettings("SourceAdapterAddress_Rule") if InputQuery("Enter source IP Address", "Enter source IP Address to use for configuration """ & MainForm.DataCollector.Settings.ConfigSettings.Name & """", ReturnValueString) then if (ReturnValueString <> MainForm.DataCollector.Settings.AdditionalSettings("SourceAdapterAddress_Rule")) then MainForm.DataCollector.Settings.AdditionalSettings("SourceAdapterAddress_Rule") = ReturnValueString MainForm.DataCollector.Settings.SourceAdapterAddress = ReturnValueString ShowMessage("Source Adapter IP Address changed to: " & ReturnValueString & vbCRLF & vbCRLF & "Note: This works on all IPv4 packet types EXCEPT TCP.") else ShowMessage("Value NOT changed.") end if end if end sub ' This is called each time we create a new grid / form. This is a great ' time to check and make sure the default adapter ip address is correctly ' overwritten in the Engine. sub CreateNewTarget(Sender, NewTarget) ' Just load the setting from the override spot. dim Settings set Settings = NewTarget.DataCollector.Settings Settings.SourceAdapterAddress = Settings.AdditionalSettings("SourceAdapterAddress_Rule") end sub