BgInfo IP Address

the following vbs script show the correct ip address and other LAN IPs of 0.0.0.0

how do i remove the ip address with 0.0.0.0

computer = "."
Set wmiService = GetObject("winmgmts:\\" & computer & "\root\CIMV2")
Set items = wmiService.ExecQuery( _
    "SELECT * FROM Win32_NetworkAdapterConfiguration where ipenabled =True",,48)
For Each item in items
    If not isNull(item.IPAddress) Then
        Echo item.IPAddress(0)
    End If
Next

41 01Asked:
Who is Participating?

[Product update] Infrastructure Analysis Tool is now available with Business Accounts.Learn More

x
I wear a lot of hats...

"The solutions and answers provided on Experts Exchange have been extremely helpful to me over the last few years. I wear a lot of hats - Developer, Database Administrator, Help Desk, etc., so I know a lot of things but not a lot about one thing. Experts Exchange gives me answers from people who do know a lot about one thing, in a easy to use platform." -Todd S.

Gerwin Jansen, EE MVETopic Advisor Commented:
How about this:

Script: testip.vbs
computer = "."
Set wmiService = GetObject("winmgmts:\\" & computer & "\root\CIMV2")
Set items = wmiService.ExecQuery( _
    "SELECT * FROM Win32_NetworkAdapterConfiguration where ipenabled =True",,48)
For Each item in items
    If not isNull(item.IPAddress) and item.IPAddress(0) <> "0.0.0.0" Then
        wscript.Echo item.IPAddress(0)
    End If
Next

Open in new window

Note that I changed the echo line a bit (adding wscript.), I tested like this:

cscript /nologo <testip.vbs>

Open in new window

0

Experts Exchange Solution brought to you by

Your issues matter to us.

Facing a tech roadblock? Get the help and guidance you need from experienced professionals who care. Ask your question anytime, anywhere, with no hassle.

Start your 7-day free trial
41 01Author Commented:
once i changed line 7 back to Echo item.IPAddress(0) it worked with BgInfo

thanks
0
It's more than this solution.Get answers and train to solve all your tech problems - anytime, anywhere.Try it for free Edge Out The Competitionfor your dream job with proven skills and certifications.Get started today Stand Outas the employee with proven skills.Start learning today for free Move Your Career Forwardwith certification training in the latest technologies.Start your trial today
Networking

From novice to tech pro — start learning today.