How to open the CD drive on an Acer Aspire 3 laptop?

'******************************************************
'* Open CD/DVD drives *
'* DOCmémo - www.docmemo.com *
'******************************************************
'* Customization: *
'* To limit the script's action to a single drive, *
'* modify the statement *
'* For intDriveLetter = Asc("A") To Asc("Z") *
'* For example, to limit to drive E: *
'* For intDriveLetter = Asc("E") To Asc("E") *
'******************************************************
Dim ts 
Dim strDriveLetter 
Dim intDriveLetter 
Dim fs 'As Scripting.FileSystemObject 
Const CDROM = 4 
On Error Resume Next 
Set fs = CreateObject("Scripting.FileSystemObject") 
' Detection of CD drives 
strDriveLetter = "" 
For intDriveLetter = Asc("A") To Asc("Z") 'Limit to desired drives
 Err.Clear 
 If fs.GetDrive(Chr(intDriveLetter)).DriveType = CDROM Then 
 If Err.Number = 0 Then 
 strDriveLetter = Chr(intDriveLetter) 
 Exit For 
 End If 
 End If 
Next 
 
' Open all drives 
Set owmp = CreateObject("WMPlayer.OCX.7") 
Set colCDROMs = owmp.cdromCollection 
For d = 0 To colCDROMs.Count - 1 
 colCDROMs.Item(d).Eject 
Next 
 
' Close all drives that were just opened 
A1 = MsgBox("Click OK to close the drives " & strDriveLetter, 0 + 64, "Info") 
For d = 0 to colCDROMs.Count - 1 
 colCDROMs.Item(d).Eject 
Next 
 
Set owmp = Nothing 
Set colCDROMs = Nothing 
wscript.quit