vbs查询IP地址的位置代码

以下是通过VBS查询IP地址位置的示例代码：

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地址所在的国家和城市。