Script: Laufwerke anzeigen, eines auswählen, Befehl ausführen

[Viper73]

Hallo !

Ich möchte ein Script erstellen das folgendes tut:

1. Listet alle Laufwerke auf

C: Windows
D: CDROM
E: Daten
F: USB-STICK

2. Abfrage welcher Verzeichnisbuchstabe man "merken" möchte

3. Folgender Befehl ausführen mit dem gemerkten LW Buchstaben (hier ist das LW X das dann durch den gemerkten Buchstaben ersetzt werden soll)
Chkdsk X: /F

Ich habe bisher:

Set DateiSystem = CreateObject("Scripting.FileSystemObject")
For each Laufwerk in DateiSystem.Drives
Laufwerke = Laufwerke & Laufwerk.DriveLetter & vbCrLf
Next
MsgBox "Existierende Laufwerke:" & vbCrLf & Laufwerke,, "Existierende Laufwerke"

allerdings fehlt hier noch der Laufwerksname ... aber komme leider nicht weiter. Kann mir da jemand helfen ?

[Viper73]

Ich habe es jetzt mit einer Batch Datei gemacht:

**********************
echo off
cls
echo.
vol
echo.
@echo Mit diesem Programm wird das oben genannte auf Fehler
@echo geprueft. Somit kommt nicht mehr die Meldung das der
@echo USB-Stick einer Fehlerpruefung unterzogen werden soll.
echo.
@echo #######################################################
echo.
@echo * Bitte alle Anwendungen auf diesem Laufwerk beenden
echo.
@echo * Bitte auch das Windows Explorer Fenster in dem der
@echo Inhalt des USB Sticks angezeigt wird erst beenden
@echo bevor das Programm weiter ausgefuehrt wird.
echo.
@echo * Wenn das alles getan ist eine Taste druecken und
@echo bei der Frage "Bereitstellung aufheben" mit "J"
@echo beantworten.
echo.
@echo * Soll das Programm nicht ausgefuehrt werden dann das
@echo Fenster ueber den "X" Button oben rechts beenden.
echo.
pause
Chkdsk /F
pause
**********************

Diese muß man immer auf dem Laufwerk ausführen auf dem man den Befehl ausführen möchte.