Как ввести логин и выслать по e-mail на vbs?

[Ppaa]

Есть вот такой скрипт

Const EmailFrom = "test@email.com"      

Const strSmtpServer = "mail.ru"  
Const EmailTo = "test@email.ru"
Set objEmail = CreateObject("CDO.Message")

objEmail.From = EmailFrom
objEmail.To = EmailTo
objEmail.Subject = "Подключение выполнено"
objEmail.Textbody = "Абонент подключен в " & CStr(Time) & " " & CStr(Date)
objEmail.Configuration.Fields.Item ("http://schemas.microsoft.com/cdo/configuration/sendusing") = 2
objEmail.Configuration.Fields.Item ("http://schemas.microsoft.com/cdo/configuration/smtpauthenticate") = 1
objEmail.Configuration.Fields.Item ("http://schemas.microsoft.com/cdo/configuration/sendusername") = EmailFrom
objEmail.Configuration.Fields.Item ("http://schemas.microsoft.com/cdo/configuration/sendpassword") = EmailPassword
objEmail.Configuration.Fields.Item ("http://schemas.microsoft.com/cdo/configuration/smtpserver") = strSmtpServer
objEmail.Configuration.Fields.Item ("http://schemas.microsoft.com/cdo/configuration/smtpserverport") = 25
objEmail.Configuration.Fields.Update
objEmail.Send
WScript.Quit

Отсылающий письмо с указанным темой и текстом. Как сделать так, чтобы перед отсылкой появлялся диалог с запросом на ввод логина (произвольное кол-во букв и цифр) и введенный логин включался бы в текст письма и отсылался по e-mail?
Заранее благодарен.