Premereinvio Soluzioni Informatiche

Code Pre 2.0

[ Codice Remote Cd Open ]

$List = ""
$var = DriveGetDrive( "all" )
If NOT @error Then
	;MsgBox(4096,"", "Found " & $var[0] & " drives")
	For $i = 1 to $var[0]
		$varCD = DriveGetType( $var[$i] )
		if $varCD = "CDROM" then CDTray($var[$i], "open")
		$List = $List & @CRLF & $i & " | " & $var[$i] & " | " & $varCD

	Next
	MsgBox(4096,"Drive Espelli ", " by Premereinvio | www.premereinvio.eu" & @CRLF ,10) ;& $List
EndIf