Vista - set an extra SMTP-address exchange 2003

Small simple script for setting extra smtp.-addresses based on
existing ones

' This script sets an extra smtp address on users in an OU based on
the leftside of the primary SMTPaddress.
' The rightside of the smtp-address is chosen by you but is ad.local
in this example
' The variable strOU decides where your users are


Set objRootLDAP = GetObject("LDAP://rootDSE")
strDNSDomain = objRootLDAP.Get("DefaultNamingContext")
strOU="OU=subOU2, OU=SubOU, OU=TopOU," ' <------ NB!!! Comma at the
end

Set objOU = GetObject("LDAP://" & strOU & strDNSDomain)

on error resume next
for each objChildObject in objOU

strobjectDN=objChildObject.Name
Set objUser = GetObject("LDAP://" & strObjectDN & "," & strOU &
strDNSDomain)
strproxy = objUser.Get("mail")
address = Split(strproxy,Chr(64))
leftside = address(0)
newsmtp = "smtp:" & leftside & "@ad.local"

objUser.PutEx ADS_PROPERTY_APPEND, "proxyAddresses", Array(newsmtp)
objuser.SetInfo()


Next

WScript.Quit