[Oleg]

Как возможно изменить IP адреса:
IP-адрес:X.X.X.X
Маска подсети:X.X.X.X
Основной шлюз:X.X.X.X
Предпочитаемый DNS-сервер:X.X.X.X
Алтернативный-DNS-сервер:X.X.X.X
А то очень не удобно использовать одни адреса для соединения с интернетом, другие для сети. Как можно их изменять програмно, т.е. записывать.

[~ SaM ~]

Не, нельзя!

[Oleg]

очень жаль
Может всё-таки есть какой-то способ...

[Liver]

Конечно есть.)
Параметры подключений сохраняются в реестре.

Код:

HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows NT\CurrentVersion\NetworkCards

В этой ветке реестра винда соотносит имя адаптера(сетевухи) и с его сервисным именем. В общем, смотришь имя нужного адаптера и запоминаешь id (че-то типа {3В003931-B2B8-47F6-AAAF-43150ED8AAE2}), присвоенный ему.
Дальше лезешь в

Код:

HKEY_LOCAL_MACHINE\SYSTEM\CurrentControlSet\Services\Tcpip\Parameters\Interfaces\{id адаптера}

и изменяешь нужные тебе параметры. Программно реализовать очч просто.
Гугл рулит..)

[Oleg]

Реализовал, тестирую и значения:
IP-адрес:ставится ....(не работает)
Маска подсети:ставится ....(не работает) // Вот пишу:'255.255.0.0'
Основной шлюз:ставится ....(не работает)
Предпочитаемый DNS-сервер:всё работает нормально
Алтернативный-DNS-сервер:всё работает нормально
Кстати, у меня по адресу:HKEY_USERS->S-1-5-21-861567501-583907252-682003330-500->номер адаптера->тоже есть настройки, причем без всего лишнего, они изменяются, но ни как не влияют.
Какие идеи ?

[~ SaM ~]

Oleg
Я тебя сначала неправильно понял. Delphi тебе вовсе не нужна.

Необходимо следующее

1. Пуск -> Выполнить... или нажать комбинацию клавиш Windows+R (Windows - клавиша между левыми или правыми Ctrl и Alt с логотипом Windows)
2. Ввести команду: netsh interface ip set address name="Подключение по локальной сети" static 192.168.1.228 255.255.255.0 192.168.1.1 1

Расшифровка:
Подключение по локальной сети - имя нужного подключения
192.168.1.228 - ip адрес
255.255.255.0 - маска подсети
192.168.1.1 1 - адрес шлюза и метрика, если такового нет, то последние 2 параметра (192.168.1.1 1) указывать не надо

Что из этого получается:

Сделай один/два/десять bat файлов и пиши в них следующее:

Код:

    echo off
    cls
    echo Смена настроек сети на следующие:
    echo     IP: 192.168.1.228/255.255.255.0
    echo     Шлюз: 192.168.1.1
    netsh interface ip set address name="Подключение по локальной сети" static 192.168.1.228 255.255.255.0 192.168.1.1 1
    pause

Ну соответственно вводи необходимые айпишники и маску.

[Oleg]

не очень-то удобно с bat-ами, может програмно знает кто-то способ ?

[~ SaM ~]

Смотри какая штука... Дело в том что изменять айпи через реестр можно только в 98/98SE винде. В NT/2000/XP/VISTA это не возможно(ну по крайней мере я такого не видел/слышал/читал). Что мешает написать на Delphi программу в одну строку(ассоциативное выполнение батника)? Просто закинуть их куда-либо и вызывать!?

[Oleg]

Выдает ошибку:

Код:

╤ьхэр эрёЄЁюхъ ёхЄш эр ёыхфє■∙шх:
    IP: 192.168.1.228/255.255.255.0
    ╪ы■ч: 192.168.1.1

Указан недопустимый интерфейс: "╧юфъы■ўхэшх яю ыюъры№эющ ёхЄш".

Для продолжения нажмите любую клавишу . . .

[~ SaM ~]

У меня все нормально. Во вложении справка по использованию этой функции

[miha)]

Вот так брат тебе нужно сделать))
в делфи есть такая штука как ShellExecute в модуле ShellApi
вот пример
ShellExecute(Handle, 'open','netsh','interface ip set address name="Подключение по локальной сети" static 192.168.1.228 255.255.255.0 192.168.1.1 1', nil, SW_SHOWNORMAL);
и алга)
а чтоб в бате работало первой строчкой пропиши
chcp 1251 или chcp 866

[Oleg]

miha), я это знаю и так сделал, но не знаю как последний параметр поставить пустым:

Код:

ShellExecute(Handle, 'open','netsh','interface ip set address name="Подключение по локальной сети" static 192.168.1.228 255.255.255.0 ЗДЕСЬ.ЗДЕСЬ.ЗДЕСЬ.ЗДЕСЬ 1', nil, SW_SHOWNORMAL);

Просто оставить пустым не получается, ни пробелы, не подчеркивания, а как это сделать не знаю.

[miha)]

не пойму если просто шлюз не нужен так не пиши ни че после маски)
ShellExecute(Handle, 'open','netsh','interface ip set address name="Подключение по локальной сети" static 192.168.1.228 255.255.255.0', nil, SW_SHOWNORMAL);
че ни четко?? все четко))

[Oleg]

"не пойму если просто шлюз не нужен"
Нет, ты не правильно понял, нужно сделать так, чтобы все его значения были пустыми

[miha)]

смотри выше он и так останиться пустым если не прописываешь его IP