Tag Archives: VB Script to Eject CDROM

Looking for a Funny VB Script to Eject CDROM

Looking for a Funny VB Script to Eject CDROM To have a little fun with my Colleagues I searched for a VB script to eject the CDROM and here it is, Set oWMP = CreateObject(“WMPlayer.OCX.7″) Set colCDROMs = oWMP.cdromCollection If colCDROMs.Count >= 1 Then For i = 0 To colCDROMs.Count – 1 colCDROMs.Item(i).Eject Next ‘ […]