經常在兩個網段間轉換 常改ip，找了一個改ip的腳本
稍微改了一下，讓他適合我的情況（自動判斷我的ip）
strComputer?=?"."
Set?objWMIService?=?GetObject("winmgmts:\\"?&?strComputer?&?"\root\cimv2")
Set?colNetAdapters?=?objWMIService.ExecQuery?_
????("Select?*?from?Win32_NetworkAdapterConfiguration?where?IPEnabled=TRUE")


For?Each?objNetAdapter?in?colNetAdapters
sip=objNetAdapter.IPAddress
if?sip(0)="10.35.4.34"?then??????'判斷要替換的ip
??strIPAddress?=?Array("192.168.8.4")?????'替換ip
??strSubnetMask?=?Array("255.255.255.0")
??strGateway?=?Array("192.168.8.1")?????'修改網關
else
??strIPAddress?=?Array("10.35.5.34")?
??strSubnetMask?=?Array("255.255.255.0")
??strGateway?=?Array("10.35.5.1")????
end?if

strGatewayMetric?=?Array(1)
????errEnable?=?objNetAdapter.EnableStatic(strIPAddress,?strSubnetMask)
????errGateways?=?objNetAdapter.SetGateways(strGateway,?strGatewaymetric)
????If?errEnable?=?0?Then
????????WScript.Echo?"The?IP?address?has?been?changed?as?"?&?strIPAddress(0)
????Else
????????WScript.Echo?"The?IP?address?could?not?be?changed."
????End?If
????exit?for??????'只修改第一個網卡的設置
Next

轉載于:https://www.cnblogs.com/zqg918/archive/2006/10/14/528731.html

總結

以上是生活随笔為你收集整理的一个设置ip的vbs脚本的全部內容，希望文章能夠幫你解決所遇到的問題。

如果覺得生活随笔網站內容還不錯，歡迎將生活随笔推薦給好友。