用vbs实现配置静态 IP 地址

184 阅读 0 评论 122 点赞

我是靠谱客的博主笨笨砖头，最近开发中收集的这篇文章主要介绍用vbs实现配置静态 IP 地址，觉得挺不错的，现在分享给大家，希望可以做个参考。

概述

将计算机的 IP 地址设置为 192.168.1.141，并将 IP 网关设置为 192.168.1.100。
脚本代码

复制代码代码如下:

strComputer = "."  
Set objWMIService = GetObject("winmgmts:\\" & strComputer & "\root\cimv2")  
Set colNetAdapters = objWMIService.ExecQuery _  
    ("Select * from Win32_NetworkAdapterConfiguration where IPEnabled=TRUE")  
strIPAddress = Array("192.168.1.141")  
strSubnetMask = Array("255.255.255.0")  
strGateway = Array("192.168.1.100")  
strGatewayMetric = Array(1)  
For Each objNetAdapter in colNetAdapters  
    errEnable = objNetAdapter.EnableStatic(strIPAddress, strSubnetMask)  
    errGateways = objNetAdapter.SetGateways(strGateway, strGatewaymetric)  
    If errEnable = 0 Then  
        WScript.Echo "The IP address has been changed."  
    Else  
        WScript.Echo "The IP address could not be changed."  
    End If  
Next 