查询给的IP地址所在的国家,ADSL服务商名称:
前提:需要提供一个纯真的IP库,这个可以只需将从网上搜索QQWry.dat进行搜索这个文件下载即可,然后将该文件放到与该脚本同目录下即可。
原文地址:http://demon.tw/programming/vbs-qqwry-dat.html
Class' ============================================' 变量声名' ============================================PublicPublicPrivatePrivatePrivatePrivate' ============================================' 类模块初始化' ============================================PrivateSub"""""QQWry.Dat"EndSub' ============================================' 类终结' ============================================PrivateSubOnErrOrResumeNextIfThenSetNothingEndSub' ============================================' IP地址转换成整数' ============================================FunctionDim"."FOrtoIfNotThenIfCIntThenCIntIfCIntThenNextCIntCIntCIntCIntEndFunction' ============================================' 整数逆转IP地址' ============================================FunctionCstr"."Cstr"."Cstr"."CstrEndFunction' ============================================' 获取开始IP位置' ============================================PrivateFunctionEndFunction' ============================================' 获取结束IP位置' ============================================PrivateFunctionEndFunction' ============================================' 获取地域信息,包含国家和和省市' ============================================PrivateSubIfOrThenIfThen' 以下用来获取数据库版本信息If"255.255.255.0"And"255.255.255.255"ThenEndIfElseEndIfElseEndIf' 过滤数据库中的无用信息If"CZ88.NET"Then""If"CZ88.NET"Then""EndSub' ============================================' 获取IP地址标识符' ============================================PrivateFunctionDimDoWhileTrueIfOrThenIfThenEndIfElseExitDoEndIfLoopIfThen""ElseEndIfEndFunction' ============================================' 获取字串信息' ============================================PrivateFunctionDim""DoWhileTrueIfThenExitDo'如果是双字节,就进行高字节在结合低字节合成一个字符IfThenIfThenExitDoElseEndIfLoopEndFunction' ============================================' 核心函数,执行IP搜索' ============================================PublicFunctionDimDimSet"ADodb.Stream"' 在数据库中找不到任何IP地址IfThen"未知"ExitFunctionEndIfDoWhileCallIfThenExitDoEndIfIfThenElseEndIfLoopCallCallIfAndThen' 没有找到Else' 正常EndIfCallEndFunctionEndClassSetNew"8.8.8.8"
WScript.Echo Wry.Country & "/" & Wry.LocalStr
本文转自hcy's workbench博客园博客,原文链接:http://www.cnblogs.com/alterhu/archive/2012/04/08/2438172.html,如需转载请自行联系原作者。