vbs更改网卡IP

2011年8月30日 发表评论 阅读评论

因为平时工作大都使用linux系统处理问题,所以之前一直在使用bat批处理处理windows下的一些细微的改动操作(个人感觉powershell处理很多问题时更顺手些,把linux 下的很多工具和操作方式都给偷去了,不过偷的不完全,仍没linux下的shell强大)。对windows下的vbs脚本也没有去仔细的了解,后来因为发现很多操作方面bat 操作又很弱,而需要很多小的功能时,只能从“谷哥度娘”上找答案找工具。而网上找的工具又大会带GUI界面的处理速度上不行(用的测试机年龄有点大了,自己的本本又不想在上面老折腾,出问题了重装麻烦。)。因为之前也大量的从网上COPY别人粘的vbs脚本,但并未细细品,只要解决问题不就行了。不过一日闲来无事到微软官网上无意点到了vbs脚本的介绍,细看了一下,才发现其的强大。而且处理速度也不比cmd强,个人感觉比cmd还快。

上面罗嗦了一大堆,下面看两个常见常用的例子吧。

第一个,我在“windows下的计时等待”的这篇日志里已经写过。计时等待,那个批处理里的计时还有调用的vbs实现的。为wscript.sleep 加上等待的时长,以毫秒为单位。(这要在linux下一条sleep命令解决)。

第二个,修改IP,bat批处理改的方面网上太多了。这里不再写,只列出vbs修改的代码。如下:

strComputer = "."
Set objWMIService = GetObject("winmgmts:" & strComputer & "rootcimv2")
Set colNetAdapters = objWMIService.ExecQuery _
    ("Select * from Win32_NetworkAdapterConfiguration where IPEnabled=TRUE")
strIPAddress = Array("192.168.1.141")           改IP地址,多个IP可以以","格开,可以写多个
strSubnetMask = Array("255.255.255.0")     改子网掩码
strGateway = Array("192.168.1.100")             改网关,若要加DNS,请加arrDNSServers = Array("202.101.172.35")句
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
注:上面的红色字体只是方便理解写上去的,用时就不要了也粘进去了。不过该脚本运行后会把所有的网卡的IP都改为192.168.1.141,如果你有多块网卡,请慎用。

 如果你有多块网卡时,可以把上面的脚本里的("Select * from Win32_NetworkAdapterConfiguration where IPEnabled=TRUE")改为

("Select * from Win32_NetworkAdapterConfiguration where MACAddress='00:67:28:52:74:6C'"),也就是你要改的网卡的MAC地址。

使用DHCP方式则为下面的代码:

strComputer = "."
Set objWMIService = GetObject("winmgmts:" & strComputer & "rootcimv2")
Set colNetAdapters = objWMIService.ExecQuery _
    ("Select * from Win32_NetworkAdapterConfiguration where IPEnabled=TRUE")
For Each objNetAdapter In colNetAdapters
    errEnable = objNetAdapter.EnableDHCP()
     If errEnable = 0 Then
        Wscript.Echo "DHCP has been enabled."
    Else
        Wscript.Echo "DHCP could not be enabled."
    End If
Next

至于具体的Win32_NetworkAdapterConfiguration 所能内调的参数可以查看http://msdn.microsoft.com/en-us/library/aa394217(VS.85).aspx上面的具体介绍。这里也是通过调用WMI函数进行处理的。

除此之外vbs脚本还有其他很多功能,比如:打开文件写入信息、修改IP代理、查看内存信息等等、处理word等等,只有windows里的经常使用到的方面,其都有涉足。还是比较强大。具体其涉及到的分类可以查看http://www.microsoft.com/china/technet/community/scriptcenter/default.mspx页,有详细的分类。

vbs脚本最好使用cscript  脚本文件名使用。如果直接双击运行,有些脚本会一条条的出msgbox。

 编写vbs可以使用的工具

ADSI Scriptomatic、Tweakomatic、The Scriptomatic Tool。以上三个工具微软官网上都能下到。另外如果想写系统服务相关的程序,我个人感觉wmi cim studio也是不能少的,该工具在WMITools.exe包里有。




本站的发展离不开您的资助,金额随意,欢迎来赏!

You can donate through PayPal.
My paypal id: itybku@139.com
Paypal page: https://www.paypal.me/361way

分类: windows 标签:
  1. 007
    2011年8月31日09:00 | #1

    不错,受教了!