Архив форумов ЦИТФорума

[safrd]

Такая проблемка, пользователям надо на лету менять настройки сетевухи, либо ини подключены к нашей сетке с DHCP, либо к внешней со статическим IP, руками их это делать не научить, себе дороже, может есть какая-нибуди програмулька, которая настройки IP меняет? Или предложения какие-нибудь.

[DumanTapah]

по моему проще было бы поднять nat на dhcp сервере (насколько я понимаю он же и DC?) на один из статических адресов во внешней локалке...
тогда вопрос исчезнет сам собой...
имхо...
_________________
Vivere militari est!

[Алекс]

Покопайся в архиве форума - вопрос уже поднимался и решений предлагалась масса: от файла для реестра до организации второго аппаратного профиля.
_________________
Удачи!

[--= Eagle =--]

Видел где-то в Гугле прогу, которая имеет несколько (2 как минимум) настройки сети. Покопайся....
_________________
Информация должна быть общедоступной!

[ЫФЦ]

Configuring a Static IP Address



Description

Sets the IP address of a computer to 192.168.1.141, and sets the IP gateway to 192.168.1.100.



Supported Platforms

Windows Server 2003 Yes
Windows XP Yes
Windows 2000 Yes
Windows NT 4.0 Yes, with WMI installed
Windows 98 Yes, with WMI installed


Script Code

strComputer = "."
Set objWMIService = GetObject("winmgmts:\\" & strComputer & "\root\cimv2")
Set colNetAdapters = objWMIService.ExecQuery _
("Select * from Win32_NetworkAdapterConfiguration where IPEnabled=TRUE")
strIPAddress = Array("192.168.1.141")
strSubnetMask = Array("255.255.255.0")
strGateway = Array("192.168.1.100")
strGatewayMetric = Array(1)

For Each objNetAdapter in colNetAdapters
errEnable = objNetAdapter.EnableStatic(strIPAddress, strSubnetMask)
errGateways = objNetAdapter.SetGateways(strGateway, strGatewaymetric)
If errEnable = 0 Then
WScript.Echo "The IP address has been changed."
Else
WScript.Echo "The IP address could not be changed."
End If
Next



For online peer support, join the microsoft.public.windows.server.scripting community on the msnews.microsoft.com news server. To provide feedback or report bugs in sample scripts or the Scripting Guide, please contact Microsoft TechNet.