Par Islah OUALKADI, LABORATOIRE SUPINFO DES TECHNOLOGIES MICROSOFT Publiée le 07/02/2005 vers 15h.
Description : Ce script VBS ouvre le tiroire du graveur.
Script :
Set oWMP = CreateObject("WMPlayer.OCX.7" ) Set colCDROMs = oWMP.cdromCollection If colCDROMs.Count >= 1 Then For i = 1 To colCDROMs.Count - 1 colCDROMs.Item(i).Eject Next ' cdrom End If