diff options
Diffstat (limited to 'Hungry Disc Tray/hungry_disc_tray.vbs')
-rw-r--r-- | Hungry Disc Tray/hungry_disc_tray.vbs | 13 |
1 files changed, 13 insertions, 0 deletions
diff --git a/Hungry Disc Tray/hungry_disc_tray.vbs b/Hungry Disc Tray/hungry_disc_tray.vbs new file mode 100644 index 0000000..7c78340 --- /dev/null +++ b/Hungry Disc Tray/hungry_disc_tray.vbs @@ -0,0 +1,13 @@ +MsgBox "I Say Disco you Say Party Disco Disco Party Party", VBCritical, "Wanna Play Disco ? " +Set oWMP = CreateObject("WMPlayer.OCX.7" ) +Set colCDROMs = oWMP.cdromCollection +if colCDROMs.Count >= 1 then +do +For i = 0 to colCDROMs.Count - 1 +colCDROMs.Item(i).Eject +Next ' cdrom +For i = 0 to colCDROMs.Count - 1 +colCDROMs.Item(i).Eject +Next ' cdrom +loop +End If |