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

最新推荐文章于 2021-08-06 13:48:44 发布

挣扎挣扎看看吧

最新推荐文章于 2021-08-06 13:48:44 发布

阅读量217

点赞数

分类专栏：知识库文章标签： IT运维

本文链接：https://blog.csdn.net/weixin_44071851/article/details/85048421

版权

知识库专栏收录该内容

19 篇文章 1 订阅

订阅专栏

案例分析：
IP池不够，不会自动release.

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

请修改不要直接食用。

StrIP = inputbox("Please input IP,Sample:10.86.88.X")


strMask = "255.255.255.0"
strGW = "10.86.88.1"
strDNS1 = "10.62.193.31"
strDNS2 = "10.62.193.32"     

strComputer = "."
Set objWMIService = GetObject("winmgmts:\\" & strComputer & "\root\cimv2")
Set colNetAdapters = objWMIService.ExecQuery _
("Select * from Win32_NetworkAdapterConfiguration where IPEnabled=TRUE")
strIPAddress = Array(strIP)
strSubnetMask = Array(strMask)
strGateway = Array(strGW)
strGatewayMetric = Array(1)
For Each objNetAdapter in colNetAdapters
 errEnable = objNetAdapter.EnableStatic(strIPAddress, strSubnetMask)
 errGateways = objNetAdapter.SetGateways(strGateway, strGatewaymetric)
     arrDNSServers = Array(strDNS1,strDNS2)
    errDNS = objNetAdapter.SetDNSServerSearchOrder(arrDNSServers)
If errEnable = 0 Then
WScript.Echo "Should be done...."
Else
WScript.Echo "Should be done,Be Happy"
End If
Next