1. 程式人生 > >當前使用者沒有網路管理這個選項,進行修改IP

當前使用者沒有網路管理這個選項,進行修改IP

案例分析:
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