TERMINAL,
Когда- то давно нашел такой скрипт. Он у меня на Windows XP SP3 работает.
читать дальше »
Код:
#RequireAdmin
Local $Reg_Net_Devices = "HKEY_LOCAL_MACHINE\SYSTEM\ControlSet001\Control\Class\{4D36E972-E325-11CE-BFC1-08002bE10318}\"
Local $Reg_Network_Names = "HKEY_LOCAL_MACHINE\SYSTEM\ControlSet001\Control\Network\{4D36E972-E325-11CE-BFC1-08002BE10318}\"
Local $Reg_Network_Names2 = "HKEY_LOCAL_MACHINE\SYSTEM\CurrentControlSet\Control\Network\{4D36E972-E325-11CE-BFC1-08002BE10318}\"
For $n = 1 To 9999
;формат названия ветки реестра
$nn = StringFormat("%04d", Int($n))
;проверяем значение в реестре Characteristics
$Is_Ethernet = RegRead($Reg_Net_Devices & $nn, "Characteristics")
If $Is_Ethernet = 132 Then
;выясняем имя ветки реестра
$reg_adapter_ID = RegRead($Reg_Net_Devices & $nn, "NetCfgInstanceId")
;Имя подключения
$def_name = RegRead($Reg_Network_Names & $reg_adapter_ID & "\Connection", "Name")
If $def_name <> "" Then
$iMsgBoxAnswer1 = MsgBox(36, "Сетевые подключения.", "Найдено подключение по имени:" & @CRLF & "<" & $def_name & ">" & @CRLF & "Изменить имя?")
Select
Case $iMsgBoxAnswer1 = 6 ;Yes
$nameNew = InputBox("Сетевые подключения.", "Введите новое имя:", "")
If Not @error And $nameNew Then
RegWrite($Reg_Network_Names & $reg_adapter_ID & "\Connection", "Name", "REG_SZ", $nameNew)
RegWrite($Reg_Network_Names2 & $reg_adapter_ID & "\Connection", "Name", "REG_SZ", $nameNew)
EndIf
Case $iMsgBoxAnswer1 = 7 ;No
ContinueLoop
EndSelect
$iMsgBoxAnswer2 = MsgBox(36, "Сетевые подключения.", "При подключении вывести значок в области уведомлений?")
Select
Case $iMsgBoxAnswer2 = 6 ;Yes
$pod = 1
Case $iMsgBoxAnswer2 = 7 ;No
$pod = 0
EndSelect
RegWrite($Reg_Network_Names & $reg_adapter_ID & "\Connection", "ShowIcon", "REG_DWORD", $pod)
RegWrite($Reg_Network_Names2 & $reg_adapter_ID & "\Connection", "ShowIcon", "REG_DWORD", $pod)
$iMsgBoxAnswer3 = MsgBox(36, "Сетевые подключения.", "Уведомлять при ограниченном или отсутствующем подключении?")
Select
Case $iMsgBoxAnswer3 = 6 ;Yes
$uv = 1
Case $iMsgBoxAnswer3 = 7 ;No
$uv = 0
EndSelect
RegWrite($Reg_Network_Names & $reg_adapter_ID & "\Connection", "IpCheckingEnabled", "REG_DWORD", $uv)
RegWrite($Reg_Network_Names2 & $reg_adapter_ID & "\Connection", "IpCheckingEnabled", "REG_DWORD", $uv)
EndIf
EndIf
Next
|
