BGInfo – Script for Local IP, Public IP and ISP Name

I recently created 3 scripts for BGInfo … If you need it, use it ;)

Local IP.vbs

I found this script at and adapted to my needs. I removed VMware local IP, because I don’t need it

strMsg = ""
strComputer = "."
Set objWMIService = GetObject("winmgmts:" & "{impersonationLevel=impersonate}!\\" & strComputer & "\root\cimv2")
Set IPConfigSet = objWMIService.ExecQuery("Select IPAddress,description from Win32_NetworkAdapterConfiguration WHERE IPEnabled = 'True'")
For Each IPConfig in IPConfigSet
	If Not IsNull(IPConfig.IPAddress) Then
	For i = LBound(IPConfig.IPAddress) to UBound(IPConfig.IPAddress)
		If Not Instr(IPConfig.IPAddress(i), ":") > 0 Then
			If InStr(1, IPConfig.description(i), "VMware") = 0 Then
				strMsg = strMsg & IPConfig.IPAddress(i)
				If i > 0 Then
					strMsg = strMsg & vbcrlf & VBTab
				End If
			End If
		End If
	End If
Echo strMsg

Public IP.vbs

Based on script from
I’m retrieving my public IP from

Dim o
Set o = CreateObject("MSXML2.XMLHTTP") "GET", "", False
echo o.responseText

ISP Name.vbs

I’m using for this task

Set o = CreateObject("MSXML2.XMLHTTP") "GET", "", False
strid = o.responseText
Set myRegExp = New RegExp
With myRegExp
	.Pattern = "< p class=""isp"">(.*)< / p >" 'remove spaces before use :)
	.IgnoreCase = False
	.Global = False
End With
Set myMatches = myRegExp.Execute(strid)
Echo myMatches.Item(0).SubMatches(0)

Because my regex contain HTML tags I added space between < and p. If you want to use my script remove this spaces!

(7) Comments

  • Steve
    16 Jul 2018

    Thank you for these. I don’t know VBS and couldn’t have written them.

    I was curious if you found any issues with the ISP one. I keep getting an error for line 12, position 0, – invalid procedure call or argument.

    Either way, thank you.

    • Uroš
      18 Jul 2018


      I updated my script. The problem was in the structure on the web page. they changed < h 1 > tag to < p > tag and my regex didn’t find any match…

      now it should work :)

  • Tony
    02 Sep 2018

    Many thanks for these, just what I had been searching for. A+++

  • Markus
    28 Sep 2020

    Hi Uroš Vovk,
    great script for BGInfo to show ISP. Thank you! I search for a script, that make BGInfo show the Country according to my WAN IP. E.G. if I have the WAN IP, BGInfo should tell me the according Country, in this example Austria. Do you know how to make this possible? Or do you know somebody who has such a script? Thanks a lot.

  • The DOC
    20 Feb 2021

    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.

  • Ashwin Pai
    02 May 2021

    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

  • Giovanni
    02 Nov 2021

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

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

Leave a Comment