VBS 改 IP(modify IP by VBS)
来源:互联网 发布:网络打印共享器怎么用 编辑:程序博客网 时间:2024/04/26 04:40
Set objShell = CreateObject("Wscript.Shell")
Dim strComputer, objWMIService, colNetAdapters, strIPAddress, strSubnetMask, errEnable, objNetAdapter
strComputer = "."
Set objWMIService = GetObject("winmgmts:\\" & strComputer & "\root\cimv2")
Set colNetAdapters = objWMIService.ExecQuery("Select * from Win32_NetworkAdapterConfiguration where IPEnabled=TRUE")
strIPAddress = Array("192.168.1.26")
strSubnetMask = Array("255.255.254.0")
For Each objNetAdapter in colNetAdapters
errEnable = objNetAdapter.EnableStatic(strIPAddress, strSubnetMask)
If errEnable = 0 Then
msgbox "successful setting IP."
Else
msgbox "Failed to set IP."
End if
Next
Dim strComputer, objWMIService, colNetAdapters, strIPAddress, strSubnetMask, errEnable, objNetAdapter
strComputer = "."
Set objWMIService = GetObject("winmgmts:\\" & strComputer & "\root\cimv2")
Set colNetAdapters = objWMIService.ExecQuery("Select * from Win32_NetworkAdapterConfiguration where IPEnabled=TRUE")
strIPAddress = Array("192.168.1.26")
strSubnetMask = Array("255.255.254.0")
For Each objNetAdapter in colNetAdapters
errEnable = objNetAdapter.EnableStatic(strIPAddress, strSubnetMask)
If errEnable = 0 Then
msgbox "successful setting IP."
Else
msgbox "Failed to set IP."
End if
Next
0 0
- VBS 改 IP(modify IP by VBS)
- VBS 改 IP(modify IP by VBS)
- vbs获取IP地址
- VBS应用-更改IP
- VBS笔记, IP地址切换
- vbs更改代理ip代码
- 用vbs脚本修改IP地址
- VBS调用ping检测ip连通情况
- vbs
- VBS
- VBS
- vbs
- vbs
- 使用WMI改变网卡的IP地址 vbs版
- 用vbs自动切换不同网段的IP
- 用vbs自动切换不同网段的IP 小脚本
- VBS获得外网IP并发送到指定邮箱
- 通过vbs获取本机IP地址和MAC地址
- struts2总结
- cakephp中使用ajax获得数据,动态折线显示
- 在vs2010下编译OpenSSL
- ORA-06553:PLS-306:wrong number or types of arguments in call to ''
- 设置不自动弹出软键盘的最简洁解决方案
- VBS 改 IP(modify IP by VBS)
- HDU 1251 统计难题
- hdu 5595
- Java Notes-1
- java基础第八天——正则、集合与数组的区别
- java模拟异步消息机制
- Java Notes-2
- POJ 1062 迪杰斯特拉
- HDOJ 5595 GTW likes math(简单数学,模拟)