[新手上路]批处理新手入门导读[视频教程]批处理基础视频教程[视频教程]VBS基础视频教程[批处理精品]批处理版照片整理器
[批处理精品]纯批处理备份&还原驱动[批处理精品]CMD命令50条不能说的秘密[在线下载]第三方命令行工具[在线帮助]VBScript / JScript 在线参考
返回列表 发帖

[转贴] 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

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

TOP

返回列表