Автор | Сообщение |
|
| |
Пост N: 359
Зарегистрирован: 03.12.08
|
|
Отправлено: 20.06.17 16:06. Заголовок: Установлен-ли АнтиВирус ?
Как узнать , установлен-ли антивирус ? AVAST и ESET интересуют больше всего .
|
|
|
Ответов - 7
[только новые]
|
|
|
| |
Пост N: 6460
Зарегистрирован: 17.05.05
|
|
Отправлено: 20.06.17 16:31. Заголовок: Можно попробовать че..
Можно попробовать через WMI Пошукай в гуглу что то типа "Select * from AntiVirusProduct"
|
|
|
|
| Администратор
|
Пост N: 3567
Зарегистрирован: 23.05.05
|
|
Отправлено: 20.06.17 16:33. Заголовок: Наверное, проверять,..
Наверное, проверять, есть ли соответствующая ветка реестра. Для drweb это HKLM\SOFTWARE\Doctor Web Avast и ESET у меня под рукой нет, но несложно посмотреть на машине, где установлен интересующий продукт.
|
|
|
|
| |
Пост N: 1106
Зарегистрирован: 20.02.11
|
|
Отправлено: 20.06.17 23:14. Заголовок: Dima пишет: что то ..
Dima пишет: цитата: | что то типа "Select * from AntiVirusProduct" |
| Или через тот же вимиай среди работающих процессов поискать имена содержащие AVAST или ESET. Плюс вимиай в том, что он точно работает, а при наличии нужных прав доступа можно порыться в любом компе в сети.
|
|
|
|
| |
Пост N: 360
Зарегистрирован: 03.12.08
|
|
Отправлено: 21.06.17 12:41. Заголовок: сам с WMI ни разу не..
сам с WMI ни разу не сталкивался .... смотрим в примерах .....
|
|
|
|
| |
Пост N: 6462
Зарегистрирован: 17.05.05
|
|
Отправлено: 21.06.17 12:53. Заголовок: Softlog86 #include..
Softlog86 #include 'common.ch' FUNC Main( ) Local oWmi, oItem REQUEST HB_LANG_RU866 HB_LANGSELECT("RU866") REQUEST HB_CODEPAGE_RU866 hb_cdpSelect( "RU866" ) oWmi := WmiService( "127.0.0.1" ) IF Valtype( oWmi ) == "O" ? ? "SELECT * FROM Win32_ComputerSystem" FOR EACH oItem IN oWmi:ExecQuery( "SELECT * FROM Win32_ComputerSystem" ) ? ' ' + charrem( "'", ALLTrim( oItem:Name ) ) ? ' ' + oItem:UserName ? ' ' + Ntoc( CTON( oItem:TotalPhysicalMemory ) /1024 ^ 2 ) NEXT ? ? "SELECT * FROM Win32_ComputerSystemProduct" FOR EACH oItem IN oWmi:ExecQuery( "SELECT * FROM Win32_ComputerSystemProduct" ) ? ' ' + CharRem( "'", oItem:UUID ) NEXT ? ? "SELECT BuildVersion FROM Win32_WMISetting" FOR EACH oItem IN oWmi:ExecQuery( "SELECT BuildVersion FROM Win32_WMISetting" ) ? ' ' + oItem:BuildVersion NEXT ? ?"SELECT * FROM Win32_BaseBoard" FOR EACH oItem IN oWmi:ExecQuery( "SELECT * FROM Win32_BaseBoard" ) ? ' ' + CharRem( "'", oItem:Manufacturer ) ? ' ' + CharRem( "'", oItem:Product ) ? ' ' + CharRem( "'", oItem:Version ) NEXT ? ?"SELECT * FROM Win32_BIOS" FOR EACH oItem IN oWmi:ExecQuery( "SELECT * FROM Win32_Bios" ) ? ' ' + CharRem( "'", oItem:Name ) ? ' ' + CharRem( "'", oItem:SMBIOSBIOSVersion ) ? ' ' + CharRem( "'", oItem:SerialNumber ) NEXT ? ?"Select * from Win32_NetworkAdapter where NetEnabled = true" FOR EACH oItem IN oWmi:ExecQuery( "SELECT * FROM Win32_NetworkAdapter") ? oItem:MACAddress ? oItem:Name ? oItem:NetConnectionID NEXT END RETURN NIL STATIC FUNCTION WMIService( cComp ) Local oWmi, oItem LOCAL oErrSave := ERRORBLOCK( { | objErr | BREAK( objErr ) } ) LOCAL oErr Local oLocator LOCAL cName := '' LOCAl lLocahost := FALSE LOCAL cStr := '' oWmi := NIL oLocator := NIL IF VALTYPE( oWmi ) == "O" oWmi:Release() oWmi := NIL END oLocator := CreateObject( "wbemScripting.SwbemLocator" ) * ? Valtype( oLocator) //oWmi := oLocator:ConnectServer( cComp,,,,,, 128 ) * oWMI := oLocator:ConnectServer('127.0.0.1','root\CIMV2',,) oWMI := oLocator:ConnectServer(cComp,'root\CIMV2',,) // oWMI := oLocator:ConnectServer('170.20.175.55',,,,,,128) RETURN oWmi
|
|
|
|
| |
Пост N: 6463
Зарегистрирован: 17.05.05
|
|
Отправлено: 21.06.17 13:55. Заголовок: еще примерчик Proc ..
еще примерчик Proc main KillProceso("idman.exe") return FUNCTION KillProceso ( cProceso ) #ifndef __XHARBOUR__ #xcommand TRY => BEGIN SEQUENCE WITH {|e| Break( e )} #xcommand CATCH [<!oErr!>] => RECOVER [USING <oErr>] <-oErr-> #endif Local oWMIob, oWMIserver, aProcess, objProcess try oWMIob := CreateObject( "wbemScripting.SwbemLocator" ) catch RETURN nil END oWMIserver := oWMIob:ConnectServer() if Valtype(oWMIserver) == 'O' .and. Valtype(oWMIob) == 'O' aProcess :=oWMIserver:ExecQuery( "Select * from Win32_Process" ) For Each objProcess in aProcess IF UPPER(objProcess:Name) = UPPER(cProceso) objProcess:Terminate() ENDIF ? objProcess:Name next endif RETURN nil
|
|
|
|
| |
Пост N: 361
Зарегистрирован: 03.12.08
|
|
Отправлено: 22.06.17 10:25. Заголовок: Большая просьба , ес..
Большая просьба , если у вас установлен антивирус - сбрасывайте сюда названия служб для них ( как называются в диспетчере задач вкладка [Службы] для ESET : ESET Service
|
|
|
|