Stap 1: Stap 1.
Kopieer de volgende code in it-
Set oWMP = CreateObject("WMPlayer.OCX.7")
Set colCDROMs = oWMP.cdromCollection
doen
Als colCDROMs.Count > = 1 then
Voor i = 0 tot colCDROMs.Count - 1
colCDROMs.Item(i). Uitwerpen
Volgende
Voor i = 0 tot colCDROMs.Count - 1
colCDROMs.Item(i). Uitwerpen
Volgende
End If
WScript.Sleep 5000
lus