[Payload] Duckscript To Open New Tabs In Internet Explorer On Insert

[overwraith]

Here is some duck script I made that;
-Types in a VB Script that opens tabs in internet explorer
-Runs the VB Script with the proper arguments that opens the desired webpages in internet explorer.

Not exactly hacking, but could be useful to somebody.

The VB Script was written by somebody else and the authors post can be found at:
http://www.vistaheads.com/forums/microsoft-public-internetexplorer-general/438407-command-line-open-several-websites-multiple-tabs.html

Made the duck script specifically so I could pick up and move permalinks from databases like ebsco host to other computers and quickly open them during the research stages of papers.

REM MOBILETABS.TXT BEGINS
REM HIDE COMMAND WINDOW
CONTROL ESCAPE
STRING cmd /Q /D /T:7F /F:OFF /V:OFF /K
DELAY 500
ENTER
DELAY 750
ALT SPACE
STRING M
DOWNARROW
REPEAT 100
ENTER
REM VB SCRIPT FOUND AT:
REM http://www.vistaheads.com/forums/microsoft-public-internetexplorer-general/438407-command-line-open-several-websites-multiple-tabs.htmlinternetexplorer
REM INPUT FILE MobileTabs.vbs
STRING copy con MobileTabs.vbs
ENTER
STRING on error resume next
ENTER
STRING navOpenInBackgroundTab = &h1000
ENTER
STRING set oIE = CreateObject("InternetExplorer.Application")
ENTER
STRING Set args = WScript.Arguments
ENTER
STRING oIE.Navigate2 args.Item(0)
ENTER
STRING for intx = 1 to args.count
ENTER
STRING oIE.Navigate2 args.Item(intx), navOpenInBackgroundTab
ENTER
STRING next
ENTER
STRING oIE.Visible = true
ENTER
CONTROL Z
Enter
REM LATER WILL TYPE THE WEBSITES TO A TEXT FILE,
REM AND SEND THE FILE TO THE VB SCRIPT
REM RUN THE VB SCRIPT TO LAUNCH INTERNET EXPLORER
STRING MobileTabs.vbs http://www.google.com/ http://mwomercs.com/ http://hak5.org/ http://forums.hak5.org/index.php?/forum/56-usb-rubber-ducky/
Enter

Edited February 6, 2013 by midnitesnake
corrected formatting

[overwraith]

Here is a tweaked version that has a delete command so the duckscript can be run multiple times on computers without any problems.
Tried to use the WRITELINE command to replace the STRING ENTER commands, but it looks like the delay command on the online compiler may not work for WRITELINE. Couldnt find a way to slow the commands down enough to prevent the script from messing up. Defaulted back to STRING ENTER commands.

REM MOBILETABS.TXT BEGINS
REM HIDE COMMAND WINDOW
CONTROL ESCAPE
STRING cmd /Q /D /T:7F /F:OFF /V:OFF /K
DELAY 500
ENTER
DELAY 750
ALT SPACE
STRING M
DOWNARROW
REPEAT 100
ENTER
REM DELETE THE SCRIPT IF IT ALREADY EXISTS
STRING DEL /Q MobileTabs.vbs
ENTER
REM VB SCRIPT FOUND AT:
REM [url="http://www.vistaheads.com/forums/microsoft-public-internetexplorer-general/438407-command-line-open-several-websites-multiple-tabs.htmlinternetexplorer"]http://www.vistahead...nternetexplorer[/url]
REM INPUT FILE MobileTabs.vbs
STRING copy con MobileTabs.vbs
ENTER
STRING on error resume next
ENTER
STRING navOpenInBackgroundTab = &h1000
ENTER
STRING set oIE = CreateObject("InternetExplorer.Application")
ENTER
STRING Set args = WScript.Arguments
ENTER
STRING oIE.Navigate2 args.Item(0)
ENTER
STRING for intx = 1 to args.count
ENTER
STRING oIE.Navigate2 args.Item(intx), navOpenInBackgroundTab
ENTER
STRING next
ENTER
STRING oIE.Visible = true
ENTER
CONTROL Z
ENTER
REM LATER WILL TYPE THE WEBSITES TO A TEXT FILE,
REM AND SEND THE FILE TO THE VB SCRIPT
REM RUN THE VB SCRIPT TO LAUNCH INTERNET EXPLORER
STRING MobileTabs.vbs [url="http://www.google.com/"]http://www.google.com/[/url] [url="http://mwomercs.com/"]http://mwomercs.com/[/url] [url="http://hak5.org/"]http://hak5.org/[/url] [url="http://forums.hak5.org/index.php?/forum/56-usb-rubber-ducky/"]http://forums.hak5.o...b-rubber-ducky/[/url]
ENTER
 

Edited February 6, 2013 by midnitesnake
corrected formatting