Dee Press
Member | Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
Сообщение от пользователя
nomadcat
Newbie
Редактировать | Профиль | Сообщение | ICQ | Цитировать | Сообщить модератору
Dee Press Сам столкнулся с подобным на всех машинах: и дома, и на работе, и на ноуте... проблема носит массовый характер, думаю авировцы или мелкиомягкие ее скоро решат, но пока сам спасаюсь скрриптом в автозагрузке:
Option Explicit
Dim strProcessName, lngNewPID
Dim objSWbemServicesEx
Dim collSWbemObjectSet, objSWbemObjectEx
strProcessName = "explorer.exe"
Set objSWbemServicesEx = GetObject("winmgmts:{impersonationLevel=impersonate}!\\.\root\cimv2")
Set collSWbemObjectSet = objSWbemServicesEx.ExecQuery("SELECT * FROM Win32_Process WHERE Name = '" & strProcessName & "'", "WQL", 0)
If collSWbemObjectSet.Count > 0 Then
For Each objSWbemObjectEx In collSWbemObjectSet
With objSWbemObjectEx
If .Terminate(0) = 0 Then
End If
End With
Next
End If
Set collSWbemObjectSet = Nothing
Set objSWbemServicesEx = Nothing
WScript.Quit 0
Это "добро" - в текстовик с расширением vbs и в автозагрузку (я через реестр прописал: HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\CurrentVersion\Run
можно конечно было и батником обойтись, но тогда вылазит консольное окошко... не красиво, а так все скрыто от глаз. |
Всего записей: 296 | Зарегистр. 14-06-2008 | Отправлено: 00:43 25-12-2016 | Исправлено: Dee Press, 00:49 25-12-2016 |
|
