I recently created 3 scripts for BGInfo … If you need it, use it ;)
Local IP.vbs
I found this script at ardamis.com 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 Next End If Next Echo strMsg |
Public IP.vbs
Based on script from howtogeek.com
I’m retrieving my public IP from ipify.org
Dim o Set o = CreateObject("MSXML2.XMLHTTP") o.open "GET", "https://api.ipify.org", False o.send echo o.responseText |
ISP Name.vbs
I’m using whoismyisp.org for this task
Set o = CreateObject("MSXML2.XMLHTTP") o.open "GET", "https://www.whoismyisp.org", False o.send 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) |
IMPORTANT:
Because my regex contain HTML tags I added space between < and p. If you want to use my script remove this spaces!



Running Disc Cleanup will free max 2-3GB of space. This will help you, but won’t solve low disk space problems… After a while this file will be back again and we will need to do the cleanup again and again…
Uninstall unused applications is always a good idea. Doing this you will probably gain some free space, possibly you will speed up your PC too.
If you use any other system backup tool you can turn Windows System protection off, otherwise you can set max disk usage for system restore points.