' ' 根据IP地址获取所在国家地址及运营商 ' ' Sub GetIPArea() Dim s As String, m Dim ipCol, areaCol As Integer '定义Excel表中IP所在列号、将要填写国家地区的列号 ipCol = 2 areaCol = 3 With CreateObject("msxml2.xmlhttp") For m = 2 To [b65536].End(xlUp).Row DoEvents .Open "GET", "http://www.ip138.com/ips138.asp?ip=" & Cells(m, ipCol) & "&action=2", False .send s = StrConv(.responsebody, vbUnicode) Cells(m, areaCol) = Split(Split(s, "本站数据:")(1), "</li>")(0) Cells(m, areaCol + 1) = Split(Split(s, "参考数据1:")(1), "</li>")(0) Next End With End Sub
相关推荐
VBS显示IP地址,VBS显示IP地址代码
VBS获取本地ip QTP应用 已经调试通过
VBS,IP,IP地址,局域网,动态,VBS,IP,IP地址,局域网,动态
一个能够获取本机网卡MAC地址的vbs文件。。。。。。。。。。。。。。。。。。。。。。。。。。。。。
亲测可用! 很有意思的小脚本,VBS vbs脚本实现获取屏幕分辨率,大家一起学习分享啊! 本人将会不定期的上传一些经过测试可用的vbs小程序。
VBS设置IP地址
换ip脚本vbs换ip脚本vbs换ip脚本vbs换ip脚本vbs换ip脚本vbs换ip脚本vbs
更改IP地址.vbs 一个让网管给不懂IT电脑的人应用的脚本
用VBS脚本判断IP地址有效性
VBS结合WMI技术修改IP地址,网关,DNS等
VBS自动更换IP.vbs 'VBS自动更换IP Dim Wsh Set Wsh = WScript.CreateObject("WScript.Shell") Set oIE = CreateObject("InternetExplorer.Application") for i=1 to 5 wsh.run "Rasdial /DISCONNECT",false,1 wsh....
VBS获取完整计算机配置信息,可添加域组策略,批量获取局域网计算机配置信息
VBS获取ip,mac,自已用的自动化测试工具(don't down)
这段vbs脚本代码用于获取主机型号,主要是从注册表读取
在原有的主板、cpu、内存、显卡、硬盘信息采集的基础上增添了操作系统、光驱、声卡、网卡MAC地址的采集。
由于到项目上出差,客户那里使用的网络需设置成固定ip,固定DNS。回到旅店又需要设置成自动,顺手写了这个脚本完成这个工作,大家学习交流
vbs实现自动IP和静态IP
修改ip的 vbs脚本 不用重启就可以生效
让本地连接属性变灰的VBS脚本 双击打开即可让本地连接变灰 可以防止别人修改本地连接IP地址
需要根据实际情况修改 网卡"AdapterID ", 同时修改静态IP 地址. ========= 有同学问如何获取本机的Adapter ID? 可以把以下代码复制到记事本, 保存成为GetNicInfo.vbs 扩展名是VBS, 然后你可以双击运行, 程序会枚举...