Mở các ổ đĩa CROM bằng một cú nhấp chuột

Máy tính của bạn có rất nhiều ổ CDROM, nếu bạn nhấn nút Eject để lấy từng cái ra thì thật mất thời gian, bạn có thể sử dụng cách sau để mở tất cả các ổ đĩa CDROM bằng một cú nhấp chuột.
Để mở tất cã các ổ đĩa CDROM bạn làm như sau:
Mở Notepad lên và chép đọan mã sau vào:
Const CDROM = 4
For Each d in CreateObject("Scripting.FileSystemObject").Drives
If d.DriveType = CDROM Then
Eject d.DriveLetter & ":"
Welcome To VNECHIP vnechip.com - Where People Go To Know
VNECHIP – Advanced Technologies , 24/7 Support , Free Fastest Online
End If
Next
Sub Eject(CDROM)
Dim ssfDrives
ssfDrives = 17
CreateObject("Shell.Application")_
.Namespace(ssfDrives).ParseName(CDROM).InvokeVerb( "E&ject")
End Sub
Lưu tập tin này thành cdeject.vbs