oNetList = GetObject("WinNT:")

for each oNet in oNetList
    for each oComp in oNet
        if oComp.Class = "Computer" Then
            ? oComp.Name
        endif
    next
next