Open disk tray script.

A:I · 18 October 2006 at 9:30PM

i have seen a website with a 'free cup holder' where the disk tray opens. I was wondering if anyone knows the script that opens it so i can do something simular. Thanks,
A:I:beer: :beer:

Chippy_Minton · 18 October 2006 at 10:33PM

Copy code below into Notepad and save as a .vbs file.

'OpenCDdrive.vbs

option explicit

dim oShell, fso, drive, dl

const unknowntype = 0
const removable = 1
const fixed = 2
const remote = 3
const cdrom = 4
const ramdisk = 5

const ssfDrives = 17

set fso = createobject("Scripting.FileSystemObject")
Set oShell = CreateObject("Shell.Application")

for each drive in fso.Drives
  if drive.DriveType = cdrom then
	dl = drive.DriveLetter + ":"
	oShell.NameSpace(ssfDrives).ParseName(dl).InvokeVerb "E&ject"
  end if
next

A:I · 20 October 2006 at 8:26PM

it says there is a problem with line 22 or something to do with the 'name space' thingy?
It says objects required?

Chippy_Minton · 20 October 2006 at 9:12PM

Ahh, sugar! How that bug creep in? :rolleyes:

change line:

dl = drive.DriveLetter + ":"

to:

dl = drive.DriveLetter + ":\"

A:I · 20 October 2006 at 9:16PM

i'll try it..

A:I · 20 October 2006 at 9:19PM

can you post the whole code, completed with the 'name space' etcc filled in. i don't get it lol
Thankyu

Chippy_Minton · 20 October 2006 at 9:22PM

Version 1.1 beta:

'OpenCDdrive.vbs

Option Explicit

Dim oShell, fso, drive, dl

const unknowntype = 0
const removable = 1
const fixed = 2
const remote = 3
const cdrom = 4
const ramdisk = 5

const ssfDRIVES = &H11

set fso = createobject("Scripting.FileSystemObject")
Set oShell = CreateObject("Shell.Application")

for each drive in fso.Drives
  if drive.DriveType = cdrom then
	
	'Open CD tray
	dl = drive.DriveLetter + ":\"
	oShell.NameSpace(ssfDRIVES).ParseName(dl).InvokeVerb "E&ject"

  end if
next

A:I · 20 October 2006 at 9:24PM

oooooo! i love you man!

A:I · 20 October 2006 at 9:33PM

by the way, how would i embed this into a web age so it runs the script online on that page?

A:I · 20 October 2006 at 9:54PM

hello?????

Chippy_Minton · 20 October 2006 at 10:13PM

It won't work as a HTML page on a web site because the line:

oShell.NameSpace(ssfDRIVES).ParseName(dl).InvokeVerb "E&ject"

accesses the local machine and security restrictions in browsers prevent this type of code from running.

The best you can do is save it as .hta file on your computer and open that in your browser. A .hta file is the same as a .htm file except it bypasses the browser's security restrictions when run on the local machine.

Save the following as OpenCDdrive.hta:

<html>
<head>
<script for="OpenCDdrive" language="VBScript">
<!--
Sub OpenCDdrive_OnClick

Dim oShell, fso, drive, dl

const cdrom = 4
const ssfDRIVES = &H11

set fso = CreateObject("Scripting.FileSystemObject")
Set oShell = CreateObject("Shell.Application")

for each drive in fso.Drives
  if drive.DriveType = cdrom then
	
	'Open CD tray
	dl = drive.DriveLetter + ":\"
	oShell.NameSpace(ssfDRIVES).ParseName(dl).InvokeVerb "E&ject"

  end if
next

End Sub
-->
</script>
</head>
<body>
<p>Click the button to open the CD tray(s)</p>
<input type="button" value="Open" name="OpenCDdrive" event="onClick">
</body>
</html>

Open disk tray script.

Comments

Confirm your email address to Create Threads and Reply

🚀 Getting Started

Categories

Is this how you want to be seen?

Get our FREE Weekly email full of deals & guides - and it’s spam-free