Để lấy tất cả các ổ đĩa CD ra ngòai bạn mở Notepad và chép đoạn mã sau vào :

Const CDROM = 4

For Each d in CreateObject("Scripting.FileSystemObject").Drives

If d.DriveType = CDROM Then

Eject d.DriveLetter & ":\"

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 lại với tên là cdrom.vbs

Trần Nam đã viết:

Câu lệnh này sao đơn giản quá vậy

thì cứ thử đi...hàng kím mà..dùng cho win xp sp2

Không .. so vs tất cả chương trình mà notepat chạy thì cái câu lệnh này rất đơn giản nhưng dể làm hay không thì không bik để test thử coi

Không dám.. đây là lệnh liên quan đến hệ thống system...
Khuyến cáo: không nên dùng tại nhà :/13: