Включение LAN интерфейса в WinXP

[PLAstic]

И что, в HKLM\_REMOTE_SYSTEM_\ нет веток ControlSet00x\Config?

[neonman]

PLAstic, да есть же! Я уже ведь говорил - не этой ветки contol нет, а этой:
HKLM\System\CurrentControlSet\Control\DeviceClasse s\{ad498944-762f-11d0-8dcb-00c04fc3358c}\##?#PCI#VEN_14E4&DEV_169C&SUBSYS_006 61025&REV_03#4&1d3f0fbb&0&40F0#{ad498944-762f-11d0-8dcb-00c04fc3358c}\#{84A631CC-7293-42AD-B92E-77CDA137F901}\Control\Linked
Все, что до нее присутствует.

Добавлено через 1 минуту
P.S. Той, что жирным выделена.

[dmitry_a]

Если известно название сетевого интерфейса, и возможно выполнить скрипт на машине с выключенным сетевым интерфейсом, воспользуйся этим..

Sub Network(Adapter)
'strNetConn = "Сетевые подключения" ' Network Connections для англ. версии ОС
'strConn = "Подключение по локальной сети" ' имя или часть имени подключения
'strEnable = "&Включить" ' En&able для англ. версии ОС
'strDisable = "&Отключить" ' Disa&ble для англ. версии ОС

strNetConn = "Network Connections"
strConn = Adapter
strEnable = "En&able"
strDisable = "Disa&ble"

Set objShell = CreateObject("Shell.Application")
Set objCP = objShell.Namespace(3) ' Панель управления
For Each elem in objCP.Items
    If elem.Name = strNetConn Then
        ' получение папки "Сетевые подключения"
        Set colNetwork = elem.GetFolder
        Exit For
    End If
Next

Set Conn = Nothing
For Each clsConn in colNetwork.Items
    If Instr(LCase(clsConn.name), LCase(strConn)) Then
        ' получение указанного подключения
        Set Conn = clsConn
        Exit For
    End If
Next
If Conn Is Nothing Then
    WScript.Echo "Network Connection not found"
    WScript.Quit
End If

bEnabled = True
Set objEnable = Nothing
Set objDisable = Nothing
For Each clsVerb in Conn.verbs
    ' если доступен глагол "Enable", подключение отключено
    If clsVerb.Name = strEnable Then
        Set objEnable = clsVerb
        bEnabled = False
    End If
    ' если доступен глагол "Disable", подключение подключено
    If clsVerb.name = strDisable Then
        Set objDisable = clsVerb
    End If
Next
If bEnabled Then
    objDisable.DoIt
    strStatus = "disabled."
Else
    objEnable.DoIt
    strStatus = "enabled."
End If
WScript.Sleep 1000
End Sub

[PLAstic]

Цитата: Сообщение от neonman HKLM\System\CurrentControlSet\Control\DeviceClasse s\{ad498944-762f-11d0-8dcb-00c04fc3358c}

Ты мне на самом деле про HKLM\_REMOTE_System_\CurrentControlSet\Control\Dev iceClasses\{ad498944-762f-11d0-8dcb-00c04fc3358c} говоришь? Сколько у тебя разделов с ##PCI в начале? Во всех нет Control'а?
Ладно, тему можно заминать, наверное.

dmitry_a, обычно же если есть возможность запустить скрипт, то и включить интерфейс ручками возможно. Или нет?

[neonman]

Цитата: Сообщение от PLAstic Ты мне на самом деле про HKLM\_REMOTE_System_\CurrentControlSet\Control\Dev iceClasses\{ad498944-762f-11d0-8dcb-00c04fc3358c} говоришь? Сколько у тебя разделов с ##PCI в начале? Во всех нет Control'а? Ладно, тему можно заминать, наверное. dmitry_a, обычно же если есть возможность запустить скрипт, то и включить интерфейс ручками возможно. Или нет?

PCI 2 штуки по числу сетевых карт. Во всех нет. Мало того, нет во всем продключенном реестре (включая HKCU).
Собственно проблема уже была решена. Остальное уже больше в ветку по реестру.
Тему можно закрывать...

[dmitry_a]

невсегда, это возможно,а вот если доступна папка нетлогон, и возможно через админ пак примапить скрипт к групповой политике, то почемубы это не использовать ?