pav
Advanced Member | Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
Код:
On Error Resume Next
Dim strOldIP, strOldGateway,strNewIP, strNewGateway, strOldIPArea,strNewIPArea
strSubnetMask = Array("255.255.255.0")
strGatewayMetric = Array(1)
strOldIPArea = "192.192.10"
strNewIPArea = "192.186.107"
strComputer = "."
Set objWMIService = GetObject("winmgmts:" _
& "{impersonationLevel=impersonate}!\\" & strComputer & "\root\cimv2")
Set colNetAdapters = objWMIService.ExecQuery _
("Select * from Win32_NetworkAdapterConfiguration where IPEnabled=TRUE")
Set colNetCards = objWMIService.ExecQuery _
("Select * From Win32_NetworkAdapterConfiguration Where IPEnabled = True")
For Each objNetAdapter in colNetAdapters
strOldIP = Join(objNetAdapter.IPAddress)
strOldGateway = Join(objNetAdapter.DefaultIPGateway)
strNewIP = Array(getNewIP(strOldIP))
strNewGateway = Array(getNewIP(strOldGateway))
errEnable = objNetAdapter.EnableStatic(strNewIP, strSubnetMask)
errGateways = objNetAdapter.SetGateways(strNewGateway, strGatewaymetric)
If errEnable = 0 Then
WScript.Echo "IP-адрес был успешно изменён"
Else
WScript.Echo "Смена IP-адреса не удалась"
End If
Next
For Each objNetCard in colNetCards
arrDNSServers = Array("192.186.107.10")
objNetCard.SetDNSServerSearchOrder(arrDNSServers)
Next
Function getnewIP(strIP)
Dim regEx, strNewIPmask
strNewIPmask = strNewIPArea
Set regEx = New RegExp
regEx.Pattern = strOldIPArea
getnewIP = regEx.Replace(strIP, strNewIPmask)
End Function
|
|
Всего записей: 1856 | Зарегистр. 27-01-2002 | Отправлено: 09:49 20-12-2005 | Исправлено: pav, 09:50 20-12-2005 |
|
