Dim $x,$i
$x = DriveGetDrive("CDROM") ;返回一个含有指定驱动器盘符的数组,数组中的0号元素储存驱动器的数量
If @error Then
MsgBox(0,"错误","没有找到光驱,汗!")
Exit
EndIf
For $i = 1 To $x[0] ;遍历所有光驱
If FileExists($x[$i] & "\AUTORUN.EXE") Then
Run($x[$i] & "\AUTORUN.EXE")
Exit
Else
SetError(1)
EndIf
Next
If @error Then
MsgBox(0,"错误","没有找到文件!")
EndIf