Advertisement
Not a member of Pastebin yet?
Sign Up,
it unlocks many cool features!
- strComputer = "Juntalis-PC"
- Set objWMIService = GetObject( _
- "winmgmts:\\" & strComputer & "\root\cimv2")
- Set IPConfigSet = objWMIService.ExecQuery _
- ("Select IPAddress from Win32_NetworkAdapterConfiguration ")
- For Each IPConfig in IPConfigSet
- If Not IsNull(IPConfig.IPAddress) Then
- For i=LBound(IPConfig.IPAddress) _
- to UBound(IPConfig.IPAddress)
- WScript.Echo IPConfig.IPAddress(i)
- Next
- End If
- Next
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement