alias getInet {
.comopen a WbemScripting.SWbemLocator
.comclose a $com(a,ConnectServer,3,dispatch* b)
.comclose b $com(b,ExecQuery,3,bstr*,select Name from Win32_PerfRawData_Tcpip_NetworkInterface,dispatch* c)
var %r = $comval(c,0)
while (%r) { echo -a $comval(c,%r,Name) | dec %r }
:error
if ($error) reseterror
if ($com(a)) .comclose a
if ($com(b)) .comclose b
if ($com(c)) .comclose c
}