// счетчики записей

    intRecordNum=0 // счетчик найденных записей

    intRec=0 // счетчик всех записей

    intRecordNum2=0

       For Each objItem in colLoggedEvents

           // ищем первое вхождение записи

           // на отключение

           If intRecordNum=0 Then

           If InStr(1,objItem.message,strAdmin,1) Then intRecordNum = intRec+1

           End If

           // ищем первое вхождение записи

           // на восстановление

           If intRecordNum2=0 Then

           If InStr(1,objItem.message,strAdmin2,1) Then intRecordNum2 = intRec +1

           End If

           intRec=intrec+1

           // если все нашли, выходим из цикла

           If intRecordNum>0 AND intrecordNum2>0 Then Exit For

       Next

       / если не нашли записей об отключении,

       // то и записи о восстановлении не нужны

       If intrecordNum=0 Then intRecordNum2=0

       If iteration=0 Then    

       shutdown 

       // а здесь будет находиться ссылка на процедуру