my @net_info = `net config`;

# @net_info should contain lines of output
# produced by the 'net config' command.
# I hope they should contain work group info?

while (@net_info) {
  # parse the line here...

  print "$_\n";
}

##</code><code>##

# Under Construction