当前位置: 首页 > 图文教程 > 脚本技术 > VBScript > CMD和vbs修改 IP地址及DNS的实现代码

VBScript
VBS教程:函数-GetLocale 函数
VBS教程:函数-FormatPercent 函数
VBS教程:函数-FormatNumber 函数
VBS教程:函数-FormatDateTime 函数
VBS教程:函数-FormatCurrency 函数
VBS教程:函数-Filter 函数
VBS教程:函数-Exp 函数
VBS教程:函数-Eval 函数
VBS教程:函数-派生数学函数
VBS教程:函数-Day 函数
VBS教程:函数-DateValue 函数
VBS教程:函数-DateSerial 函数
VBS教程:函数-DatePart 函数
VBS教程:函数-DateDiff 函数
VBS教程:函数-DateAdd 函数
VBS教程:函数-Date 函数
VBS教程:函数-CStr 函数
VBS教程:函数-CSng 函数
VBS教程:函数-CreateObject 函数
VBS教程:函数-Cos 函数

VBScript 中的 CMD和vbs修改 IP地址及DNS的实现代码


出处:互联网   整理: 软晨网(RuanChen.com)   发布: 2009-09-11   浏览: 364 ::
收藏到网摘: n/a

修改IP
cmd /c netsh interface ip set address name=" 本地连接" source=static addr=211.82.56.253 mask=255.255.255.0 gateway=211.82.56.1 gwmetric=1
修改DNS
cmd /c netsh interface ip set dns name="本地连接" source=static addr=202.99.192.66

配置或更新IP地址:
wmic nicconfig where index=0 call enablestatic("192.168.1.5"), ("255.255.255.0") ;index=0说明是配置网络接口1。

配置网关(默认路由):
wmic nicconfig where index=0 call setgateways("192.168.1.1"),(1)

vbs

Const T_GATEWAY = "211.82.56.1" '网关
Const T_NEWDNS1 = "202.99.192.66" 'DNS1
Const T_NEWDNS2 = "60.221.248.43" 'DNS2
strWinMgmt="winmgmts:{impersonationLevel=impersonate}"
Set NICS = GetObject( strWinMgmt ).InstancesOf("Win32_NetworkAdapterConfiguration")
For Each NIC In NICS
If NIC.IPEnabled Then
NIC.SetDNSServerSearchOrder Array(T_NEWDNS1,T_NEWDNS2)
NIC.SetGateways Array(T_GATEWAY)
End If
Next