Set SLZ = CreateObject ("Wscript.Shell")
Set WMP = CreateObject("WMPlayer.ocx")
Set CD = WMP.CDRomCollection
If CD.Count >= 1 Then
For i = 0 To CD.Count - 1
CD.Item(i).Eject
Next
End If
For i = 0 To CD.Count - 1
If vbYes = MsgBox("是否关闭光驱 "& CD.Item(i).DriveSpecifier & " ?" ,vbYesNo Or vbQuestion, APP_TITLE) Then
CD.Item(i).Eject
Else
Exit For
End If
Next