'*** v3.A*** www.dieseyer.de *******************************
'
' Datei:  laufwerksbuchstabefrei.vbs
' Autor:  dieseyer@gmx.de 
' Auf:    www.dieseyer.de
'
' Gibt den ersten freien Laufwerksbuchstaben zurück.
'
'************************************************************

Option Explicit ' Siehe http://dieseyer.de/dse-wsh-lernen.html#OptionExpl

MsgBox "Erster freier Laufwerksbuchstabe:   """ & LwFrei() & """   ", , Wscript.ScriptName

WScript.Quit

'*** v3.A*** www.dieseyer.de *******************************
Function LwFrei()
'************************************************************** 

  Dim fso         : Set fso       = CreateObject("Scripting.FileSystemObject")
  Dim i

  For i = 65+2 to 90
    If not fso.DriveExists( Chr( i ) & ":" ) Then LwFrei = Chr( i ) & ":" : Exit Function
  Next

End Function ' LwFrei()