Скрипт для Exchange

[Aa123456 Профиль]

Доброго дня! Сразу извиняюсь, если чукча кого то своим незнанием растроил. Т.к. я вообще раньше кромне паскаля и делфи ни на чём не программировал и вбс для меня лес, в котором я вижу тропы, некоторые из которых непонимаю куда видут.
Проблемка следующая, есть скрипт для экса 2003, чтобы при создании нового юзера с почтовым ящиком при первом заходе в него выскакивало сообщение с линками (прототип первого сообщения от майкрософт)
Скрипт:

Dim StrDate, CurrentUTC

'Create the current date and time stamp for query for day before last
CurrentUTC = DatePart("yyyy", Date)
'now add Month in mm if only M add leading 0
if DatePart("m" , Now) < 10 then
CurrentUTC = CurrentUTC & 0 & DatePart("m" , Now)
else
CurrentUTC = CurrentUTC & DatePart("m" , Now)
end if
'now add Day in dd if only d add leading 0
if DatePart("d" , Now) < 10 then
'OPTIONAL - FOR MANY DAYS, replace line below with CurrentUTC = CurrentUTC & 0 & DatePart("d" , Now - X) where X = # of days

CurrentUTC = CurrentUTC & 0 & DatePart("d" , Now)
else
'OPTIONAL - FOR MANY DAYS, replace line below with CurrentUTC = CurrentUTC & DatePart("d" , Now - X) where X = # of days
CurrentUTC = CurrentUTC & DatePart("d" , Now)
end if
' Tag hour, minute, second on
strDate = CurrentUTC&"000001.0Z"

'Create AD Connection
Set oConnection1 = CreateObject("ADODB.Connection")
Set oCommand1 = CreateObject("ADODB.Command")
oConnection1.Provider = "ADsDSOObject" ' This is the ADSI OLE-DB provider name
oConnection1.Open "Active Directory Provider"
' Create a command object for this connection.
Set oCommand1.ActiveConnection = oConnection1
'Set Query definition

oCommand1.CommandText = "select mail from 'LDAP://DC=Fabrikam, DC=com' WHERE objectCategory='Person' AND objectClass='user'AND msExchHideFromAddressLists<>'True' AND whenCreated>='" & strDate & "'"

oCommand1.Properties("Page Size") = 30000
' Execute the query.
Set rs = oCommand1.Execute


rs.movefirst
'Create the loop of results
Do Until rs.EOF = True

'Create Email
Set objEmail = CreateObject("CDO.Message")
objEmail.From = "Admin@fabrikam.com"
objEmail.To = rs.Fields("mail")
'Optional BCC field
'objEmail.BCC = "Admin@fabrikam.com"
objEmail.Subject = "A welcome message from Exchange"
objEmail.HTMLbody = "Welcome to Fabrikam. Please click on the attached file for a message."

'Optional Add an attachment
objEmail.AddAttachment "C:\new_hire_audio_message.wav"


objEmail.Configuration.Fields.Item _
("http://schemas.microsoft.com/cdo/configuration/sendusing ") = 2
objEmail.Configuration.Fields.Item _
("http://schemas.microsoft.com/cdo/configuration/smtpserver ") = _
"ExchangeServer" 'Replace ExchangeServer with server IP or name
objEmail.Configuration.Fields.Item _
("http://schemas.microsoft.com/cdo/configuration/smtpserverport ") = 25
objEmail.Configuration.Fields.Update

'Optional - Read the message before it's sent
'MsgBox objEmail.GetStream.ReadText
objEmail.Send
rs.movenext
Loop

'Close AD Connection
oConnection1.close


Так вот там есть такая строка:
Set rs = oCommand1.Execute


rs.movefirst
Что воодить туда? Я непонимаю, вообще что и для чего эта строка, но без неё так понял скрипт работать не будет, или будет, но не т.к. нужно. Помогите пожалуйста в моей беде. Буду с радостью ждать дельного ответа.