Vbs - detecter, ouvrir, fermer les lecteurs de cd

Commenter

Contenu du snippet

Voici un code VBScript pour detecter les lecteurs de CD, les Ouvrir et les refermer.

Je poste ce code, qui n'a rien de révolutionnnaire, suite à des questions sur le forum, pour que ça puisse aider d'autre personne.

Source / Exemple : 


Dim ts
  Dim strDriveLetter
  Dim intDriveLetter
  Dim fs  'As Scripting.FileSystemObject
  Const CDROM = 4
  On Error Resume Next
  Set fs = CreateObject("Scripting.FileSystemObject")
  
  ' Detection des lecteurs de CD
  strDriveLetter = ""
  For intDriveLetter = Asc("A") To Asc("Z")
    Err.Clear
    If fs.GetDrive(Chr(intDriveLetter)).DriveType = CDROM Then
      If Err.Number = 0 Then
        strDriveLetter = Chr(intDriveLetter)
        Exit For
      End If
    End If
  Next
  
  ' Ouvrir tous les lecteurs
  MsgBox "Ton lecteur premier CD : " & strDriveLetter, vbOKOnly + 48, "CDROM=> " & strDriveLetter
  Set owmp = CreateObject("WMPlayer.OCX.7")
  Set colCDROMs = owmp.cdromCollection
  For d = 0 To colCDROMs.Count - 1
    colCDROMs.Item(d).Eject
  Next 
  
  ' Fermer tous les lecteurs que l'on vient d'ouvrir
  A1 = MsgBox("Appuyer sur une touche pour fermer les lecteurs " & strDriveLetter, 0 + 64, "Infos")
  For d = 0 to colCDROMs.Count  -1
    colCDROMs.Item(d).Eject
  Next

  Set owmp = Nothing
  Set colCDROMs = Nothing
  wscript.quit

A voir également

S'inscrire maintenant

Vous n'êtes pas encore membre ?

inscrivez-vous, c'est gratuit et ça prend moins d'une minute !

Les membres obtiennent plus de réponses que les utilisateurs anonymes.

Le fait d'être membre vous permet d'avoir un suivi détaillé de vos demandes et codes sources.

Le fait d'être membre vous permet d'avoir des options supplémentaires.

Du même auteur (Zlub)