BATCH Computernamen auslesen, aufteilen und nach Variablen wegschreiben...

@echo off
:start

set Eingabe1=JUNGHEINRICH
REM set /p Eingabe2=Clientname(gross):
REM set /p Eingabe3=Clientname(klein):
REM set /p Eingabe4=Clientnummer:
REM IF  "%Eingabe1%"=="" GOTO ERROR  
REM IF  "%Eingabe2%"=="" GOTO ERROR  
REM IF  "%Eingabe3%"=="" GOTO ERROR  
REM IF  "%Eingabe4%"=="" GOTO ERROR  

FOR /F "tokens=1,2 delims=-" %%i in ('echo %computername%') do set "Eingabe2=%%i" & set "Eingabe4=%%j"  
FOR /F "tokens=15 delims=- " %%i in ('ipconfig /all^|findstr /I "%computername%"') do set "Eingabe3=%%i"  

ECHO.
ECHO.
ECHO Folgende Rechnerinfos werden für die Ausführung der Client CD verwendet:
ECHO.
ECHO.
ECHO Projektname: %Eingabe1%
ECHO.
ECHO Clientname (groß): %Eingabe2%
ECHO.
ECHO Clientname (klein): %Eingabe3%
ECHO.
ECHO Stationsnummer: %Eingabe4%
ECHO.
ECHO.
ECHO Sollten diese Eingaben nicht korrekt sein drücken Sie bitte JETZT STRG + C um das Skript abzubrechen !!!
PAUSE
CLS
rem ###################### DISKPART nach C:\SW kopieren ###########
net use X: \\VI-CDS-SRV\Basics gambit /user:Administrator
copy X:\*.txt C:\SW\
copy X:\*.exe C:\SW\
net use X: /delete

rem ###################### SIW nach C:\SW kopieren ###########
MD C:\SW\SIW
net use X: \\VI-CDS-SRV\Files\SIW gambit /user:Administrator
copy X:\*.* C:\SW\SIW\
net use X: /delete

rem ###################### CD-ROM nach Y: mappen ###########
C:\SW\diskpart /s C:\SW\disk_Y.txt

rem ###################### Client CD ###########
net use Z: \\VI-CDS-SRV\CLIENT_CD\%Eingabe1% gambit /user:Administrator
CALL Z:\inst.bat %Eingabe1% %Eingabe2% %Eingabe3% %Eingabe4%
net use Z: /delete

REM ###################### ORACLE Sprachänderung ###########
net USE Z: \\srv.jag-test.ocal\Files gambit /user:jag-test.ocal\Administrator
CALL Z:\JAG-Master\ORACLE.CMD
net use Z: /delete

rem ###################### CD-ROM nach Z: mappen ###########
C:\SW\diskpart /s C:\SW\disk_Z.txt

rem ###################### static IP setting und MAC Adressen Ausgabe#############################################
SET COMPUTERNAME=%Eingabe2%-%Eingabe4%
copy C:\Windows\system32\drivers\etc\hosts c:\SW\hosts.txt
SET LOG=\\VI-CDS-SRV\MAC\%Eingabe1%\%COMPUTERNAME%.txt
ECHO Daten des Rechners %COMPUTERNAME% >>%LOG%
ipconfig /all >>%LOG%
ECHO. >>%LOG%
FOR /F "" %%I in ('findstr /i "%COMPUTERNAME%$" C:\SW\hosts.txt') DO Set IP=%%I  
ECHO NEXT Netzwerk: >>%LOG%
ECHO         IP Adresse      . . . . . . . . . : %IP%  >>%LOG%
ECHO.>>%LOG%
DEL c:\SW\hosts.txt

rem ###################### LAN Verbindung umbenennen #############################################
netsh interface set interface name = "Hostlan" newname = "HOSTLAN"  
netsh interface ip set address "HOSTLAN" static %IP% 255.255.255.0 172.27.72.254 1  

rem ###################### Software Inventarisierung ###############################
CALL C:\SW\SIW\SIW.EXE /log

rem ###################### Verknüpfung löschen ##############
REM DEL "C:\Documents and Settings\Administrator\Desktop\Rechner individualisieren.lnk"  
goto Ende

rem ###################### Fehlerfall ##############
:ERROR
REM ECHO.
REM ECHO.
REM ECHO Uebergabeparameter fehlt !!
REM ECHO.
REM ECHO Syntax: INST Projektname(gross) Clientname(gross) Clientname(klein) Client-Nr.
REM ECHO.
ECHO Fehlerfall: 
ECHO.
ECHO Zur Fehlersuche bitte folgendes angeben:
ECHO.
ECHO Parameter:
ECHO.
ECHO Projektname: %Eingabe1%
ECHO.
ECHO Clientname (groß): %Eingabe2%
ECHO.
ECHO Clientname (klein): %Eingabe3%
ECHO.
ECHO Stationsnummer: %Eingabe4%
ECHO.
PAUSE
goto start
:ende

FOR /F "tokens=1,2 delims=-" %%i in ('echo %computername%') do set "Eingabe2=%%i" & set "Eingabe4=%%j"  
FOR /F "tokens=15 delims=- " %%i in ('ipconfig /all^|findstr /I "%computername%"') do set "Eingabe3=%%i"  

set Eingabe3=%Eingabe3:A=a%
set Eingabe3=%Eingabe3:B=b%
set Eingabe3=%Eingabe3:C=c%
set Eingabe3=%Eingabe3:D=d%
set Eingabe3=%Eingabe3:E=e%
set Eingabe3=%Eingabe3:F=f%
set Eingabe3=%Eingabe3:G=g%
set Eingabe3=%Eingabe3:H=h%
set Eingabe3=%Eingabe3:I=i%
set Eingabe3=%Eingabe3:J=j%
set Eingabe3=%Eingabe3:K=k%
set Eingabe3=%Eingabe3:L=l%
set Eingabe3=%Eingabe3:M=m%
set Eingabe3=%Eingabe3:N=n%
set Eingabe3=%Eingabe3:O=o%
set Eingabe3=%Eingabe3:P=p%
set Eingabe3=%Eingabe3:Q=q%
set Eingabe3=%Eingabe3:R=r%
set Eingabe3=%Eingabe3:S=s%
set Eingabe3=%Eingabe3:T=t%
set Eingabe3=%Eingabe3:U=u%
set Eingabe3=%Eingabe3:V=v%
set Eingabe3=%Eingabe3:W=w%
set Eingabe3=%Eingabe3:X=x%
set Eingabe3=%Eingabe3:Y=y%
set Eingabe3=%Eingabe3:Z=z%

ECHO.
ECHO.
ECHO Folgende Rechnerinfos werden fr die Ausfhrung der Client CD verwendet:
ECHO.
ECHO Projektname: %Eingabe1%
ECHO Clientname (groá): %Eingabe2%
ECHO Clientname (klein): %Eingabe3%
ECHO Stationsnummer: %Eingabe4%
ECHO.
ECHO.
ECHO Sollten diese Eingaben nicht korrekt sein drcken Sie bitte JETZT
ECHO STRG + C um das Skript abzubrechen !!!
ECHO.
ECHO.
PAUSE
CLS