A. The following script will write to screen each IP address on a client.

Option Explicit
Dim IPConfigSet, IPConfig, i

set IPConfigSet = GetObject("winmgmts:\{impersonationLevel=impersonate\}!root\cimv2").ExecQuery("SELECT IPAddress, DefaultIPGateway FROM Win32_NetworkAdapterConfiguration WHERE IPEnabled=TRUE")
for each IPConfig in IPConfigSet
  if Not IsNull(IPConfig.IPAddress) then
    wscript.echo IPConfig.IPAddress(i)
  end if

The output below shows a sample execution.

D:\temp>cscript listip.vbs
Microsoft (R) Windows Script Host Version 5.6
Copyright (C) Microsoft Corporation 1996-2001. All rights reserved.