Exchange 2008 - Welcome email

I have seen many of these, but non related to Exchange 2008.  I have been told that in 2008 this functionality is not available and it has to be scripted.  What I am looking for is an email to be autogenerated for every new account that is set in AD.  We will put the appropriate welcome content in this email.  Does anyone know if we can do this natively or where a powershell script or other could be found?
Who is Participating?
I wear a lot of hats...

"The solutions and answers provided on Experts Exchange have been extremely helpful to me over the last few years. I wear a lot of hats - Developer, Database Administrator, Help Desk, etc., so I know a lot of things but not a lot about one thing. Experts Exchange gives me answers from people who do know a lot about one thing, in a easy to use platform." -Todd S.

Malli BoppeCommented:
I Hvae used this script in the past

Dim objConnection, objCommand, objRecordSet, objRootDSE, objMessage

Set objConnection = CreateObject("ADODB.Connection")
objConnection.Provider = "ADsDSOObject"
objConnection.Open "Active Directory Provider"

Set objCommand = CreateObject("ADODB.Command")
objCommand.ActiveConnection = objConnection

Set objRootDSE = GetObject("LDAP://RootDSE")
objCommand.CommandText = _
 "Select name,mail,whencreated  from 'LDAP://ou=staff,ou=Accounts,dc=domain,dc=com'"
Set objRootDSE = Nothing

objCommand.Properties("Page Size") = 10000
objCommand.Properties("Timeout") = 600
objCommand.Properties("Cache Results") = False

Set objRecordSet = objCommand.Execute

While Not objRecordSet.EOF

If StrComp(Left(objRecordSet.Fields("whencreated"), 10), Date-2) = 0 Then
Set objMessage = CreateObject("CDO.Message")
objMessage.from = ""
objMessage.To = objRecordSet.Fields("mail")
objMessage.subject = "Welcome to Comapny"
objMessage.TextBody = BodyText
objMessage.CreateMHTMLBody "file://G:\Welcome.htm"

objMessage.Configuration.Fields.Item("") = 2  
objMessage.Configuration.Fields.Item("") = "Ip Address of exchange server"
objMessage.Configuration.Fields.Item(" ") = 25

End If


Set objRecordSet = Nothing
Set objCommand = Nothing
Set objConnection = Nothing

Experts Exchange Solution brought to you by

Your issues matter to us.

Facing a tech roadblock? Get the help and guidance you need from experienced professionals who care. Ask your question anytime, anywhere, with no hassle.

Start your 7-day free trial
Just a clarification is that Exchange 2008?

jeffnoremAuthor Commented:
Sorry, Fat fingered... 2007
It's more than this solution.Get answers and train to solve all your tech problems - anytime, anywhere.Try it for free Edge Out The Competitionfor your dream job with proven skills and certifications.Get started today Stand Outas the employee with proven skills.Start learning today for free Move Your Career Forwardwith certification training in the latest technologies.Start your trial today

From novice to tech pro — start learning today.

Question has a verified solution.

Are you are experiencing a similar issue? Get a personalized answer when you ask a related question.

Have a better answer? Share it in a comment.