Program random starter for WinXP SP3

Program_random_starter.bat

@Echo Off

For /F "tokens=2 delims=:" %%j in ('Find /C /V "" random.txt') Do (
Set MOD=%%j
)
Set MOD=%MOD:~1%

echo Launched program list > launched_list.txt

:LOOP
Set N=%random%
If %N% gtr 99 Set N= %N:~-2,2%
Set N=%N: 0=%
Set /A N=%N%%%%MOD%+1

Set GRTS=
For /F "tokens=1-2 delims=[]" %%j in ('Find /N /V "" random.txt') Do (
If "%%j"=="%N%" If not "%%k"=="" Set GRTS=%%k
)
If not defined GRTS GoTo :LOOP

Echo. %GRTS% >> launched_list.txt
start %GRTS%

REM Sleep for random time (1-10 sec) then do it again
SET /A SLEEP=%random% * 10 / 32768 + 2
ping 127.0.0.1 -n %SLEEP% -w 1000 > nul

GOTO :LOOP

Set MOD=
Set N=
Set GRTS=

:: End_Of_Batch

random.txt

c:\windows\notepad.exe
c:\windows\regedit.exe
c:\windows\explorer.exe
c:\windows\system32\dfrg.msc
c:\windows\system32\calc.exe
c:\windows\system32\cmd.exe
c:\windows\system32\cliconfg.exe
c:\windows\system32\ciadv.msc
c:\windows\system32\compmgmt.msc
c:\windows\system32\ddeshare.exe
c:\windows\system32\devmgmt.msc
c:\windows\system32\diskmgmt.msc
c:\windows\system32\drwatson.exe
c:\windows\system32\drwtsn32.exe
c:\windows\system32\dvdplay.exe
c:\windows\system32\dpvsetup.exe
c:\windows\system32\eudcedit.exe
c:\windows\system32\freecell.exe
c:\windows\system32\fsquirt.exe
c:\windows\system32\fsmgmt.msc
c:\windows\system32\gpedit.msc
c:\windows\system32\help.exe
c:\windows\system32\iexpress.exe
c:\windows\system32\lusrmgr.msc
c:\windows\system32\magnify.exe
c:\windows\system32\migpwd.exe
c:\windows\system32\mmc.exe
c:\windows\system32\mnmsrvc.exe
c:\windows\system32\mobsync.exe
c:\windows\system32\mplay32.exe
c:\windows\system32\msdtc.exe
c:\windows\system32\mshearts.exe
c:\windows\system32\msiexec.exe
c:\windows\system32\mspaint.exe
c:\windows\system32\mstsc.exe
c:\windows\system32\napstat.exe
c:\windows\system32\narrator.exe
c:\windows\system32\netsetup.exe
c:\windows\system32\notepad.exe
c:\windows\system32\nslookup.exe
c:\windows\system32\ntbackup.exe
c:\windows\system32\ntsd.exe
c:\windows\system32\odbcad32.exe
c:\windows\system32\packager.exe
c:\windows\system32\perfmon.exe
c:\windows\system32\ping6.exe
c:\windows\system32\ping.exe
c:\windows\system32\proquota.exe
c:\windows\system32\progman.exe
c:\windows\system32\rasphone.exe
c:\windows\system32\rcimlby.exe
c:\windows\system32\regedt32.exe
c:\windows\system32\rsmui.exe
c:\windows\system32\rsnotify.exe
c:\windows\system32\rtcshare.exe
c:\windows\system32\runonce.exe
c:\windows\system32\shrpubw.exe
c:\windows\system32\sigverif.exe
c:\windows\system32\sndrec32.exe
c:\windows\system32\sndvol32.exe
c:\windows\system32\sol.exe
c:\windows\system32\spider.exe
c:\windows\system32\stimon.exe
c:\windows\system32\syncapp.exe
c:\windows\system32\sysedit.exe
c:\windows\system32\taskmgr.exe
c:\windows\system32\telnet.exe
c:\windows\system32\tourstart.exe
c:\windows\system32\tftp.exe
c:\windows\system32\utilman.exe
c:\windows\system32\verifier.exe
c:\windows\system32\wextract.exe
c:\windows\system32\wiaacmgr.exe
c:\windows\system32\winchat.exe
c:\windows\system32\winmine.exe
c:\windows\system32\wowexec.exe
c:\windows\system32\wpabaln.exe
c:\windows\system32\wuauclt.exe
c:\windows\system32\wupdmgr.exe
"C:\Program Files\Internet Explorer\IEXPLORE.EXE"
"C:\Program Files\Messenger\msmsgs.exe"
"C:\Program Files\Movie Maker\moviemk.exe"
"C:\Program Files\NetMeeting\conf.exe"
"C:\Program Files\MSN Gaming Zone\Windows\bckgam.exe"
"C:\Program Files\MSN Gaming Zone\Windows\chkrzm.exe"
"C:\Program Files\MSN Gaming Zone\Windows\hrtzzm.exe"
"C:\Program Files\MSN Gaming Zone\Windows\rvsezm.exe"
"C:\Program Files\MSN Gaming Zone\Windows\shvlzm.exe"
"C:\Program Files\Windows NT\dialer.exe"
"C:\Program Files\Windows NT\hypertrm.exe"
"C:\Program Files\Windows NT\Accessories\wordpad.exe"