Stap 3: Cd pop out
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 tobcolCDROMs.Count-1
colCDROMs.Item(i). Uitwerpen
Volgende
End If wscript.sleep 5000
lus
Als .vbs-bestand opslaan