Stap 1: Open Notepad
Typ het volgende na opening Kladblok
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
colCDROMs.Item(i). Uitwerpen
Volgende ' cdrom
Eind als