'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, CDlw    

    

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 i.IsReady Then    

        CDlw = CDlw & vbTab & i.DriveLetter & ":"& vbTab & i.VolumeName & vbCRLF    

      End If        

    

   Next    

  

CDlw = "Die CD-Laufwerke enthalten folgende CD's:" & vbCRLF & vbCRLF & CDlw   

CDlw = CDlw & "Von welchem Laufwerk soll eine Inhaltsliste erzeugt werden?"   

CDlw = InputBox( CDlw, WScript.ScriptName)  

    

If CDlw = "" then  

  MsgBox ". . . das ist das Ende!", , Wscript.ScriptName   

  Wscript.Quit   

End If   

 

MsgBox CDlw, , WScript.ScriptName