CMD/BAT - [решено] Удаленная смена IP

[Dvizhnyak]

Здравствуйте. Есть сеть на 80 компов winXP. Компы в домене под win2003. Подняты DHCP и DNS . На компах IP адрес, маска, шлюз, днс выставлены вручную. Подскажите пожалуйста как удаленно(скриптом), через политики, сделать так что бы IP адреса, маска, шлюз, днс выдавались автоматом.

[Dvizhnyak]

Через VBS скрипт делал. Только у меня обратная задача была из DHCP переделать в статический. Посмотрю в архиве скрипт, может найду тебе готовое решение.

[vitaliyboch]

Через VBS скрипт делал. Только у меня обратная задача была из DHCP переделать в статический. Посмотрю в архиве скрипт, может найду тебе готовое решение.

[Petya V4sechkin]

Dvizhnyak, можно батником:



Код:

Код: Выделить всё

WMIC Path Win32_NetworkAdapterConfiguration Where "IPEnabled = True" Call SetDNSServerSearchOrder
WMIC Path Win32_NetworkAdapterConfiguration Where "IPEnabled = True" Call EnableDHCP

[vitaliyboch]

Вот нашел сценарий, который включает DHCP:





Код:

Код: Выделить всё

sComputer = "ip_адрес_или_имя_компьютера"
' подключение к компьютеру
Set oWMIService = GetObject("winmgmts:{impersonationLevel=impersonate}!\\" & sComputer & "\root\cimv2")
' получение конфигурации сетевого адаптера, где не включен DHCP
Set oNetAdapters = oWMIService.ExecQuery("Select * from Win32_NetworkAdapterConfiguration where IPEnabled=TRUE")
' включение DHCP
For Each oNetAdapter In oNetAdapters
    errEnable = oNetAdapter.EnableDHCP()
Next
' результат операции
msgbox "Error code: " & errEnable

А вот такой скрит заменяет один статический или динамический IP на другой статический IP.

Скрипт можно использовать для перехода с DHCP на статику, указав в исходных данных:

old_ip_address=new_ip_address=текщий IP компьютера, которому меняем конфигурацию[/i]





Код:

Код: Выделить всё

' Исходные данные
strComputer = "old_ip_address"
sSubnetMask = "old_subnet_mask"
sNewIPAddress = "new_ip_address"
sWinsSecondaryServer = "second_wins_server"
' Поиск компьютера в сети
set objWMIService = GetObject("winmgmts:\\" & strComputer & "\root\cimv2")
set colItems = objWMIService.ExecQuery ("Select * From Win32_NetworkAdapter " & "Where NetConnectionID = " & "'Local Area Connection'")
for each objItem in colItems
    strMACAddress = objItem.MACAddress
next
set colItems = objWMIService.ExecQuery ("Select * From Win32_NetworkAdapterConfiguration WHERE MACAddress = '" & strMACAddress & "'")
' получение текущих параметров сетевого адаптера
dim aDNSServer()
dim aDefaultIPGateway()
dim aGatewayMetric()
for each oItem in colItems
	for each IPAddress in oItem.IPAddress
		sIPAddress = IPAddress
	next
       if sSubnetMask = "" then
		for each IPSubnet in oItem.IPSubnet
			sSubnetMask = IPSubnet
		next
	end if
	iCounter = 0
	redim aDNSServer(0)
	for each DNSServer in oItem.DNSServerSearchOrder
		redim preserve aDNSServer (iCounter)
		aDNSServer(iCounter) = DNSServer
		iCounter = iCounter + 1
	next
	sWINSPrimaryServer = oItem.WINSPrimaryServer
	iCounter = 0
	redim aDefaultIPGateway(0)
	redim aGatewayMetric(0)
	for each DefaultIPGateway in oItem.DefaultIPGateway
		redim preserve aDefaultIPGateway (iCounter)
		aDefaultIPGateway(iCounter) = DefaultIPGateway
		redim preserve aGatewayMetric(iCounter)
		aGatewayMetric(iCounter) = iCounter + 1
		iCounter = iCounter + 1
	next
	exit for
next
' Составление новых параметров сетевого адаптера
aNewIPAddress = Array(sNewIPAddress)
aSubnetMask = Array(sSubnetMask)
for each DNSServer in aDNSServer
	sDNSServer = sDNSServer & DNSServer & ", "
next
for each DefaultIPGateway in aDefaultIPGateway
	sDefaultIPGateway = DefaultIPGateway
next
' Вывод статистики по текущей и по будущей конфигурации сетевого адаптера
msgbox "Current IP address: " & sIPAddress & vbCrLf & "New IP address:" & sNewIPAddress & vbCrLf _
	& "Subnet mask is " & sSubnetMask & vbCrLf _
	& "Default Gateway: " & sDefaultIPGateway & vbCrLf _
	& "DNS servers: " & sDNSServer & vbCrLf _
	& "WINS Primary Server: " & sWINSPrimaryServer
' Установка нового IP адреса
if sNewIPAddress  "" then
	on error resume next
	For Each oNetAdapter in colItems
		errWINS = oNetAdapter.SetWINSServer(sWINSPrimaryServer, sWinsSecondaryServer)
		errDNS = oNetAdapter.SetDNSServerSearchOrder(aDNSServer)
		errGateways = oNetAdapter.SetGateways(aDefaultIPGateway, aGatewayMetric)
		errEnable = oNetAdapter.EnableStatic(aNewIPAddress, aSubnetMask)
		exit for
	Next
end if
' результат операции
msgbox errWINS + errDNS + errGateways + errEnable & " errors"

[verna]

vitaliyboch,
Цитата vitaliyboch:



А вот такой скрит заменяет один статический или динамический IP на другой статический IP.

Скрипт можно использовать для перехода с DHCP на статику, указав в исходных данных:

old_ip_address=new_ip_address=текщий IP компьютера, которому меняем конфигурацию

CMD/BAT - [решено] Удаленная смена IP

в моем случае подойдет ?

VBS/WSH/JS - [решено] Скрипт автоматической настройки сети

[verna]

Цитата vitaliyboch:



А вот такой скрит заменяет один статический или динамический IP на другой статический IP.

Скрипт можно использовать для перехода с DHCP на статику, указав в исходных данных:

old_ip_address=new_ip_address=текщий IP компьютера, которому меняем конфигурацию

CMD/BAT - [решено] Удаленная смена IP

выдает ошибку сценария

строка : 11

символ : 1

ошибка : 0x80041017

код : 80041017

источник (null)




Цитата vitaliyboch:



Вот нашел сценарий, который включает DHCP:

CMD/BAT - [решено] Удаленная смена IP

еррор коде : 0

[batyaPS]

это скрипты запускаемые локально. а ТСу нужно удаленно

[verna]

Цитата verna:



это скрипты запускаемые локально. а ТСу нужно удаленно

CMD/BAT - [решено] Удаленная смена IP

а если через логон скрипт ?

[verna]

можно, причем для 2003 это единственный вариант

об этом выше писал