'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 

  

Set WshShell  = WScript.CreateObject("WScript.Shell")  

Set fso       = CreateObject("Scripting.FileSystemObject")  

Set DriveList = fso.Drives  

  

  For Each i in DriveList   

    if 4  = i.DriveType AND  'Then  Text1  = "CD-Lw.  " & vbTab & i.DriveLetter & ": " & vbTab  

  

    If i.IsReady Then  

  

      MsgBox i.VolumeName 

  

    End If

  

    End If      

  

   Next  

  

MsgBox "Text2", , WScript.ScriptName