powered by simpleCommunicator - 2.0.61     © 2026 Programmizd 02
Целевая тема:
Создать новую тему:
Автор:
Закрыть
Цитировать
Форумы / Visual Basic [игнор отключен] [закрыт для гостей] / Получить IP-адрес автоматически
6 сообщений из 6, страница 1 из 1
Получить IP-адрес автоматически
    #34660818
Kuzal
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Гость
В свойствах сетевого подключения (TCP/IP) была установлена галочка на "Получить IP-адрес автоматически", с помощью VB скрипта забиваю статический адрес. А как программно вернуть галочку на "Получить IP-адрес автоматически"? Вручную поставить не могу, не хватает прав администратора.
...
Рейтинг: 0 / 0
Получить IP-адрес автоматически
    #34661020
Фотография IguMEN
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
Попробуй через "Пуск"->"Выполнить" запустить gpedit.msc

Поройся там. На мой взгляд, не стоит для этого писать спец программу
...
Рейтинг: 0 / 0
Получить IP-адрес автоматически
    #34661237
Kuzal
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Гость
Попробовал выполнить gpedit.msc, выдало ошибку групповой политики:
У вас нет разрешения на выполнение этой операции
...
Рейтинг: 0 / 0
Получить IP-адрес автоматически
    #34661295
Nikz
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
а как бы взглянуть на скрипт при при помощи которого забивался статический адрес?
мож я чего и не понимаю, но если у вас не хватает прав на то что бы поставить эту галку, то не должно хватать прав и на то что бы ее снять и забить статический адрес, хоть бы даже и скриптом, он же работает от вашего имени...
...
Рейтинг: 0 / 0
Получить IP-адрес автоматически
    #34661310
Kuzal
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Гость
strComputer = "."
Set objWMIService = GetObject( _
"winmgmts:\\" & strComputer & "\root\cimv2")
Set colNetAdapters = objWMIService.ExecQuery _
("Select * from Win32_NetworkAdapterConfiguration " _
& "where IPEnabled=TRUE")
strIPAddress = Array("172.21.58.1")
strSubnetMask = Array("255.255.0.0")
For Each objNetAdapter In colNetAdapters
errEnable = objNetAdapter.EnableStatic( _
strIPAddress, strSubnetMask)
errGateways = objNetAdapter.SetGateways( _
strGateway, strGatewaymetric)
Next
...
Рейтинг: 0 / 0
Получить IP-адрес автоматически
    #34724648
Armani
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
gpedit.msc не работает в home edition
...
Рейтинг: 0 / 0
6 сообщений из 6, страница 1 из 1
Форумы / Visual Basic [игнор отключен] [закрыт для гостей] / Получить IP-адрес автоматически
Найденые пользователи ...
Разблокировать пользователей ...
Читали форум (0):
Пользователи онлайн (0):
x
x
Закрыть


Просмотр
0 / 0
Close
Debug Console [Select Text]