Vista- Batch, vbs, Administratoren...

@echo off
setlocal ENABLEDELAYEDEXPANSION
set ver=v.0.2
title  Serialwriter %ver% Ph
cls
echo.
echo.
echo  Serialwriter %ver% Ph
echo.
echo.
echo  Reading Serial...

if "%1"=="" (set "serialdatei=serial.txt") else (set "serialdatei=%1")  
::set "serialdatei=serial.txt" 

FOR /F " delims=;" %%i in ('findstr /i "serial" %serialdatei%')  do Set %%i  
if not defined serial FOR /F %%i in (%serialdatei%)  do set serial=%%i
FOR /F " delims=;" %%i in ('findstr /i "serialcount" %serialdatei%')  do Set %%i  

echo.
echo.
echo  ..reading finished
echo.
echo.
echo  Preparing...

cd /d %temp%
echo Set wshshell = CreateObject("WScript.Shell") > serialwriter.vbs  
echo wshshell.AppActivate "setup.exe" >> serialwriter.vbs  
echo wscript.sleep 5000 >> serialwriter.vbs

rem anzahl der zeichen des serial zählen, maximum 40
if /i "%serialcount%" LEQ "0" (  
  for /l %%i in (0,1,40) do (
  set cut%%i=!serial:~%%i,1!
  if not "!cut%%i!"=="" set /a serialcount+=1  
  )
)

set /a serialcount-=1
rem count 20 = 21 vorgänge -1 = 20

::Herzstück, Patent!! ;D
for /l %%a in (0,1,%serialcount%) do (
set serialcut%%a=!serial:~%%a,1!
echo wshshell.Sendkeys "!serialcut%%a!" >> serialwriter.vbs  
echo wscript.sleep 100 >> serialwriter.vbs
)
echo wshshell.Sendkeys "{Enter}" >> serialwriter.vbs  

echo.
echo.
echo  ... ready!
::pause >nul
ping -n 2 127.0.0.1 > nul
cls
echo.
echo.
echo  Bereit^^! nachdem du eine beliebige Taste gedrckt hast,
echo   hast du 5 Sekunden Zeit das richtige Fenster auszuw„hlen. 
echo     ^(sofern das automatische Ausw„hlen fehlschl„gt^)
echo   Danach wird die Tasteneingabe des Serials emuliert
echo.
echo  Okay? Los gehts, drcke eine beliebige Taste...
pause >nul

cscript //nologo serialwriter.vbs

cls
echo.
echo.
echo  5..
echo.
echo.
ping -n 2 127.0.0.1 > nul
echo  3..
echo.
echo.
ping -n 2 127.0.0.1 > nul
echo  ...loslos!

ping -n 5 127.0.0.1 > nul
del serialwriter.vbs

:end