open (PP, "net view |") || die "$!\n";
print <PP>;