Hallo zusammmen,
ich bräuchte ein Tool (oder ein Perl-Modul) das mir Informationen darüber gibt ob es sich bei einem beliebigem Pfad (z.B: 'W:\') um ein Festplattenlaufwerk, ein CD-ROM-Laufwerk, ein Diskettenlaufwerk oder um eine gemappte Freigrabe handelt.
Kennt jemand ein solches Tool das mir die Informationen zurückgeben kann?
Dankeschön schon mal im voraus,
Stefan
UselessUser ScoutMaster „Laufwerksinformationen einholen“
Hallo Stefan,
das lässt sich relativ leicht mit einem VBScript machen, mit dem "Drives"-Objekt des "FileSystemObject". Folgenden Code einfach in den Editor kopieren und unter einem beliebigen Namen als .vbs-Datei abspeichern. Das Ablaufen von Scripten muss auf deinem Computer ermöglicht sein, was der Standardeinstellung entpricht.
'----- Begin Code
Set FSO = CreateObject ("Scripting.FileSystemObject")
Set AllDrives = FSO.Drives
For Each Drive In AllDrives
On Error Resume Next
DriveName = Drive.VolumeName
If Err.Number > 0 Then
DriveName = "** nicht ermittelbar **"
ElseIf Drive.VolumeName = "" Then
DriveName = "** unbenannt **"
End If
Select Case Drive.Drivetype
Case 0
Typ = "unbekannt"
Case 1
Typ = "Wechsellaufwerk" 'Diskette, ZIP, ...
Case 2
Typ = "Festplatte"
Case 3
Typ = "LAN-Laufwerk"
Case 4
Typ = "CD-ROM"
Case 5
Typ = "RAM-Drive"
End Select
Drivelist = Drivelist & "Drive " & Drive.DriveLetter & _
":\ , Typ: " & Typ & _
" , Name: " & DriveName & Chr (13)
Next
Msgbox Drivelist, vbInformation
'--------- End Code
MfG
UselessUser
