Home / server / Questions / 26406
Accepted
Magnetic_dud
Asked: 2009-06-17 01:13:53 +0800 CST

How to close the cd tray automatically every minute?

  • 772

I explain better: On my workplace, all the dumb users has taken the wrong habit to leave the cd tray open forever on all computers...

Explain that they must close the tray, is just a waste of time: they say "it is way more productive"

There is a software that force-closes the tray automatically every minute?

windows

7 Answers

  1. Best Answer

    You could use the freeware utility NirCmd (NirSoft: download zip file) and use Windows Scheduling to run this statement every minute:

     C:\Program Files\Wizmo\wizmo.exe cdrom close d:

    (example)

    • 5

  2. Not sure if the exact tool actually exists, but here is a small command-line utility that could be scheduled to run every 1-5-10-60 minutes.

    • 3

  3. Well, what harm does an open CD tray really do?

    Of course, someone might break it, but then maybe he'll learn from this (at least if you take loooong to replace the broken drive).

    On the other hand, closing the tray automatically will just annoy your user base. Why would you do this?

    For me your request looks like child play: they don't wanna play your way, so you're looking for ways to make them by force.
    Please. Grow up. Does it really hurt you if they leave the tray open?

    The best peaceful solution: get slot-in-drives (Pioneer used to build there, dunno if they still do): No tray, no pain.

    • 2

  4. I was going to post this list, but as NirCmd is already mentioned by 2 other guys, I suppose you better check that one out first ;-)

    • 1

  5. Just remove the CD players from their machines?

    But a scheduled task could be very annoying. If the task happens to run right after the use has opened to tray to insert a cd... and the cd is halfway while the job closes the tray.... clank crash

    • 1

  6. You can use this handy VBS. I use it for ejecting a CD on my Vista-running-on-a-mac setup. Guess it should work both ways

    Const CDROM = 4 For Each d in CreateObject("Scripting.FileSystemObject").Drives If d.DriveType = CDROM Then Eject d.DriveLetter & ":\" End If Next

    Sub Eject(sDriveLetter) Dim ssfDrives Dim oShell ssfDrives = 17 CreateObject("Shell.Application")_ .Namespace(ssfDrives).ParseName(sDriveLetter).InvokeVerb("Eject") End Sub

    • 0

  7. I second thijs' opinion.

    Anyway, on linux machines you could try with eject -t. See man page. YMMV.

    Ciao --bronto

    • 0