Цитата:
Сообщение от archer
|
Там у них в треде реальный хардкор

Это слишком злой и могучий утил.

Мне бы что попроще.
Спасибо за советы. Пока рабочих два варианта:
Оба варианта хороши своей законной бесплатностью. Посмотрим.
'================================================= =========================
'
' VBScript Source File -- Created with SAPIEN Technologies PrimalScript 4.0
'
' NAME: Waiting for USB
'
' AUTHOR: MaZaY , Saving Bank of Russia (C)
' DATE : 24.08.2006
'
' COMMENT: Монитоpинг подключения USB FLASH DRIVE.
'
'================================================= =========================
strComputer="."
Set objWMIService=GetObject("winmgmts:\\"& strComputer & "\root\CIMV2")
Set objEvents=objWMIService.ExecNotificationQuery("SEL ECT * FROM
__InstanceCreationEvent WITHIN 1 WHERE (TargetInstance ISA 'Win32_USBHub') AND
(TargetInstance.Caption='Запоминающее yстpойство для USB')")
WScript.Echo "Waiting for events..."
Do While(True)
Set objReceivedEvent=objEvents.NextEvent
WScript.Echo "ooops!"
Loop
вместо ooops можно вставить все что yгодно - посылка сообщения, запуск программы или команды шелла.