#
# Aus der Gruppe die Mitgliedschaften auslesen
#
"Programmstart"
$gruppe=get-qadgroup -display "Umstellung" 
# über alle Gruppenmember laufen
for ($memberCount=0; $memberCount -le $gruppe.member.count-1; $memberCount++)
{
$userLangName=$gruppe.member[$memberCount]
$user=[ADSI]"LDAP://$userLangName"
$email=$user.proxyAddresses
# über alle ProxyAdressen des Users laufen
for ($adrCount=0; $adrCount -le $email.count-1 ;$adrCount++)
{
$fulladdress=$email[$adrCount]
# Typ-Teil (SMTP, X400 etc.)
$typ=$fulladdress.substring(0,5)
# wirkliche E-Mail-Adresse (foo@bar.com)
$address=$fulladdress.substring(5)
# evtl. bestehende sekundäre bgetem.de-Adresse löschen
if($typ -ceq "smtp:" -and $address -match "bgetem.de$")
{ 
#$email.Remove("$fulladdress")
$user.proxyAddresses.Remove("$fulladdress")
"alte BGETEM-Adresse $fulladdress gelöscht"
} 
}
# Änderungen wegschreiben
$user.setinfo()
}
 
Exclaimer Rule Name: NETsec internal (10/2009)