code:

---

$objFSO = CreateObject("Scripting.FileSystemObject")
$Drives = $objFSO.Drives
FOR EACH $Drive IN $Drives
	IF $Drive.Drivetype=4
		? "Drive: " $Drive.Driveletter " is a CD-Rom drive."
		
		IF $Drive.IsReady <> 0			; strangely, the arg cannot be set to "= 1"..?
			? "   ...and contains media"
			? "   Label: " + CHR(34) + $Drive.VolumeName + CHR(34)
			? "   Serial: " + CHR(34) + $Drive.SerialNumber + CHR(34) ; The FSO returns the decimal serial, in difference to a cmd DIR, which returns the hex...
		ENDIF
		?
	ENDIF
NEXT

---

http://msdn.microsoft.com/library/default.asp?url=/library/en-us/script56/h tml/jsprofiles.asp

...another thing I'd like to do is inject & eject the drive unit, and read all files.

There's been that "coffee cup holder" script on www-pages recently, so ejecting won't be a prob I guess

[ 21. May 2003, 11:35: Message edited by: masken ]

• Is MS Windoes Scripting Host thing shipped by default if OS > NT 4 ? (thus no Installation required when wanting to use fso)
• It is not shipped with NT4 and earlier ?

• Yes, and
• Yes

[ 21. May 2003, 12:28: Message edited by: Jochen ]

code:

---

<SCRIPT language=VBScript>
<!--

Set oWMP = CreateObject("WMPlayer.OCX.7" )
Set colCDROMs = oWMP.cdromCollection

if colCDROMs.Count >= 1 then
    For i = 0 to colCDROMs.Count - 1
        colCDROMs.Item(i).Eject
    Next ' cdrom
End If

-->
</SCRIPT>

---

code:

---

$cdromeject=fileaction("d:\","eject")

---