设置IP的VBS

今天整理资料，看到一段同事上半年写的VBS。上半年有大量服务器要求换IP地址，由于是半夜，做个AT就省事多了。

strComputer  =   " . "
Set  objWMIService  =   GetObject ( " winmgmts:\\ "   &  strComputer  &   " \root\cimv2 " )
Set  colNetAdapters  =  objWMIService.ExecQuery _
    ( " Select * from Win32_NetworkAdapterConfiguration where IPEnabled=TRUE " )
strIPAddress  =   Array ( " 218.5. " )     ' IP Addr.
strSubnetMask  =   Array ( " 255.255.255.224 " )     ' 子网掩码
strGateway  =   Array ( " 218.5 " )     ' 网关
strGatewayMetric  =   Array ( 1 )
For   Each  objNetAdapter in colNetAdapters
    errEnable  =  objNetAdapter.EnableStatic(strIPAddress, strSubnetMask)
    errGateways  =  objNetAdapter.SetGateways(strGateway, strGatewaymetric)
Next