Jump to content

What's the command or exe file to eject cd's


aspenjim

Recommended Posts

The reason I ask is that I put a laptop DVD-RW in a mini-PC and had to remove the faceplate for clearance. Rather than damage the eject button, I'd like to put a shortcut on the desktop to the eject command. I've searched the windows directory and looked at all of the exe files and none of them resemble anything that would eject.

Link to comment
Share on other sites


Here is a cmd script that willl open and close the cd

Save As OpenClose_CD.cmd

echo off && Cls && Mode 55,5 && Color 4f && Title Open Cd

Set VBS=%systemdrive%\OpenClose.vbs

Set VBS1=%systemdrive%\RemoveVBS.vbs

echo Preparing To Run The Script!

>> %vbs% Echo Dim ts

>> %vbs% Echo Dim strDriveLetter

>> %vbs% Echo Dim intDriveLetter

>> %vbs% Echo Dim fs 'As Scripting.FileSystemObject

>> %vbs% Echo Const CDROM = 4

>> %vbs% Echo On Error Resume Next

>> %vbs% Echo Set fs = CreateObject("Scripting.FileSystemObject")

>> %vbs% Echo strDriveLetter = ""

>> %vbs% Echo For intDriveLetter = Asc("D") To Asc("Z")

>> %vbs% Echo Err.Clear

>> %vbs% Echo If fs.GetDrive(Chr(intDriveLetter)).DriveType = CDROM Then

>> %vbs% Echo If Err.Number = 0 Then

>> %vbs% Echo strDriveLetter = Chr(intDriveLetter)

>> %vbs% Echo Exit For

>> %vbs% Echo End If

>> %vbs% Echo End If

>> %vbs% Echo Next

>> %vbs% Echo MSGBOX "YOUR CD IS: " ^& strDriveLetter,0 + 48,"CDROM=> " ^& strDriveLetter

>> %vbs% Echo Set oWMP = CreateObject("WMPlayer.OCX.7" )

>> %vbs% Echo Set colCDROMs = oWMP.cdromCollection

>> %vbs% Echo colCDROMs.Item(d).Eject

>> %vbs% Echo A1= msgbox ("Press key To Close Cd" ^& vbcrlf ^& " The Cd Will Close", 0 + 64, "Open Close Cd Tray")

>> %vbs% Echo colCDROMs.Item(d).Eject

>> %vbs% Echo set owmp = nothing

>> %vbs% Echo set colCDROMs = nothing

>> %vbs% Echo wscript.quit

start %vbs%

ping -n 12 127.0.0.1>nul

TASKKILL /F /T /IM Wscript.exe

TASKKILL /F /T /IM Wmiprvse.exe

>> %vbs1% Echo On Error Resume Next

>> %vbs1% Echo Dim ACT : Set ACT = CreateObject("WScript.Shell")

>> %vbs1% Echo Dim Fso : Set Fso = CreateObject("Scripting.FileSystemObject")

>> %vbs1% Echo Loc = ACT.ExpandEnvironmentStrings("%SystemDrive%")

>> %vbs1% Echo Fso.Deletefile("%VBS%")

>> %vbs1% Echo Fso.Deletefile(Loc ^& "\CD-Open-Close.cmd")

>> %vbs1% Echo Fso.Deletefile("%VBS1%")

>> %vbs1% Echo Set ACT = Nothing

>> %vbs1% Echo Set Fso = Nothing

start /w %vbs1%

exit

Link to comment
Share on other sites

Create an account or sign in to comment

You need to be a member in order to leave a comment

Create an account

Sign up for a new account in our community. It's easy!

Register a new account

Sign in

Already have an account? Sign in here.

Sign In Now
  • Recently Browsing   0 members

    • No registered users viewing this page.
×
×
  • Create New...