[Сеть, интернет] Смена сетевых настроек

[arr1val]

Версия AutoIt: 3.

Описание: Автоматизировать смену сетевых настроек

Есть пример на vbs:

strComputer = "."
Set objWMIService = GetObject("winmgmts:" _
    & "{impersonationLevel=impersonate}!\\" & strComputer & "\root\cimv2")

Set colNetAdapters = objWMIService.ExecQuery _
    ("Select * from Win32_NetworkAdapterConfiguration where IPEnabled=TRUE")


strSubnetMask = "255.255.248.0"


For Each objNetAdapter in colNetAdapters

strIPAddress = CStr(objNetAdapter.IPAddress(0))

 errEnable = objNetAdapter.EnableStatic(Array(strIPAddress), Array(strSubnetMask))

Next

Дано: менять маску (основное что нужно), днс, винсы, шлюз, при этом не затрагивая уже прописанный статический айпи. Возможно ли это реализовать на аутоит ? Возможно ли в теле скрипта прописывать выполнение команд из под учетки админа ?

 

[kaster]

Проверить не могу. Но если просто "перевести" с одного языка на другой, то так

$strComputer =  "."
$objWMIService = ObjGet("winmgmts:\\" & $strComputer & "\root\cimv2")
$colNetAdapters = $objWMIService.ExecQuery("Select * from Win32_NetworkAdapterConfiguration where IPEnabled=TRUE and DHCPEnabled=TRUE")
 
For $objNetAdapter in $colNetAdapters
	For $strAddress in $objNetAdapter.IPAddress
		$arrOctets = StringSplit($strAddress, ".")
		If $arrOctets[0] and $arrOctets[1] Then
			$strNewAddress = $arroctets[0] & "." & $arroctets[1] & "." & $arrOctets[2] & "." & "211"            
			Dim $arrIPAddress[1]
			$arrIPAddress[0] = $strNewAddress
			$strSubnetMask = $objNetAdapter.IPSubnet
			$strGateway = $objNetAdapter.DefaultIPGateway
			$strGatewayMetric = $objNetAdapter.GatewayCostMetric
			$arrDNSServers = $objNetAdapter.DNSServerSearchOrder
			$errEnable = $objNetAdapter.EnableStatic($arrIPAddress, $strSubnetMask)
			$errGateways = $objNetAdapter.SetGateways($strGateway, $strGatewaymetric)
			$objNetAdapter.SetDNSServerSearchOrder($arrDNSServers)
		EndIf
	Next
Next

Добавлено:

Сообщение автоматически объединено: 19 Фев 2010

хм... уже другой код.


Добавлено:

Сообщение автоматически объединено: 19 Фев 2010

опять же тупой перевод

$strComputer = "."
$objWMIService = ObjGet("winmgmts:" _
    & "{impersonationLevel=impersonate}!\\" & $strComputer & "\root\cimv2")

$colNetAdapters = $objWMIService.ExecQuery("Select * from Win32_NetworkAdapterConfiguration where IPEnabled=TRUE")

$strSubnetMask = "255.255.248.0"

Dim $_IPtmp[1]
Dim $_SMtmp[1]
For $objNetAdapter in $colNetAdapters
	$IP = $objNetAdapter.IPAddress
	$strIPAddress = String($IP[0])
	$_IPtmp[0] = $strIPAddress
	$_SMtmp = $strSubnetMask
	$errEnable = $objNetAdapter.EnableStatic($_tmp, $_SMtmp)
Next

 

[arr1val]

Прошу прощения за смену, думал не среагируют так быстро Пока писал код додумался как его оптимизировать. Спасибо за "перевод" буду пробовать.
Не сможете подсказать про запуск из под другого пользователя, прописанный в теле скрипта ?

 

[kaster]

arr1val
запуск чего? в скрипте кажись нет ни одного Run, если ты об этом.

 

[Guezt]

arr1val
Суровый, но проверенный вариант сохранения-востановления сетевых настроек!

#include <Process.au3>
$sNameSet = "1.config" ; файл настроек адаптера
$sSaveSet = "netsh dump>"&$sNameSet
$sLoadSet = "netsh exec "&$sNameSet
_RunDOS($sSaveSet) ; сохранить настройки
;_RunDOS($sLoadSet) ; загрузить настройки

 

[arr1val]

2 Kaster,
изменения к сетевому адаптеру не применяться если скрипт будет отрабатываться не из под админской учетки. Вот и думаю, есть ли возможность прописать в скрипте применение данных изменений от учетной записи администратора, доменной или локальной.

 

[kaster]

arr1val
не знаю, насколько это отобразится при создании объектов, в смысле какие права доступа при этом унаследуются, но можно сделать проверку условия в самом цикле на наличие ключа, и при обнаружении запустить этот же скрипт с ключом от имени нужного пользователя.

If $CmdLine[0] Then
   ; Тело скрипта
Else
   $sPath = @AutoItExe & ' "' @ScriptFullPath & '" -k'
   RunAs($user, $domain, $pass, 0, $sPath)
EndIf

 

[arr1val]

Спасибо большое !