信息天堂

版权声明：转载时请以超链接形式标明文章原始出处和作者信息及本声明
http://joshuafan.blogbus.com/logs/22818219.html

1. 采用netsh命令

netsh -c interface ip dump >c:/interface.txt
以后再在需要时修改配置：
netsh exec interface.txt
或
netsh <interface.txt

或者用一个bat文件

echo #设静态IP
netsh interface ip set address name="无线网络连接" source=static addr=192.168.1.20 mask=255.255.255.0
echo #设默认网关
netsh interface ip set address name="无线网络连接" gateway=192.168.1.1 gwmetric=0
echo #设首选dns
netsh interface ip set dns name="无线网络连接" source=static addr=192.168.1.1 register=PRIMARY
echo #设备用dns
netsh interface ip add dns name="无线网络连接" addr=211.90.88.129 index=2
netsh interface ip set wins name="无线网络连接" source=static addr=none
echo #
echo #显示“无线网络连接”配置结果
netsh interface ip show config 无线网络连接
echo #
echo # "本地连接" 的接口 IP  配置
echo #设自动获取ip
netsh interface ip set address name="本地连接" source=dhcp
echo #设自动获取dns
netsh interface ip set dns name="本地连接" source=dhcp register=PRIMARY
echo netsh interface ip set wins name="本地连接" source=dhcp

echo #显示“本地连接”配置结果
netsh interface ip show config 本地连接
echo # 接口 IP 配置结束

2. 采用VBS脚本，文件扩展名.vbs

'****************************
' setip.vbs
' 根据输入信息配置IP地址脚本。
' Author Miger.
' Date 2007.5.11
'****************************

On Error Resume Next
set wshshell = CreateObject("WScript.Shell")

Dim iDHCP
Dim iCHECK
Dim sIP
Dim sDNS
Dim sMASK
Dim sGATEWAY

iDHCP = MsgBox ("是否使用DHCP自动获取IP地址？", 324, "IP地址配置向导-〉1")

If iDHCP = 6 Then
'将IP地址设置为通过DHCP自动获取方式
wshshell.run("netsh interface ip set address name=" & "本地连接" & " source=dhcp")
MsgBox("IP地址已经修改成功！")
Else
'获取用户输入的IP地址信息
sIP = InputBox("请输入需要配置的IP地址:", "IP地址配置向导-〉2", "172.17.180.158")

'获取用户输入的子网掩码
sMASK = InputBox("请输入需要配置的子网掩码:", "IP地址配置向导-〉3", "255.255.0.0")

'获取用户输入的默认网关
sGATEWAY = InputBox("请输入需要配置的默认网关:", "IP地址配置向导-〉4", "172.17.18.121")

'获取用户输入的DNS服务器
sDNS = InputBox("请输入需要配置的DNS服务器:", "IP地址配置向导-〉5", "172.17.18.121")

'用户输入信息最终确认
iCHECK = MsgBox ("您输入的IP配置信息为：" & Chr(13) & Chr(10) & "IP地址：" & sIP & Chr(13) & Chr(10) & "子网掩码：" & sMASK & Chr(13) & Chr(10) & "默认网关：" & sGATEWAY & Chr(13) & Chr(10) & "DNS服务器：" & sDNS, 64, "IP地址配置信息确认")

'执行IP地址配置命令
wshshell.run("netsh interface ip set address name=" & "本地连接" & " source=static addr="&sIP&" mask="&sMASK&" gateway="&sGATEWAY&" gwmetric=2")
WScript.sleep (12000)
wshshell.run("netsh interface ip set dns name=" & "本地连接" & " source=static addr="&sDNS&" register=primary")
WScript.sleep (6000)
MsgBox("IP地址已经修改成功！")
End If