如何用VBS脚本写出判断本机IP的内容和配置文件是否相同，然后运行某程序？

答案:1 悬赏:30 手机版

解决时间 2021-02-27 10:03

提问者网友：niaiwoma
2021-02-26 23:15

就是，VBS脚本运行自动判断本机IP，然后到a.txt或a.ini里面查找是否有这个IP地址，如果有的话就运行e:\test.exe，如果没有就不运行？
大哥，我怎么得到的是外网的IP呢？本地链接里的属性我写的是 196.254.XX.XX 我想得到这个有办法吗？谢谢大哥

最佳答案

五星知识达人网友：你可爱的野爹
2021-02-27 00:21

你在局域网中吗?如果不在局域网中,这个地址是无效的.
我做过获取外网ip的程序,我的网友都是用这个获取内网ip,用其他脚本获取外网ip.

strComputer = "."
Set objWMIService = GetObject("winmgmts:\\" & strComputer & "\root\cimv2")
Set IPConfigSet = objWMIService.ExecQuery("Select IPAddress from Win32_NetworkAdapterConfiguration Where IPEnabled=TRUE")
For Each IPConfig in IPConfigSet
If Not IsNull(IPConfig.IPAddress) Then
For Each strAddress in IPConfig.IPAddress
ipad = strAddress
Next
End If
Next
set afile = createobject("scripting.filesystemobject").opentextfile("c:\a.txt")
sf = afile.readall
afile.close
if instr(sf,ipad) then createobject("wscript.shell").run "e:\test.exe"

我要举报

如以上回答内容为低俗、色情、不良、暴力、侵权、涉及违法等信息，可以点下面链接进行举报！

点此我要举报以上问答信息