ADSI og Exchange attributes
sub DisableOutGoingMail{
$BrugerId = $_[0];
unless ($objDomain = Win32::OLE->GetObject("LDAP://cn=Users,dc=DomainSlName,dc=DomainTlName"))
{
die Win32::OLE->LastError();
}
if ( $adsUser = $objDomain->GetObject("user","cn="."$BrugerId") )
{
$adsUser->Put("msExchHideFromAddressLists", True);
$adsUser->SetInfo;
}
else
{
print "Bruger ikke fundet";
}
}
=== Main ===
$UserID = "XxxX";
DisableOutGoingMail( $UserID );
Mit spørgsmål er: Hvordan påvirker man exchange properties via ADSI i et AD miljø. Det er min opfattelse at exchange attributterne er på brugeren. Men måske er det selve kaldet der går i ged. Her er fejl koden:
Attribute syntax to the specified directory service is invalid.
--Kelo
