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

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

Ответить
Настройки темы
Система - [addon] neticon - Отображение иконки подключения

Аватара для mike345

Старожил


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

Профиль | Отправить 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

 

Аватара для Grunger86

Ветеран


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

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


mike345, а каким образом вы его запускаете?
я его запускаю из RunOnceEx вот так:
CSCRIPT %CDROM%\$OEM$\net.vbs
пока не проверял, работает ли. на живой системе это не работает.

-------
Поможем друг другу стать лучше! Отметим правильные ответы и полезные сообщения!

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

Отправлено: 13:46, 03-08-2008 | #2



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

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


Аватара для mike345

Старожил


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

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


Grunger86, при установке запускал я его, упаковав в файл neticon.exe (7z sfx) через SVCPACK. И он запускается, но не отрабатывает, а возвращает ошибку Если взять и попробывать также запустить vbs, то тоже ошибка...

На живой системе у меня работает и из exe, и из vbs, попробуйте explorer перегрузить после запуска...
А запуск из RunOnceEx когда происходит, при первом входе или раньше? Затрагивает профиль дефолтного пользователя?
Надо потестить будет...
На всякий случай exe: http://sub345.nm.ru/neticon.7z

Отправлено: 16:17, 03-08-2008 | #3


Аватара для YikxX

Ветеран


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

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


Цитата mike345:
А запуск из RunOnceEx когда происходит, при первом входе или раньше? Затрагивает профиль дефолтного пользователя? »
При первом входе, до запуска Explorer. Дефолтный профиль не затрагивается. Но я что-то не вижу в скрипте никаких ссылок на HKCU Зачем дефолтный профиль?
Это сообщение посчитали полезным следующие участники:

Отправлено: 17:30, 03-08-2008 | #4


Аватара для mike345

Старожил


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

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


Хм, и правда, включается для всех, вновь созданных юзеров...
Я просто думал о том, что если мышкой включать иконку, то у каждого юзера это приходится делать отдельно, а здесь HKLM видимо рулит
Сейчас попробую RunOnceEx замутить...

Отправлено: 17:48, 03-08-2008 | #5


Аватара для mike345

Старожил


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

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


Разобрался и выложил аддон. Ссылка в шапке.

Отправлено: 22:01, 03-08-2008 | #6


Пользователь


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

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


mike345, Если честно, то так и не понял, для чего это? Можно поподробней...?

Отправлено: 19:34, 05-08-2008 | #7


Аватара для mike345

Старожил


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

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


Да все очень просто: сразу после установки винды в трее уже будет отображаться иконка сетевого подключения.
По умолчанию ее там нет. Твиками реестра это не решается, тк подключения получают отличающиеся ключи реестра.
Но если ориентироваться на имя подключения, как в этом скрипте, то результат получить возможно.

По сути, это дополнение к функционалу mycustom, решаюшее задачу, с которой там проблема...
Это сообщение посчитали полезным следующие участники:

Отправлено: 19:48, 05-08-2008 | #8


Аватара для jameszero

Модератор


Moderator


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

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


Вложения
Тип файла: 7z neticon_.7z
(43.5 Kb, 97 просмотров)

Немного упростил аддон.

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

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

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

Отправлено: 21:35, 05-08-2008 | #9


Аватара для mike345

Старожил


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

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


jameszero, Спасибо за оптимизацию.
Только в вашем варианте надо закомментировать или удалить строку:
RunProgram="hidcon:\"wscript.exe\" \"%%T\\neticon.vbs\""
иначе при установке ошибку выдает.

С учетом всех дополнений аддон в шапке перезалит.

Отправлено: 00:40, 06-08-2008 | #10



Компьютерный форум 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




 
Переход