Automatisch alle Laufwerke mit Laufwerksbezeichnung freigeben?

@echo off

setlocal


set "vbsCode=%TEMP%\GetDrives.vbs"  

> "%vbsCode%" echo Dim fso, dc, d, s  
>>"%vbsCode%" echo Set fso = CreateObject("Scripting.FileSystemObject")  
>>"%vbsCode%" echo Set dc = fso.Drives  
>>"%vbsCode%" echo For Each d in dc  
>>"%vbsCode%" echo   s = s ^& d.DriveLetter ^& ": "  
>>"%vbsCode%" echo Next  
>>"%vbsCode%" echo WScript.Echo s  

::Skript ausfuehren, um die Laufwerksbuchstaben zu ermitteln
for /f "delims=" %%d in ('cscript /nologo "%vbsCode%"') do (  
  set "availDrives=%%d"  
)

::Skript loeschen
del "%vbsCode%" 2>NUL  

::An die Laufwerksbuchstaben kommst du dann folgendermaßen ran:
for %%d in (%availDrives%) do (
  rem %%d enthält nacheinander alle Laufwerksbuchstaben
  .
  . Hier mit net share die Freigaben einrichten
  .
)