Welcome, guest | Sign In | My Account | Store | Cart

Sending uses the command line tool clip.exe that may not be available in Windows XP. There is no standard tool to retrieve from clipboard so I use javascript via mshta.

Batch, 19 lines
 1
 2
 3
 4
 5
 6
 7
 8
 9
10
11
12
13
14
15
16
17
18
19
@echo off
setlocal enabledelayedexpansion

::type the script listing to the clipboard
type "%~dpnx0" |clip  
echo.
echo listing of this script saved to clipboard, now you can paste it to notepad
echo.
echo.
echo.
echo retrieving the listing from notepad. FOR /F skips the empty lines...
echo.
echo.
set jsfunc=new ActiveXObject('htmlfile').parentWindow.clipboardData.getData('text')
set dialog="javascript:close(new ActiveXObject('Scripting.FileSystemObject').
set dialog=%dialog%GetStandardStream(1).Writeline(%jsfunc%))"

for /f "TOKENS=*" %%p in ('mshta.exe %dialog%') do echo %%p
echo Done!