alias myips {
.comopen loc WbemScripting.SWbemLocator
.comclose loc $com(loc, ConnectServer, 3, dispatch* query)
noop $com(query, ExecQuery, 3, bstr, Select * from Win32_NetworkAdapter WHERE NetConnectionStatus = 2, dispatch* adapter)
var %a $comval(adapter,0)
while (%a) {
hadd -m getips $comval(adapter,%a,Index) $comval(adapter,%a,NetConnectionID)
dec %a
}
noop $com(query, ExecQuery, 3, bstr, Select * from Win32_NetworkAdapterConfiguration WHERE IPEnabled = True, dispatch* ips)
var %cv $comval(ips,0)
while (%cv) {
if ($hget(getips,$comval(ips, %cv, Index)) != $null) {
noop $comval(ips, %cv, IPAddress,&test).result
breplace &test 0 32
echo -s $bvar(&test,1-).text
}
dec %cv
}
:error
if ($error || %err) {
echo -a /myips: $v1
reseterror
}
hfree getips
.comclose query
.comclose adapter
.comclose ips
}