Eject CD-Rom .....

[AlienStar]

hello everybody

I have this script to eject a cdrom in any windows which detect by itself and you don't have to put the name of drive

$var = DriveGetDrive( "CDROM" )
If not @error Then
For $i = 1 to $var[0]
CDTray($var[$i] , "open")
Next
EndIf

but if someone has two cdroms they both open when I start this script

now :

I wanna eject the cdrom which contain the script so I used this :

$var = DriveGetDrive( "CDROM" )
If not @error Then
For $i = 1 to $var[0]
CDTray($var[$i] , "open" & @ScriptDir)
Next
EndIf

but it didn't work

please help ...................

[Paulie]

Your script opens all the drives that are CDROMs because of the For...Next loop.

$var = DriveGetDrive( "CDROM" )
If not @error Then
For $i = 1 to $var[0]
CDTray($var[$i] , "open")
Next
EndIf

To open the drive that contains the script i would probably do this.

$drive = StringLeft(@ScriptFullPath,2) 
If DriveGetType($Drive&"\") = "CDROM" Then CDTray($Drive,"Open")

[AlienStar]

thanks so much Paulie

it works ...

>_<