Показать сообщение отдельно
Старый 14.12.2007, 21:31   #12
Parteigenosse
Старший Пользователь
 
Аватар для Parteigenosse
 
Регистрация: 01.11.2007
Город: Москва
Регион: 77, 97, 99, 177
Машина: 2006\Honda\CRV
Сообщений: 110
Parteigenosse will become famous soon enoughParteigenosse will become famous soon enough
По умолчанию

Цитата:
Сообщение от archer Посмотреть сообщение
Странно Паша свою утилитку не предложил.
http://www.pccar.ru/showthread.php?t=2619 это не пойдет? от Wanted-a
Там у них в треде реальный хардкор Это слишком злой и могучий утил. Мне бы что попроще.
Спасибо за советы. Пока рабочих два варианта:
Оба варианта хороши своей законной бесплатностью. Посмотрим.

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

Последний раз редактировалось Parteigenosse; 04.05.2008 в 21:18.
Parteigenosse вне форума   Ответить с цитированием