VBS 获取本机IP地址、IE版本

最新推荐文章于 2023-11-30 09:40:27 发布
最新推荐文章于 2023-11-30 09:40:27 发布
阅读量2.2k 收藏
点赞数 1
分类专栏： VBScript 文章标签： vbs
版权声明：本文为博主原创文章，遵循 CC 4.0 BY-SA 版权协议，转载请附上原文出处链接和本声明。
本文链接：https://blog.csdn.net/showy_ho/article/details/38293677
版权
这段VBS脚本展示了如何获取本地计算机的IP地址和Internet Explorer浏览器的版本信息。通过WMI（Windows Management Instrumentation）服务，脚本遍历网络适配器配置来找出活动的IP地址，并弹出对话框显示结果。对于IE版本，脚本同样利用WMI查询MicrosoftIE_Summary类来获取版本和产品ID。
摘要由CSDN通过智能技术生成
'获取本机 IP地址
Function GetLocalIP(ComputerName)
Dim objWMIService,colItems,objItem,objAddress
Set objWMIService = GetObject("winmgmts://" & ComputerName & "/root/cimv2"
最低0.47元/天 解锁文章
showy_ho
关注
专栏目录
VBScript中调用IE浏览器
seary_yuan的博客
07-14 4549
a.vbs文件内容如下： 双击执行“a.vbs”文件，即可调用浏览器，并访问网址 下面的代码就是自动打开百度并输入服务器之家进行搜索的代码 用vbs实现网站自动登录
获取IE浏览器版本号
浴火的凤凰
05-15 1310
今天从IETester的官方网站上面看到一段检测IE系列浏览器的各个版本的代码， 觉得有必要收藏一下，所以复制下来，稍微做了一下更改，具体代码如下： var v = ''; if (document.documentMode == 10) v = 'IE 10'; else if (document.documentMode == 9)
vbs获取当前主机IP
weixin_33851604的博客
08-25 410
Function GetIP    GetIP = ""        Dim objWMIService, colAdapters, objAdapter    strComputer = "."    Set objWMIService = GetObject("winmgmts:\\" & strComputer & "\root\cimv2")    Set colAdap...
VBS获取本机IP地址
weixin_33736649的博客
02-02 1158
'获取本机IP 'owner DeViL 'return 本机的IP地址PublicFunctionGetIP ComputerName="." DimobjWMIService,colItems,objItem,objAddress SetobjWMIService=GetObject("winmgmts:\\"&a...
js获取android mac地址,JS获取客户端IP地址、MAC和主机名的7个方法汇总
weixin_39733812的博客
05-30 1975
今天在搞JS(javascript)获取客户端IP的小程序，上网搜了下，好多在现在的系统和浏览器中的都无效，很无奈，在Chrome、FireFox中很少搞到直接利用ActiveX获取IP等的JS脚本。下面的代码是我在所有windowsNT5.0及以上的系统上都测试通过的，给出代码：一、使用JS获取客户端IP的几个方法方法一(只针对IE且客户端的IE允许AcitiveX运行，通过平台：XP，SERV...
vbs脚本实现修改DNS和清空IE临时文件功能
09-03
在Windows操作系统中，DNS（Domain Name System）用于将域名转换为IP地址。使用VBScript修改DNS通常涉及与网络接口配置进行交互，这可以通过`netsh`命令行工具实现。在VBScript中，我们可以调用`WScript.Shell`对象...
用vbs实现虚拟主机和域名查循的脚本
09-06
3. **匹配提取**：通过正则表达式从HTML中提取所需信息，如域名的IP地址等。 ### 知识点五：网络编程基础 1. **URL构建**：根据查询需求构建正确的URL请求。 2. **请求发送**：利用XMLHTTP对象的`Open`和`Send`...
VBS程序自动获取电脑信息及EXCEL提取CSV文件VBA程序.rar
06-01
VBS程序自动获取电脑信息，内容包括MAC地址、MAC地址类型、电脑名称、IP地址、登录用户、系统版本、IE浏览器版本、电脑型号、电脑设备序列号（出厂序列号）。程序自动生成CSV文件保存至指定路径（手动修改程序文件中...
vbs打开ie两种方法 在VBScript中启动IE浏览器的实现代码
09-05
用VBS打开网页，减少IE广告， 不错的东东，是在网上收集的，你也可以实现网页的自动登录等
VBS本机修改ip地址，掩码，网关，dns
11-16
由于到项目上出差，客户那里使用的网络需设置成固定ip，固定DNS。回到旅店又需要设置成自动，顺手写了这个脚本完成这个工作，大家学习交流
vbs修改IE配置（详细，全面）
10-14
使用vbs修改IE配置，代码详细全面，适合各类学习或管理使用。
[IE编程] 如何获得IE版本号
anjichan4261的博客
04-18 110
程序中使用IE的WebBrowser 控件（MSHTML）或者开发BHO插件的时候，通常需要获得IE的版本号以便做不同处理。这里介绍2中获得IE版本号的方法： 1) 通过注册表 IE的版本号信息放在注册表的： HKEY_LOCAL_MACHINE/SOFTWARE/Microsoft/Internet Explorer/Version 注：64位机器的32位...
SecureCRT VBS脚本之获取本机所有IP地址
最新发布
weixin_41044237的博客
11-30 453
'colAdapters.count=3时，msgbox ubound(colAdapters.ItemIndex(3).IPAddress)，需为ItemIndex(2)，否则报错。a = colAdapters.Count'colAdapters.Count数量。函数功能：获取本机所有IP地址，并用空格连接后返回，后期可通过split函数分割。for a = 0 to a -1 'ItemIndex 索引从0计数。
获取本机IP地址的脚本
ξσ Dicky's Blog σξ
12-23 2158
用法：保存为一个.vbs文件，双击运行。set IPConfigSet = GetObject("winmgmts:{impersonationLevel=impersonate}").ExecQuery _        ("select IPAddress from Win32_NetworkAdapterConfiguration where IPEnabled=TRUE")For Ea
如何使用vbs脚本得到当前主机的IP地址；
milaoshu1020的专栏
12-02 1165
如何得到当前主机的IP地址;
vbs获取IP地址
Kent's Tk Blog
11-01 3165
Set WshNetwork = WScript.CreateObject("WScript.Network") cName = WshNetwork.ComputerName '取本机计算机名 Const ForAppending = 8 Set objFSO = CreateObject("Scripting.FileSystemObject") Set objTextFile = o
vbs查询IP地址的位置代码
05-17
以下是通过VBS查询IP地址位置的示例代码： ```vbs Option Explicit Dim ipAddress, objXMLHTTP, strURL, strResult, objRegExp, match, country, city ipAddress = "157.240.13.35" '输入要查询的IP地址 strURL = "https://ipapi.co/" & ipAddress & "/json/" 'API接口地址 Set objXMLHTTP = CreateObject("MSXML2.ServerXMLHTTP") objXMLHTTP.Open "GET", strURL, False objXMLHTTP.Send If objXMLHTTP.Status = 200 Then '如果请求成功 strResult = objXMLHTTP.responseText '获取服务器返回结果 '解析JSON字符串 Set objRegExp = New RegExp objRegExp.Pattern = """country_name"":""(\w+)"",""city"":""(\w+)""" objRegExp.Global = False objRegExp.IgnoreCase = True Set match = objRegExp.Execute(strResult) If match.Count > 0 Then country = match(0).SubMatches(0) city = match(0).SubMatches(1) WScript.Echo "IP地址: " & ipAddress & vbCrLf & "所在国家: " & country & vbCrLf & "所在城市: " & city Else WScript.Echo "未查询到IP地址位置信息。" End If Else WScript.Echo "请求失败，错误代码：" & objXMLHTTP.Status End If ``` 将以上代码保存为`.vbs`文件，然后双击运行即可查询指定IP地址所在的国家和城市。
评论
添加红包

请填写红包祝福语或标题

个

红包个数最小为10个

元

红包金额最低5元

当前余额3.43元 前往充值 >
需支付：10.00元
成就一亿技术人!
领取后你会自动成为博主和红包主的粉丝 规则
hope_wisdom
发出的红包
实付元
使用余额支付
点击重新获取
扫码支付
钱包余额 0

抵扣说明：

1.余额是钱包充值的虚拟货币，按照1:1的比例进行支付金额的抵扣。
2.余额无法直接购买下载，可以购买VIP、付费专栏及课程。

余额充值