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

来源：百度知道 编辑：UC知道 时间：2024/05/27 00:06:20
就是，VBS脚本运行自动判断本机IP，然后到a.txt或a.ini里面查找是否有这个IP地址，如果有的话就运行e:\test.exe，如果没有就不运行？
大哥，我怎么得到的是外网的IP呢？本地链接里的属性我写的是 196.254.XX.XX 我想得到这个有办法吗？谢谢大哥

你在局域网中吗?如果不在局域网中,这个地址是无效的.
我做过获取外网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"