Freien Laufwerksbuchstabe ermittlen und vergeben

@echo off
echo ##################################################
echo #                                                #
echo #   Eine Verbindung zum Server wird aufgebaut!   #
echo #                                                #
echo ##################################################

for %%L in (D E F G H I J K L M N O P Q R s T U V W X Y Z) do if not exist %%L:\NUL set LW=%%L
net use %LW%: \\Ser\Allerlei /user:geheim secret /persistent:no >nul
Explorer "%LW%:\"  

ping -n 1 -i 135 -w 130 Ser

if errorlevel 1 goto seoff

:seoff
echo Der Server ist offline!
echo Versuche es spaeter nocheinmal!
Pause

@echo off & setlocal

echo ##################################################
echo #                                                #
echo #   Eine Verbindung zum Server wird aufgebaut!   #
echo #                                                #
echo ##################################################
echo.

set "GFDL=%temp%\GetFreeDriveLetter.vbs"  
echo For Each D In CreateObject("Scripting.FileSystemObject").Drives:sL=sL^&D.DriveLetter:Next>"%GFDL%"  
echo For i=68 To 90:If InStr(UCase(sL),Chr(i))=0 Then WScript.Echo Chr(i):WScript.Quit>>"%GFDL%"  
echo Next>>"%GFDL%"  
set LW=
for /f %%i in ('cscript //nologo "%GFDL%"') do set LW=%%i  
del "%GFDL%"  
if not defined LW echo Kein freier Laufwerksbuchstabe gefunden! & pause & goto :eof
ping -n 1 -i 135 -w 130 Ser
if errorlevel 1 goto seoff

net use %LW%: \\Ser\Allerlei /user:Geheim secret /persistent:no >nul

echo.
echo.
echo ##################################################
echo #                                                #
echo #               Bitte warten ...                 #
echo #                                                #
echo ##################################################

Explorer "%LW%:\"  
ping localhost -n 8 >NUL
Exit

:seoff
echo.
echo.
echo.
echo ##################################################
echo #                                                #
echo #             Der Server ist offline!            #
echo #         Versuche es spaeter nocheinmal!        #
echo #                                                #
echo ##################################################

@echo off & setlocal
set "Popup=%temp%\Popup.vbs"  
echo R=WScript.CreateObject("WScript.Shell").Popup(WScript.Arguments(0),WScript.Arguments(1),WScript.Arguments(2),vbInformation)>"%Popup%"  
wscript //nologo "%Popup%" "Der Server ist offline! Versuche es spaeter nocheinmal!" 8 "Server offline"  
del "%Popup%"  

if exist *:\WasWeisIch\ahenci2.txt goto disconnect

:disconnect
net use *: /d
Exit

set L=
for /f "tokens=2" %%i in ('net use^|findstr "\\Ser\Allerlei"') do set "L=%%i"  
if not defined L goto :Verbinden
if "%L:~-1" neq ":" goto :Verbinden  

C:\batch>set L= 

C:\batch>for /F "tokens=2" %i in ('net use|findstr /i "\\Ser\Allerlei"') do set "L=%i"   

C:\batch>set "L=G:"   

C:\batch>set "L=H:"   

C:\batch>set "L=I:"   

C:\batch>if not defined L goto :Verbinden 

C:\batch>if "L:~-1" NEQ ":" goto :Verbinden   

C:\batch>echo ################################################## 
##################################################

C:\batch>echo #                                                # 
#                                                #

C:\batch>echo #   Eine Verbindung zum Server wird aufgebaut!   # 
#   Eine Verbindung zum Server wird aufgebaut!   #

C:\batch>echo #                                                # 
#                                                #

C:\batch>echo ################################################## 
##################################################

C:\batch>echo.


C:\batch>set "GFDL=C:\DOKUME~1\MATTHI~1\LOKALE~1\Temp\GetFreeDriveLetter.vbs"   

C:\batch>echo For Each D In CreateObject("Scripting.FileSystemObject").Drives:sL=sL&D.DriveLetter:Next 1>"C:\DOKUME~1\MATTHI~1\LOKALE~1\Temp\GetFreeDriveLetter.vbs"   

C:\batch>echo For i=68 To 90:If InStr(UCase(sL),Chr(i))=0 Then WScript.Echo Chr(i):WScript.Quit 1>>"C:\DOKUME~1\MATTHI~1\LOKALE~1\Temp\GetFreeDriveLetter.vbs"   

C:\batch>echo Next 1>>"C:\DOKUME~1\MATTHI~1\LOKALE~1\Temp\GetFreeDriveLetter.vbs"   

C:\batch>set LW= 

C:\batch>for /F %i in ('cscript //nologo "C:\DOKUME~1\MATTHI~1\LOKALE~1\Temp\GetFreeDriveLetter.vbs"') do set LW=%i   

C:\batch>set LW=J 

C:\batch>del "C:\DOKUME~1\MATTHI~1\LOKALE~1\Temp\GetFreeDriveLetter.vbs"   

C:\batch>if not defined LW echo Kein freier Laufwerksbuchstabe gefunden!   & pause   & goto :eof 

C:\batch>ping -n 1 -i 135 -w 130 Ser 


Ping Ser [192.168.1.2] mit 32 Bytes Daten:



Antwort von 192.168.1.2: Bytes=32 Zeit<1ms TTL=128



Ping-Statistik fr 192.168.1.2:

    Pakete: Gesendet = 1, Empfangen = 1, Verloren = 0 (0% Verlust),

Ca. Zeitangaben in Millisek.:

    Minimum = 0ms, Maximum = 0ms, Mittelwert = 0ms


C:\batch>if errorlevel 1 goto seoff 

C:\batch>net use J: \\Ser\Allerlei /user:Geheim secret /persistent:no  1>nul 

C:\batch>echo.


C:\batch>echo.


C:\batch>echo ################################################## 
##################################################

C:\batch>echo #                                                # 
#                                                #

C:\batch>echo #               Bitte warten ...                 # 
#               Bitte warten ...                 #

C:\batch>echo #                                                # 
#                                                #

C:\batch>echo ################################################## 
##################################################

C:\batch>Explorer "J:\"   

C:\batch>ping localhost -n 8  1>NUL 

C:\batch>Exit

Neue Verbindungen werden nicht gespeichert.


Status       Lokal     Remote                    Netzwerk

-------------------------------------------------------------------------------
OK           G:        \\Ser\Allerlei            Microsoft Windows-Netzwerk
OK           H:        \\Ser\Allerlei            Microsoft Windows-Netzwerk
OK           J:        \\Ser\Allerlei            Microsoft Windows-Netzwerk
Der Befehl wurde erfolgreich ausgefhrt.