Подскажите как через батник настроить сетевую карту хп 7

Компьютерный форум OSzone.net (http://forum.oszone.net/index.php)

- Скриптовые языки администрирования Windows (http://forum.oszone.net/forumdisplay.php?f=102)

Подскажите как через батник настроить сетевую карту хп 7

Прошу помочь с синтаксисом, да и так примеры,
Сам тут крутит вертел читал форумы,
Советуют через команду
Netsh но примеры корявые
Как скопировать делал так
netsh -c interface dump>mydump.conf
Копирует но какой то урезанный файл , и без
без днс серверов

netsh dump>mydump.conf
Тут копирует большой файл и так же днс

А при попытке установки этих настроек просто стирает все что прописано в сетевой карте
Как по уму пользоватся netsh какой синтаксис правильный?

Как должен выглядеть синтаксис и сам код в бат или смд

Маска подсети-255.255.255.224
ip адрес-83.167.17.191
шлюз-83.167.17.191
Днс предпочитаемой 8.8.8.8
Днс альтернативный 8.8.4.4

Настройки по протоколу ipv4

zzup,

в win 2000/XP

netsh interface ip set address name="LAN" source=static addr=83.167.17.191 mask=255.255.255.224
netsh interface ip set address name="LAN" gateway=83.167.17.191 gwmetric=0
netsh interface ip set dns name="LAN" source=static addr=8.8.8.8 register=PRIMARY
netsh interface ip add dns name="LAN" addr=8.8.4.4 index=2

в win vista/7

netsh interface ipv4 set address "LAN" static 83.167.17.191 255.255.255.224 83.167.17.191
netsh interface ipv4 set dnsserver "LAN" static 8.8.8.8
netsh interface ipv4 add dnsserver "LAN" 8.8.4.4 index=2

где "LAN" - это имя настраиваемого сетевого адаптера.

Для переименования сетевого адаптера на нужное имя использую скрипт:

Код:

'Использование: CScript.exe RenameNetworkConnection.vbs "Старое имя интерфейса" "Новое имя"



If WScript.Arguments.Count <> 2 Then

  WScript.Echo "Неверное число параметров." & vbCrLf & _

               "Использование: CScript.exe " & WScript.ScriptName & _

               " <Старое имя интерфейса> <Новое имя>"

  WScript.Quit(1)

End If



Const NETWORK_CONNECTIONS = &H31&



Set objShell = CreateObject("Shell.Application")

Set objFolder = objShell.Namespace(NETWORK_CONNECTIONS)



Set colItems = objFolder.Items

For Each objItem in colItems

  If objItem.Name = WScript.Arguments(0) Then

    objItem.Name = WScript.Arguments(1)

  End If

Next