This By Request VBS Script is in response to an email request where I was asked the following: “I have a VB script to open my CD drive but I have to close it myself. Can you tell me what the command to close it is. All I can find is the eject command.”
Set objCdDrive = CreateObject("WMPlayer.OCX.7")
Set colCDROM = objCdDrive.cdromCollection
If colCDROM.Count >= 1 then
For i = 0 to colCDROM.Count - 1
colCDROM.Item(i).Eject
Next
End If
My reply was just loop it using and additional Next and I sent him back the script below.
Note: If the Drive door is already opened when you run this VBS script it will just close the door. On laptops the mechanics may not be the same as desktops and the drive door will only open since it cannot be pulled back in.
VBS Script:
No Comments