Цитата:
	
	
		
			
				
					Сообщение от  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годно - посылка сообщения, запуск программы или команды шелла.