如何使光驱弹出？

通过VC编程可以使光驱弹出，但这里我们采取的是脚本的方法，也算一条路吧：

Const CDROM = 4
For Each d in CreateObject("Scripting.FileSystemObject").Drives

If d.DriveType = CDROM Then Eject d.DriveLetter & ":\"

Next

Sub Eject(CDROM)      '弹出光驱

Dim ssfDrives
ssfDrives = 17
CreateObject("Shell.Application").Namespace(ssfDrives).ParseName(CDROM).InvokeVerb("E&ject")

End Sub