Board logo

标题: [转贴] VBS脚本实现IP自动改 [打印本页]

作者: VBScript    时间: 2012-4-26 20:37     标题: VBS脚本实现IP自动改

最近给一个中学装我们公司的软件,但是发现他的电脑一重启IP地址就自动改回来了,真是郁闷,找了半天也没有发现什么还原的软件,而我又不想给他重装电脑(我这个人比较懒的,呵呵),所以我就想有没有什么小程序能在电脑重启的时候自动的改下IP,到网上小搜了下,果然有,还是VBS的,下来看了下,代码也很简单,主要是用了WMI,这里和大家共享下:
  1. strIPAddress = Array("10.55.152.131") '修改后的ip
  2. strSubnetMask = Array("255.255.255.0") '子网掩码
  3. strGateway = Array("10.55.152.1") '网关
  4. arrDNSServers = Array("10.55.0.13", "221.12.1.228")'DNS
  5. strComputer = "."
  6. Set objWMIService = GetObject("winmgmts:\\" & strComputer & "\root\cimv2")
  7. Set colNetAdapters = objWMIService.ExecQuery _
  8. ("Select * from Win32_NetworkAdapterConfiguration where IPEnabled=TRUE")
  9. For Each objNetAdapter in colNetAdapters
  10. sip=objNetAdapter.IPAddress
  11. 'strIPAddress = sip '保持原来的ip
  12. strGatewayMetric = Array(1)
  13. errEnable = objNetAdapter.EnableStatic(strIPAddress, strSubnetMask)
  14. errGateways = objNetAdapter.SetGateways(strGateway, strGatewaymetric)
  15. errDNS=objNetAdapter.SetDNSServerSearchOrder(arrDNSServers)
  16. If errEnable = 0 Then
  17. WScript.Echo "The IP address has been changed."
  18. Else
  19. WScript.Echo "The IP address could not be changed."
  20. End If
  21. exit for '只修改第一个网卡的设置
  22. Next
复制代码


http://hangzhou492.blog.51cto.com/67690/38698
作者: ghl621    时间: 2012-6-8 10:57

这个治标不治本,估计是这个电脑设置了快速关机,每次关机时都没保存个人设置造成的。




欢迎光临 批处理之家 (http://bbs.bathome.net/) Powered by Discuz! 7.2