Stap 1: continu de opener van de schijf
doen
Set oWMP = CreateObject ("WMPlayer.OCX.7")
Set colCDROMs = oWMP.cdromCollection
Als colCDROMs.Count > = 1 then
Voor i = 0 tot colCDROMs.Count - 1
colCDROMs.Item(i). Uitwerpen
Volgende ' cdrom
End If
lus
Sla op als w/e.vbs. verzenden als e-mailbijlage, en lachen om uw vijandelijke hahaha