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
