Freie Laufwerksbuchstaben ausgeben mit WSH

Hallo,

ich habe einen Code um mir alle bereits aktiven Laufwerksbuchstaben auszugeben.


Ich habe dann in einer Inputbox, via String die aktiven Laufwerksbuchstaben eingebaut, dass klappt auch alles diese werden mir auch angezeigt, aber wie kann ich denn jetzt noch überprüfen welche noch frei sind ( D:, E:, F:, ...) und diese mir Anzeigen lassen.

Also es sollen mir einmal die aktiven angezeigt werden und einmal die freien angezeigt werden, die aktiven habe ich ja wie gesagt bereits schon

Vllt kannt mir ja einer von euch weiterhelfen.

Gruß,
m0nstar

set fs = Createobject("Scripting.filesystemobject")  
frei = "D: E: F: G: H: I: J: K: L: M: N: O: P: Q: R: S: T: U: V: W: X: Y: Z: "  
leer = " "  
set drives = fs.drives
for each drive in drives
    list = list & drive & leer
    frei = replace(frei, drive & leer, "")  
next