当前用户没有网络管理这个选项，进行修改IP

案例分析&＃xff1a;
IP池不够&＃xff0c;不会自动release.

用户特别急的时候我们只能手动分配一个IP给它&＃xff0c;
但是用户并没有控制面板的权限&＃xff0c;而且什么图标都没有。(Block by group policy)
要Local IT 登陆自己的账号才可以
写了如下VBS,不用登陆自己账号也可以修改。记得要用管理员去跑
脚本环境Win10 pro 英文版

请修改不要直接食用。

StrIP &＃61; inputbox("Please input IP,Sample:10.86.88.X")strMask &＃61; "255.255.255.0"
strGW &＃61; "10.86.88.1"
strDNS1 &＃61; "10.62.193.31"
strDNS2 &＃61; "10.62.193.32" strComputer &＃61; "."
Set objWMIService &＃61; GetObject("winmgmts:\\" & strComputer & "\root\cimv2")
Set colNetAdapters &＃61; objWMIService.ExecQuery _
("Select * from Win32_NetworkAdapterConfiguration where IPEnabled&＃61;TRUE")
strIPAddress &＃61; Array(strIP)
strSubnetMask &＃61; Array(strMask)
strGateway &＃61; Array(strGW)
strGatewayMetric &＃61; Array(1)
For Each objNetAdapter in colNetAdapterserrEnable &＃61; objNetAdapter.EnableStatic(strIPAddress, strSubnetMask)errGateways &＃61; objNetAdapter.SetGateways(strGateway, strGatewaymetric)arrDNSServers &＃61; Array(strDNS1,strDNS2)errDNS &＃61; objNetAdapter.SetDNSServerSearchOrder(arrDNSServers)
If errEnable &＃61; 0 Then
WScript.Echo "Should be done...."
Else
WScript.Echo "Should be done,Be Happy"
End If
Next