Скачать: CL | DM;

Как программно поменять IP   Найти похожие ветки 

← →
ratmir ©   (2007-08-03 12:21) [0]

Как программно поменять IP и другие параметры сети. Вариант с реестром ненужен.

---

← →
clickmaker ©   (2007-08-03 13:10) [1]

> Вариант с реестром ненужен.

почему?

---

← →
umbra ©   (2007-08-03 13:40) [2]

SetAdapterIPAddress

---

← →
ratmir ©   (2007-08-06 12:15) [3]

Если использовать реестр то нужно иногда перезагружать комп. что не надо. Есть программа NetSetMan которая все как надо делает. Мне интересно самому разобраться как это делается

---

← →
umbra ©   (2007-08-06 12:31) [4]

> Если использовать реестр то нужно иногда перезагружать комп

только в 98-й виндовс. В ХР не надо.

---

← →
ratmir ©   (2007-08-13 12:31) [5]

Я нашел как менять IP DNS маски и подмаски, но не на Delphi, а с помощью скрипта и не надо перегружать ком. Мне интересно как это реализовать на Delphi.
код скрипта взят из Королевство Delphi
Создаешь в блокноте новый файл... вставляешь туда код скрипта:

-----------------------------------------------------------

Option Explicit
Dim NetworkAdapter, AdapterConfiguration "Objects
Dim IPAddress, SubnetMask, Gateway, DNS, DNS1 "String Arrays
Dim RetVal "Integers

For Each NetworkAdapter In GetObject("winmgmts:").InstancesOf("Win32_NetworkAdapter")

If NetworkAdapter.AdapterType = "Ethernet 802.3" Then

For Each AdapterConfiguration In GetObject("winmgmts:").InstancesOf("Win32_NetworkAdapterConfiguration")

If UCase(AdapterConfiguration.ServiceName) = UCase(NetworkAdapter.ServiceName) Then

IPAddress = Array("172.119.60.90")

SubnetMask = Array("255.255.255.252")

Gateway = Array("172.119.60.89")

DNS = Array("134.85.113.245", "134.85.113.244")

RetVal = AdapterConfiguration.EnableStatic(IPAddress, SubnetMask)

RetVal = AdapterConfiguration.SetGateways(Gateway)

RetVal = AdapterConfiguration.SetDnsServerSearchOrder(DNS)

End If

Next

End If

Next

WScript.Echo "Настройка IP выполнена!"

------------------------------------------------------------
потом файл этот переименовыешь в      <имя файла>.vbs

создаешь сколько хочешь таких файлов для разных вариантов IP

---

← →
Сергей М. ©   (2007-08-13 13:05) [6]

> как это реализовать на Delphi.


Да прямо так и реализуй - с помощью Делфи запусти на выполнение штатное приложение cscript.exe, передав ему параметром ком.строки имя vbs-файла, содержащего упомянутый тобой скрипт.

---

← →
ratmir ©   (2007-08-14 07:22) [7]

В начале я так хотел, создаю vbs файл с нужными параметрами и просто запускаю его. Но мне интересно можно ли это реализовать средствами Delphi используя API функции или другие библиотеки. В данном скрипте нельзя сделать выбор сетевого адаптера или обнулить DNS. Есть программа NetSetMan которая все прекрасно делает изменения сети еще. Мне стало интересно можно сделать тоже самое на Delphi или нет
Извеняюсь за несвязанность (мысли путаются)

---

← →
Сергей М. ©   (2007-08-14 08:03) [8]

> В данном скрипте нельзя сделать выбор сетевого адаптера
> или обнулить DNS


В этом да, нельзя.
Но ничто не мешает изменить его для работы с извне задаваемыми параметрами.


> можно ли это реализовать средствами Delphi


Можно.

---

← →
ratmir ©   (2007-08-14 11:14) [9]

Тогда как, или в каком направлении копать

---

← →
Сергей М. ©   (2007-08-14 11:31) [10]

http://www.delphikingdom.com/asp/viewitem.asp?catalogid=698
http://forum.vingrad.ru/forum/topic-164268.html

---

Страницы: 1 вся ветка

Скачать: CL | DM;



Память: 0.47 MB
Время: 0.017 c