Выкладываю немного адаптированый под 3-ю версию радмина скрипт от
Amel27(из-за кривых рук не смог нормально заставить работать
Au3toPost 
, поэтому выкладываю нераскрашеный код):
Цитата КОД:
$objWMI = ObjGet("winmgmts:{(Security)}\\.\root\cimv2")
; Создаем фильтр событий, фиксируемых скриптом
$colEvents = $objWMI.ExecNotificationQuery("SELECT * FROM __InstanceCreationEvent WITHIN 5 WHERE " & _
"TargetInstance ISA 'Win32_NTLogEvent' " & _ ; источник событий - журнал событий
"AND TargetInstance.Logfile='Application' " & _ ; только журнал приложений
"AND TargetInstance.SourceName='RServer3'") ; только Remote Administrator
While 1
$objEvent = $colEvents.NextEvent ; Ожидание события
$sText = ""
For $s in $objEvent.TargetInstance.InsertionStrings
$sText &= $s ; Текст события
Next
Switch $objEvent.TargetInstance.EventIdentifier
Case 1001 ; Код обработки события отключения
Consolewrite( "Text: " & $sText & @CR )
BlockInput( 1 )
Case 2000 ; Код обработки события подключения
Consolewrite( "Text: " & $sText & @CR )
BlockInput(0)
EndSwitch
Wend
|
Но у этого скрипта есть недостаток, для меня не сильно принципиальный но все же недостаток: Не работает клавиатура, ни удаленная, ни локальная, хотя мышь (локальная) работает нормально.
Так же на удаленной клавиатуре можно разблокировать клавиатуру нажатием CTRL-ALT-DEL . Да, я знаю, что это опция Windows API. Но все же я видел программу(тоже связаную с удаленным администратированием), которая блокировала клавиатуру полностью и CTRL-ALT-DEL тоже не срабатывала.
