Alan's Blog

"Yeah. I wrote a script that will do that."

Menu
  • About My Blog
Menu

Open the CDROM tray

Posted on October 19, 2009March 9, 2015 by Alan

Neither of these  subroutines are mine.  I use this script typically when I am in an unfamiliar server room, or when I am remotely working on a server with local assistance.  I open the CD/DVD tray to make sure that I am on the right hardware. 

There is a funny story about me powering off the wrong server….

‘==========================================================================
‘ NAME: OpenTray.vbs
‘ COMMENT:
‘
‘==========================================================================

On error resume next

‘WMPlayerOpen
fso_open

Sub WMPlayerOpen()
 ‘from http://www.openopen.org/old/ie/open-cd-ie.html
 Set oWMP = CreateObject(“WMPlayer.OCX.7”)
 Set colCDROMs = oWMP.cdromCollection
 
 if colCDROMs.Count >= 1 then
         For i = 0 to colCDROMs.Count – 1
                 colCDROMs.Item(i).Eject ‘ cdrom
         Next   
 End If
End Sub

Sub FSO_Open()
 ‘Windows-Script windowsscript@groups.msn.com
 Const CDROM = 4
 For Each d in CreateObject(“Scripting.FileSystemObject”).Drives
   If d.DriveType = CDROM Then
     Eject d.DriveLetter & “:\”
   End If
 Next
End Sub

Sub Eject(CDROM)
 ‘part of fso_open
 Dim ssfDrives
 ssfDrives = 17
 CreateObject(“Shell.Application”)_
   .Namespace(ssfDrives).ParseName(CDROM).InvokeVerb(“E&ject”)
End Sub

Leave a Reply

You must be logged in to post a comment.

Search

Please Note

All the scripts are saved as .txt files. Newer files have a “View Script” button which will let you save or open a script in notepad. For earlier posts, the easiest way to download with IE is to right click on the link and use “Save Target As”. Rename file from Name_ext.txt to Name.ext.

To see a full post after searching, please click on the title.

PowerShell Scripts were written with version 3 or later.

https connections are supported.

All new users accounts must be approved, as are comments. Please be patient.  If you find a post error or a script which doesn’t work as expected, I appreciate being notified.  My email is my first name at the domain name, and you are welcome to contact me that way.

Tags

1E ACLS Active Directory ActiveDirectory ADSI Advanced Functions Audit Change Administrator Password COMObject Computer Groups DateTime Desktop DNS Excel FileScriptingObject Forms General GPO GPS Group Policy Hacks ISE Lockout logons NAV740 Nessus OU OU permissions Outlook Pick Folder Power PowerShell Powershell Scriptlets RDP SCCM schedule reboot Scripting Security Shell.Application user information VBA Windows Update WMI WordPress WPF

Categories

akaplan.com

  • Back to Home Page

Archives

Scripting Sites

  • A Big Pile of Small Things
  • Adam, the Automator
  • Art of the DBA
  • Ashley McGlone
  • Boe Prox
  • Carlo Mancini
  • DexterPOSH
  • Doug Finke
  • Jaap Brasser's Blog
  • JeffOps The Scripting Dutchman
  • Jonathan Medd's Blog
  • Keith Hill's Blog
  • LazyWinAdmin
  • Nana Lakshmanan
  • PowerShell Magazine
  • PowerShell Team Blog
  • PowerShell.org
  • PwrShell.net
  • Richard Siddaway's Blog
  • Ryan Yates' Blog
  • Skatterbrainz
  • The Lonely Administrator

SQL Site

  • Art of the DBA

Meta

  • Register
  • Log in
  • Entries feed
  • Comments feed
  • WordPress.org
©2025 Alan's Blog | Theme by SuperbThemes

Terms and Conditions - Privacy Policy