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!

(3) 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+++

Leave a Reply to Steve cancel reply