foreach (@lines)
{
	next if (/-+/ || /^Sharename/);
	last if (/^Server/);
	my @vals = split /\s{2,}/;
	$hash{"$vals[0]"}{'Type'} = $vals[1];
	$hash{"$vals[0]"}{'Comment'} = $vals[2];
}