VBS in Batch einbauen (csv auslesen und abarbeiten)

@echo on
echo Aufnahme von Willi Schmidt aus CSV
echo Juli 2009
title SNW-Systems - Aufnahme aus CSV
rem -----------------------------------------------------------------------------------------------------
Rem Dateibrowser zum anwählen der Datei
echo Bitte geben Sie den Namen der zu importierenden CSV-Datei an>info.tmp
echo quelle.csv>>info.tmp
echo %logonserver%%>>info.tmp
echo (*.csv):*.csv>>info.tmp
call winscript FileOpenBox info.tmp

Rem ### Ergebnis mitteilen
echo Ergebnis>info.tmp
echo OK>>info.tmp
echo Der Dateiname lautet "%wsresult%".>>info.tmp  
del info.tmp
rem --------------------------------------------------------------------------------------------------------

rem nun auslesen
set "Namensliste=%wsresult%"  
set "Delim=;"  
for /f "usebackq tokens=1-6 delims=%Delim%" %%a in ("%Namensliste%") do (  
    set "vorname=%%a"  
    set "nachname=%%b"  
    set "fullname=%%c"  
    set "geschlecht=%%d"  
	set "bday=%%e"  
	set "klasse=%%f"  

rem nun alles erforderliche unternehmen
if not exist "%logonserver%\KLASSEN\%%f" md "%logonserver%\KLASSEN\%%f"  
if not exist "%logonserver%\KLASSEN\%%f\%%a" md "%logonserver%\Klassen\%%f\%%a"   
echo %%a;%%b;%%c;%%d;%%e;no>> %logonserver%\KLASSEN\fullname_%%f.csv
xcopy "%logonserver%\vorlage" "%logonserver%\Klassen\%%f\%%a" /E /C /Y /Q /D  
echo Der/Die Schüler/in %%c wurde erfolgreich in die Klasse %%f aufgenommen. >> %logonserver%\LOG\aufnahme_schueler.log
echo %%c erfolgreich angemeldet.

if exist == "%logonserver%\KLASSEN\%klasse%\TAUSCH" goto over  
if not exist == "%logonserver%\KLASSEN\%klasse%\TAUSCH" md "%logonserver%\KLASSEN\%klasse%\TAUSCH"  
set "Script=C:\Share.vbs"  

set "snw=server"  
set "sharename=TAUSCH_%Klasse%"  
set "comentar=Tauschverzeichnis der Klasse %%f"  

>"%Script%"  echo Const FILE_SHARE = 0  
>>"%Script%" echo Const MAXIMUM_CONNECTIONS = 100  
>>"%Script%" echo.  
>>"%Script%" echo strComputer = "%snw%"  
>>"%Script%" echo Set objWMIService = GetObject("winmgmts:" _  
>>"%Script%" echo ^& "{impersonationLevel=impersonate}!\\" ^& strComputer ^& "\root\cimv2")  
>>"%Script%" echo.  
>>"%Script%" echo Set objNewShare = objWMIService.Get("Win32_Share")  
>>"%Script%" echo.  
>>"%Script%" echo errReturn = objNewShare.Create _  
>>"%Script%" echo ("D:\KLASSEN\%klasse%\TAUSCH", _  
>>"%Script%" echo "%sharename%", FILE_SHARE, _  
>>"%Script%" echo MAXIMUM_CONNECTIONS, "%comentar%")  
"%Script%"  
echo In der naechsten Minute wird das Tauschverzeichnis Ihrer Klasse aktiviert sein.
echo Erstellung der Tauschfreigabe der Klasse %%f.>>%logonserver%\Problem\p.txt
del "%Script%"  
:over
)