Re: Laufwerke auflisten

Am 24.03.2006 21:16 schrieb Nils Kaczenski [MVP]:

WMI ist dein Freund. Schau mal ins Scriptcenter:
http://www.microsoft.com/germany/technet/datenbank/articles/600327.mspx

Hab's folgendermaßen gelöst:

Dim FSO
Dim oDrive
Set FSO = CreateObject("Scripting.FileSystemObject")
WScript.Echo ""
WScript.Echo "--- Verfügbare Laufwerke:"
WScript.Echo ""
For Each oDrive In FSO.Drives
If oDrive.IsReady Then
WScript.Echo "VolumeName : " & oDrive.VolumeName
WScript.Echo "Path : " & oDrive.Path
WScript.Echo ""
End If
Next



--
Grüße


Marco Appoldt
.