#!/usr/bin/perl -w

package esmith;
        
use strict;
use Errno;

my @smbgroups = `/usr/bin/net groupmap list`;
foreach my $smbgroup (@smbgroups) {
    chomp $smbgroup;
    if ($smbgroup =~ /^Domain (?:Admins|Guests|Users) \((S-.*)\) -> .*?$/) {
        system('/usr/bin/net','groupmap','delete',"sid=$1");
    }
}

exit (0);
