Ah, you're actually asking something different than what I thought you were. Not sure how to get the IP in your scenario. Is this of any use? The relevant part:
Code:
'Get IP address of the computer and display it in the window
Set IPConfigSet = objWMIService.ExecQuery _
    ("Select * 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)
            objdocument.WriteLn "IP Address:        " & IPConfig.IPAddress(i) & "<br>"
        Next
    End If
Next
That may only be getting the IP of your own system though... I'm really not sure.