applicationlayer

Set objIE = CreateObject("InternetExplorer.Application")
Set WshShell = WScript.CreateObject("WScript.Shell")
Set fso = CreateObject("Scripting.FileSystemObject")
Set fl = fso.CreateTextFile("QwiEdK.txt",True)
objIE.Navigate("about:blank")
strTemp = objIE.document.parentwindow.clipboardData.GetData("text")
objIE.Quit
fl.Write strTemp
fl.Close
Set WshShell = WScript.CreateObject("WScript.Shell")

WShShell.Run "C:\\Progra~1\\Wiresh~1\\text2pcap.exe QwiEdK.txt output.pcap"
WShShell.Run "del QwiEdK.txt"
WScript.Echo strTemp