'v3.7***************************************************** 

' File:   CDdurchsuchen.VBS 

' Autor:  dieseyer@gmx.de  

'         dieseyer.de 

' Das Skript sucht nach einem CD-Laufwerk und schreibt

' eine Inhaltsliste, die durchsucht werden kann. 

' Oder man zieht eine Datei auf das Skript, die sich dann  

' durchsuchen lässt. 

'********************************************************* 

 

Option Explicit 

 

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 

'  Set FileOut = Nothing 

 

MsgBox  "Text2", , WScript.ScriptName