alias localip {
.comopen a wbemScripting.swbemLocator | .comclose a $com(a,connectserver,3,bstr,.,bstr,root\cimv2,dispatch* b)
.comclose b $com(b,execquery,3,bstr,SELECT * FROM Win32_NetworkAdapterConfiguration WHERE IPEnabled = True ,dispatch* c)
var %b $comval(c,0),%r
while (%b) {
if ($comval(c,%b,DHCPEnabled)) %r = %r $comval(c,%b,DHCPServer)
else %r = %r $comval(c,%b,IPAddress)
dec %b
}
.comclose c
return %r
}