Новости
Видео
Microsoft
Windows 10
Железо
Программы
Форум

Имя пользователя:
Пароль:  
Помощь | Регистрация | Забыли пароль?  | Правила  

Компьютерный форум OSzone.net » Автоматическая установка Windows » Наборы обновлений для Windows XP/2003/Windows 7 » Система - [addon] neticon - Отображение иконки подключения

< Предыдущая 1 2 3 Следующая >
Ответить
Настройки темы
Система - [addon] neticon - Отображение иконки подключения

Аватара для mike345

Старожил


Сообщения: 429
Благодарности: 48

Профиль | Отправить PM | Цитировать

Изменения
Автор: mike345
Дата: 19-08-2008
Описание: Добавлены зеркала
[addon] neticon - Отображение иконки подключения

Аддон включает отображение иконки сетевого подключения в системном трее.
Сделан на основе скрипта vbs. Скрипт не мой, если найдется автор - напишу в описании.
Скрипт отрабатывает из RunOnceEx.
Можно запускать на живой системе.

Сам скрипт neticon.vbs:

Код: Выделить весь код
' use "." for local computer 
sComputer = "." 
 
'Constants for WMI StdRegProv 
Const HKCR = &H80000000 
Const HKCU = &H80000001 
Const HKLM = &H80000002 
 
Const NetBase = "SYSTEM\CurrentControlSet\Control\Network\" 
 
On Error Resume Next 
 
Set oReg=GetObject("winmgmts:{impersonationLevel=impersonate}!\\" & sComputer & "\root\default:StdRegProv") 
 
' Finding the right place in registry is not so easy 
' You must find the SettingID for the correct network adapter 
 
' Get adapter collection 
Set oAdapters = GetObject("winmgmts:").ExecQuery("SELECT * FROM Win32_NetworkAdapterConfiguration WHERE IPEnabled=True") 
 
' Get all subkeys under NetBase in an array 
iRC = oReg.EnumKey(HKLM, NetBase, aRegKeys) 
 
' Поиск адаптера с именем подключения "Подключение по локальной сети" 
' или с именем "Подключение по локальной сети 2" 
If (Err.Number = 0) And (iRC = 0) Then 
   On Error Goto 0 
   bAdapterFound = False 
   For Each oAdapter In oAdapters 
     sSettingID = oAdapter.SettingID 
     ' Loop through all registry keys 
     For i = 0 To Ubound(aRegKeys) 
       sKeyName = NetBase & aRegKeys(i) & "\" & sSettingID & "\Connection" 
       oReg.GetStringValue HKLM, sKeyName, "Name", sValue 
       If sValue = "Подключение по локальной сети" or sValue = "Подключение по локальной сети 2" Then 
         '' bAdapterFound = True 
         ' WScript.Echo "Updating this setting id: " & sSettingID 
         ' WScript.Echo "Registry path: " & sKeyName 
         ' Now we can get to the network icon setting in registry 
         oReg.SetDWORDValue HKLM, sKeyName, "ShowIcon", 1 
         oReg.SetDWORDValue HKLM, sKeyName, "IpCheckingEnabled", 1
         '' Exit For 
       End If 
     Next 
     If bAdapterFound Then 
       Exit For 
     End If 
   Next 
 
   ' WScript.Echo "Finished, you must log off and on to see the change" 
 
Else 
   WScript.Echo "Error in WMI registry parsing!" 
End If


Скачать addon

Зеркала:
ifolder
rapidshare
Это сообщение посчитали полезным следующие участники:

Отправлено: 05:59, 03-08-2008

 

Аватара для jameszero

Модератор


Moderator


Сообщения: 4915
Благодарности: 2577

Профиль | Сайт | Отправить PM | Цитировать

mike345
В первой строчке "RunProgram" я оставил, а во второй заменил на "AutoInstall", c соответствующим ключом запуска в файле Run, это позволит запускать файл из аддона на "живой" системе.

-------
RuntimePack официальный сайт
Политика ограниченного использования программ для всех редакций Windows
--
мои аддоны в облаке

Не было печали, апдейтов накачали.

Это сообщение посчитали полезным следующие участники:

Отправлено: 08:28, 06-08-2008 | #11



Для отключения данного рекламного блока вам необходимо зарегистрироваться или войти с учетной записью социальной сети.

Если же вы забыли свой пароль на форуме, то воспользуйтесь данной ссылкой для восстановления пароля.


Аватара для mike345

Старожил


Сообщения: 429
Благодарности: 48

Профиль | Отправить PM | Цитировать

jameszero, Спасибо, теперь работает!
Аддон перезалит.

Отправлено: 16:41, 06-08-2008 | #12


Старожил


Сообщения: 262
Благодарности: 40

Профиль | Отправить PM | Цитировать

mike345, зазеркальте аддон. Меня (возможно - не только) ну совсем туда не пущает.
Будем посмотреть что у Вас получилось

Отправлено: 09:36, 19-08-2008 | #13


Аватара для viksem

Ветеран


Сообщения: 1444
Благодарности: 480

Профиль | Отправить PM | Цитировать

Troglodit,

Цитата Troglodit:
зазеркальте аддон »
зеркала
rapidshare.com ---<>--- ifolder.ru

-------
Срочно жать надпись "Полезное сообщение"!!!

Это сообщение посчитали полезным следующие участники:

Отправлено: 09:59, 19-08-2008 | #14


Аватара для DenchikK

Старожил


Сообщения: 282
Благодарности: 40

Профиль | Отправить PM | Цитировать

Ссылочки сдохли...

Отправлено: 16:56, 06-02-2012 | #15


Аватара для Guman

Ветеран


Сообщения: 631
Благодарности: 58

Профиль | Отправить PM | Цитировать

ссылка на аддон не работает.. код вроде в шапке есть.. но как правыльно впихнуть neticon.vbs в аддон то есть как сделать аддон с этого

Отправлено: 13:40, 07-02-2012 | #16


Старожил


Сообщения: 190
Благодарности: 30

Профиль | Отправить PM | Цитировать

Guman, можно попробовать в RUN написать это:
Код: Выделить весь код
wscript neticon.vbs

Отправлено: 19:55, 07-02-2012 | #17


Аватара для momo2000

Ветеран


Сообщения: 601
Благодарности: 150

Профиль | Отправить PM | Цитировать

в чём смысл аддона, можно скрин иконки?
Это сообщение посчитали полезным следующие участники:

Отправлено: 21:11, 07-02-2012 | #18


Аватара для Guman

Ветеран


Сообщения: 631
Благодарности: 58

Профиль | Отправить PM | Цитировать

neticon.vbs как я понял кладется в самый конец аддона так ведь.. Files\ForceCopy\SVCPACK\

Отправлено: 21:45, 07-02-2012 | #19


Аватара для jameszero

Модератор


Moderator


Сообщения: 4915
Благодарности: 2577

Профиль | Сайт | Отправить PM | Цитировать

На первой, из двух возможных страниц данной темы, есть рабочая ссылка на аддон и написано, что он делает.

-------
RuntimePack официальный сайт
Политика ограниченного использования программ для всех редакций Windows
--
мои аддоны в облаке

Не было печали, апдейтов накачали.

Это сообщение посчитали полезным следующие участники:

Отправлено: 22:35, 07-02-2012 | #20

< Предыдущая 1 2 3 Следующая >


Компьютерный форум OSzone.net » Автоматическая установка Windows » Наборы обновлений для Windows XP/2003/Windows 7 » Система - [addon] neticon - Отображение иконки подключения

Участник сейчас на форуме Участник сейчас на форуме Участник вне форума Участник вне форума Автор темы Автор темы Шапка темы Сообщение прикреплено

Похожие темы
Название темы Автор Информация о форуме Ответов Последнее сообщение
Утилиты - [addon] Aml Maple (отображение текущей раскладки клавиатуры в курсоре мыши) Drinko Наборы обновлений для Windows XP/2003/Windows 7 158 22-05-2016 03:25
Исчезли иконки на ярлыках подключения к интернету Fafnir2007 Microsoft Windows Vista 6 26-07-2009 22:58
Интерфейс - Неправильное отображение иконки файла при перемещении kopylovsergey Microsoft Windows 2000/XP 3 19-08-2008 11:24
[решено] Не видны подключения по локальной сети в папке "Сетевые подключения" Skoba Microsoft Windows NT/2000/2003 12 08-10-2007 09:06
Отображение иконки пользователя в меню Пуск Guest Хочу все знать 1 20-11-2003 01:40


« Предыдущая тема | Следующая тема »


 
Переход