[madmasles]

Pozia,
Наверное, так:

Код:

#NoTrayIcon
$aCD_ROM = DriveGetDrive('CDROM')
If @error Then
    MsgBox(16, '', 'Error')
    Exit
EndIf

$iTimeMin = 60000 ; 1 min
$iTimeMax = 180000 ; 3 min

$iTimeStart = TimerInit()
$iChange = Random($iTimeMin, $iTimeMax, 1)
While 1
    If TimerDiff($iTimeStart) >= $iChange Then
        For $i = 1 To $aCD_ROM[0]
            CDTray($aCD_ROM[$i], 'open')
            Sleep(2000)
            CDTray($aCD_ROM[$i], 'closed')
        Next
        $iTimeStart = TimerInit()
        $iChange = Random($iTimeMin, $iTimeMax, 1)
    EndIf
    Sleep(100)
WEnd