[zzup]

up пожалста

[Anton04]

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