Comments on: BGInfo – Script for Local IP, Public IP and ISP Name

By: JimSprings

JimSprings — Sat, 21 Dec 2024 18:52:53 +0000

Let me try again… comment board keeps removing the HTML tags even if you put spaces in them. For the script below to work, replace the uppercase letters LT with the less-than symbol and uppercase GT with the greater-than symbol typically used in HTML tags.

Set o = CreateObject(“MSXML2.XMLHTTP”)
o.open “GET”, “https://www.whatismyisp.com”, False
o.send
strid = o.responseText
Set myRegExp = New RegExp
With myRegExp
.Pattern = “LTspan class=””block text-4xl””GT(.*)LT/spanGT”
.IgnoreCase = False
.Global = False
End With
Set myMatches = myRegExp.Execute(strid)
Echo myMatches.Item(0).SubMatches(0)

By: JimSprings

JimSprings — Sat, 21 Dec 2024 18:45:43 +0000

Revised script for ISP name, this works as of December, 2024:

Set o = CreateObject(“MSXML2.XMLHTTP”)
o.open “GET”, “https://www.whatismyisp.com”, False
o.send
strid = o.responseText
Set myRegExp = New RegExp
With myRegExp
.Pattern = “(.*)” ‘remove spaces before use :)
.IgnoreCase = False
.Global = False
End With
Set myMatches = myRegExp.Execute(strid)
Echo myMatches.Item(0).SubMatches(0)

By: Castiel

Castiel — Mon, 05 Aug 2024 06:11:05 +0000

Updated version for ISP Name:

Set o = CreateObject(“WinHttp.WinHttpRequest.5.1”)
o.Open “GET”, “http://ip-api.com/json”, False
o.Send
strid = o.ResponseText

Set myRegExp = New RegExp
With myRegExp
.Pattern = “””isp””:””([^””]*)”””
.IgnoreCase = False
.Global = False
End With

Set myMatches = myRegExp.Execute(strid)
If myMatches.Count > 0 Then
Echo myMatches.Item(0).SubMatches(0)
Else
Echo “ISP not found”
End If

By: Dan

Dan — Sat, 04 Nov 2023 14:17:53 +0000

The site changed. This script works for me.:
‘ bgISPName.vbs
Dim o
Set o = CreateObject(“MSXML2.XMLHTTP”)
‘ o.open “GET”, “https://api.ipify.org”, False
‘ o.send
‘ Set o = CreateObject(“MSXML2.XMLHTTP”)
‘ o.open “GET”, “https://www.whoismyisp.org”, False
o.open “GET”, “https://www.whatismyisp.com”, False
o.send
strid = o.responseText
Set myRegExp = New RegExp
With myRegExp
.Pattern = “(.*)” ‘remove spaces before use :)
.IgnoreCase = False
.Global = False
End With
Set myMatches = myRegExp.Execute(strid)

ispname=myMatches.Item(0).SubMatches(0)

wscript.echo myMatches.Item(0).SubMatches(0)
wscript.echo ispname

By: Christian

Christian — Wed, 21 Sep 2022 15:38:01 +0000

Hi
Many thanks for the script “ISP Name.vbs”. I used them for several months.
It seems html page on target server changed, the script returns now empty name.

By: Jan

Jan — Mon, 23 May 2022 15:28:48 +0000

Hi Uroš,

Your script ISP Name.vbs worked like a charm, but now it looks like the html on “https://www.whoismyisp.org” has changed again.

I get the same error as Giovanni.

Can you please look at it?

Kind regards,

Jan

By: noobmiysis

noobmiysis — Sun, 15 May 2022 22:21:02 +0000

same here for ISP vbs :

Error evaluating scripted field ‘ISP Name’
Microsoft VBScript run-time error
Line 13, position 0
Invalid procedure call or argument

By: Giovanni

Giovanni — Tue, 02 Nov 2021 10:57:13 +0000

Hi, thank you for your work! Is it possible that ISP Name.vbs script doesn’t work anymore? Now I get the error code:

BGInfo
—————————
Error evaluating scripted field ‘ISP Name’
Microsoft VBScript run-time error
Line 13, position 0
Invalid procedure call or argument
—————————
OK
—————————

By: Ashwin Pai

Ashwin Pai — Sun, 02 May 2021 17:23:14 +0000

Thank you for the scripts. I have been using them for more than a year and have it in a batch file and nothing has changed. However recently for ISPName.vbs
I am getting ” Invalid procedure call or argument for “Echo myMatches.Item(0).SubMatches(0)”
Must be some Windows update

By: The DOC

The DOC — Sat, 20 Feb 2021 13:54:20 +0000

Unfortunately, the display of the IP address is poor with several adapters, as they are displayed one after the other without any space between them. So you have a long chain of numbers without the necessary distinction. Should definitely be improved.