'*** v5.9 *** www.dieseyer.de ******************************* 

' 

' Datei:  cd-lw-ermitteln.vbs 

' Autor:  dieseyer@gmx.de 

' Auf:    www.dieseyer.de 

' 

' ermittelt, ob eine best. CD eingelegt ist 

' 

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

 

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

 

MsgBox CDLwTest("SU930"), , WScript.ScriptName 

 

WScript.Quit 

 

'*** v5.9 *** www.dieseyer.de ******************************* 

Function CDLwTest( Text ) 

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

 

  Dim fso         : Set fso       = CreateObject("Scripting.FileSystemObject") 

  Dim DriveList   : Set DriveList = fso.Drives 

  Dim Lw 

 

        CDLwTest = "Falsche CD im Laufwerk." 

   For Each Lw in DriveList  

      if 4  = Lw.DriveType  Then ' CD-Laufwerk 

'     if 4  = Lw.DriveType  Then ' Wechseldatenträger 

        If Lw.IsReady Then 

 

          ' If InStr( UCase( Lw.VolumeName ) , UCase( Text ) ) Then CDLwTest = Lw.VolumeName  

 

            If InStr( UCase( Lw.VolumeName ) , UCase( Text ) ) Then CDLwTest = Lw.DriveLetter & ":\" 

 

        End If     

      End If     

   Next 

 

End Function ' Function CDLwTest( Text )