Компьютерный форум OSzone.net  

Компьютерный форум OSzone.net (http://forum.oszone.net/index.php)
-   Наборы обновлений для Windows XP/2003/Windows 7 (http://forum.oszone.net/forumdisplay.php?f=62)
-   -   [addon] neticon - Отображение иконки подключения (http://forum.oszone.net/showthread.php?t=113020)

mike345 03-08-2008 05:59 866769
[addon] neticon - Отображение иконки подключения
 
[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

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

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

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

YikxX 03-08-2008 17:30 867033
Цитата:
Цитата mike345
А запуск из RunOnceEx когда происходит, при первом входе или раньше? Затрагивает профиль дефолтного пользователя? »
При первом входе, до запуска Explorer. Дефолтный профиль не затрагивается. Но я что-то не вижу в скрипте никаких ссылок на HKCU ;) Зачем дефолтный профиль?

mike345 03-08-2008 17:48 867044
Хм, и правда, включается для всех, вновь созданных юзеров...
Я просто думал о том, что если мышкой включать иконку, то у каждого юзера это приходится делать отдельно, а здесь HKLM видимо рулит :)
Сейчас попробую RunOnceEx замутить...

mike345 03-08-2008 22:01 867158
Разобрался и выложил аддон. Ссылка в шапке.

CoaCH 05-08-2008 19:34 868772
mike345, Если честно, то так и не понял, для чего это? Можно поподробней...?

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

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

jameszero 05-08-2008 21:35 868888
Вложений: 1
Немного упростил аддон.

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

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

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

mike345 06-08-2008 16:41 869557
jameszero, Спасибо, теперь работает!
Аддон перезалит.

Troglodit 19-08-2008 09:36 878395
mike345, зазеркальте аддон. Меня (возможно - не только) ну совсем туда не пущает.
Будем посмотреть что у Вас получилось :)

viksem 19-08-2008 09:59 878425
Troglodit,

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

DenchikK 06-02-2012 16:56 1852950
Ссылочки сдохли...

Guman 07-02-2012 13:40 1853538
ссылка на аддон не работает.. код вроде в шапке есть.. но как правыльно впихнуть neticon.vbs в аддон то есть как сделать аддон с этого

murder 07-02-2012 19:55 1853772
Guman, можно попробовать в RUN написать это:
Код:
wscript neticon.vbs

momo2000 07-02-2012 21:11 1853821
в чём смысл аддона, можно скрин иконки?

Guman 07-02-2012 21:45 1853839
neticon.vbs как я понял кладется в самый конец аддона так ведь.. Files\ForceCopy\SVCPACK\

jameszero 07-02-2012 22:35 1853870
На первой, из двух возможных страниц данной темы, есть рабочая ссылка на аддон и написано, что он делает.

Guman 07-02-2012 23:34 1853897
аш стыдно .. две страницы .. просто в голову че то не влезло что в атаче может быть приклепленно

golomb 07-02-2012 23:50 1853902
Так а что делает данный аддон:
то что самостоятельно можно указать в настройках сетевой карты - поставив галочку в - при подключении вывести значек в область уведомлений ? или что то другое ?

DenchikK 08-02-2012 02:09 1853941
Да то что на первой страничке приаттачен аддон - это было видно сразу.
Тотчас поставил, попробовал, работает.
Но после было 2 поста - о том, что в соответствии с оптимизациией и чем то ещё - аддон был перезалит. 2 раза.
Потому то я и спрашивал - ведь в эти 2 раза какие то внесены были ж изменения. Может нужные очень. А ссылки не пашут...

Mite 30-08-2012 21:58 1980152
Вложений: 1
DenchikK, прикрепил аддон из шапки (относящийся к посту #12 от 06-08-2008):

Крайне_Аккуратный@vk 08-08-2014 16:42 2386662
Добрый день! Хочу опробовать аддон, ссылки не рабочие, перезалейте пожалуйста!

Habetdin 08-08-2014 17:38 2386694
Крайне_Аккуратный@vk, пост #8 - описание аддона, #9 - один вариант аддона (это были сообщения с первой страницы темы), второй вариант аддона - прямо над вашим постом (последняя страница темы). Неужели ни то, ни другое при отправке сообщения не было прочитано? :read:


Время: 17:21.

Время: 17:21.
© OSzone.net 2001-