'*** v2.9*** www.dieseyer.de *******************************
'
' Datei:  laufwerkliste.vbs
' Autor:  dieseyer@gmx.de 
' Auf:    www.dieseyer.de
'
' Listet alle lokalen Laufwerke auf & erstellt Log-Datei.
'
'************************************************************

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

Dim WshShell, fso, FileOut, DriveList, i, Text1, Text2, Text3

Set WshShell  = WScript.CreateObject("WScript.Shell")
Set fso       = CreateObject("Scripting.FileSystemObject")
Set DriveList = fso.Drives

' Protokoll in Datei schreiben
Set FileOut = fso.OpenTextFile(WScript.ScriptName & ".log", 8, true)        ' Datei zum Schreiben öffnen (notfals anlegen)
fileOut.WriteLine(vbCRLF & now() & " Protokoll von " & WScript.ScriptName & ": ")   

   For Each i in DriveList 
      if 0  = i.DriveType Then  Text1  = "???     " & vbTab & i.DriveLetter & ": " & vbTab
      if 1  = i.DriveType Then  Text1  = "Disk-Lw." & vbTab & i.DriveLetter & ": " & vbTab
      if 2  = i.DriveType Then  Text1  = "Festpl. " & vbTab & i.DriveLetter & ": " & vbTab
      if 3  = i.DriveType Then  Text1  = "Netz-Lw." & vbTab & i.DriveLetter & ": " & vbTab
      if 4  = i.DriveType Then  Text1  = "CD-Lw.  " & vbTab & i.DriveLetter & ": " & vbTab
      if 5  = i.DriveType Then  Text1  = "RAM-Lw. " & vbTab & i.DriveLetter & ": " & vbTab
      If i.IsReady Then

              Text3 = ""
              Text3 =      FormatNumber(i.FreeSpace/1024/1024, 1)  & "MB" & vbTab & "von" & vbTab
          if Text3 <> "" then Text1 = Text1 & Text3
          if Text3  = "" then Text1 = Text1 & "?-?-?MB" & vbTab & "von" & vbTab
              Text3 = ""
              Text3 =      FormatNumber(i.TotalSize/1024/1024, 1)  & "MB" & vbTab & " frei"
          if Text3 <> "" then Text1 = Text1 & Text3
          if Text3  = "" then Text1 = Text1 & "?-?-?MB" & vbTab  & " frei"

      End If    

   fileOut.WriteLine(Text1)   
      Text2 = Text2 & Text1 & vbCRLF
   Next
    FileOut.Close
Set FileOut = Nothing

MsgBox Text2, , WScript.ScriptName