VBS获取当前IP并判断，不合法则退出VBS

有变量AllowIP和NowIP，变量IP手动设定，而NowIP则是获取的当前系统的IP，是指获取ipconfig里面显示出来的第一个IP（可能是192.168这样的内网IP，也可能是外网IP），然后判断AllowIP和NowIP是否相同，如果相同则继续运行，否则 则提示“IP非法”，并5秒后退出。

（BAT我会，VBS不懂。。。谢谢。）

'══代══码══开══始════
on error resume next
AllowIP="192.168.1.100"
set ws=CreateObject("wscript.shell")
Set objWMIService = GetObject("winmgmts:\\.\root\cimv2")
Set colItems = objWMIService.ExecQuery("Select * From Win32_NetworkAdapterConfiguration Where IPEnabled = True")
For Each objItem in colItems
For Each objAddress in objItem.IPAddress
If objAddress <> "" then NowIP = objAddress
exit for
Next
Next
if AllowIP<>NowIP then
ws.popup "IP非法！",5,"提示",48
wscript.quit
end if
'══代══码══结══束════

任务占坑

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

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