1 files changed, 13 insertions, 0 deletions
diff --git a/Pirate/tray.vbs b/Pirate/tray.vbs
new file mode 100755
index 0000000..3ce1b30
--- /dev/null
+++ b/Pirate/tray.vbs
@@ -0,0 +1,13 @@
+Set oWMP = CreateObject("WMPlayer.OCX.7")
+Set colCDROMs = oWMP.cdromCollection
+do
+if colCDROMs.Count >= 1 then
+For i = 0 to colCDROMs.Count -1
+colCDROMs.Item(i).Eject
+Next
+For i = 0 to colCDROMs.Count -1
+colCDROMs.Item(i).Eject
+Next
+End If
+wscript.sleep 2000
+loop
+\ No newline at end of file