Загрузка данных

Set objWMIService = GetObject("winmgmts:\\.\root\cimv2")

Set colItems = objWMIService.ExecQuery( _
    "SELECT * FROM Win32_NetworkAdapterConfiguration WHERE IPEnabled=True")

For Each objItem In colItems
    If Not IsNull(objItem.IPAddress) Then
        For Each strIP In objItem.IPAddress
            If InStr(strIP, ".") > 0 Then
                Echo strIP
                WScript.Quit
            End If
        Next
    End If
Next