Imail orphan cleaner in Perl

This perl script will compare your active directory and your imail directory. Any accounts that do not exist in AD will be moved to your orphan directory and their registry settings will be exported and deleted.
<br /> #Find Imail Orphans</p> <p>use Win32::OLE;<br /> use Array::Diff;</p> <p>my $ImailUsers = “G:\\ImailUsersDirectory\\users\\”;<br /> my $imailorphan = “G:\\DirectorytoPutOrphans\\”;<br /> my $imailReg = “HKLM\\SOFTWARE\\Ipswitch\\Imail\\Domains\\ImailRegistryKey\\Users\\”;</p> <p>@arrAD = ();<br /> @arrFolder = ();</p> <p>$baseusers = “dc=yourdomain,dc=local”;<br /> #Get Users from AD<br /> my $connObj = Win32::OLE->new(‘ADODB.Connection’);<br /> $connObj->{Provider} = “ADsDSOObject”;<br /> $connObj->Open;<br /> my $commObj = Win32::OLE->new(‘ADODB.Command’);<br /> $commObj->{ActiveConnection} = $connObj;<br /> $commObj->Properties->{‘Page Size’} = 1000;</p> <p> #Generate Ldap Search String<br /> my $query = “<ldap: baseusers="">;”;</p> <p> $query .= “(&(objectClass=user)(objectCategory=person));”;<br /> $query .= “sAMAccountName;”;<br /> $query .= “subtree”;<br /> $commObj->{CommandText} = $query;</p> <p>opendir MYDIR, $ImailUsers;<br /> @contents = readdir MYDIR;<br /> closedir MYDIR;</p> <p>foreach $folder (@contents)<br /> {<br /> if (($folder ne ‘..’) && ($folder ne ‘.’) && (-d $ImailUsers . $folder))<br /> {<br /> push (@arrFolder, lc($folder));<br /> }</p> <p>}#end for</p> <p>my $resObj = $commObj->Execute($query); die “Could not query $base: “,$Win32::OLE::LastError,”\n” unless ref $resObj;<br /> while (!($resObj->EOF))<br /> {<br /> $strUserDN = $resObj->Fields(“sAMAccountName”)->value;<br /> push (@arrAD, lc($strUserDN));<br /> $resObj->MoveNext;<br /> }#end if</p> <p>@arrAD = sort(@arrAD);<br /> @arrFolder = sort(@arrFolder);</p> <p>my $diff = Array::Diff->diff(\@arrAD,\@arrFolder);</p> <p>if ($diff->count !=0)<br /> {<br /> foreach (@{$diff->added})<br /> {<br /> system(“move ” . $ImailUsers . $_ . ” ” . $imailorphan);<br /> system(“reg export ” . $imailReg . $_ . ” ” . $imailorphan . $_ . “\\” . $_ . “.reg”);<br /> system(“reg delete ” . $imailReg . $_ . ” /f”);<br /> }<br /> }<br />