Vbs Email Spam Script lol

Stick the following code as text into a file with a ".vbs" file.
----------------------------------------­-------------------------
Set objEmail = CreateObject("CDO.Message")

objEmail.Subject = InputBox("Email Subject:","Email")
objEmail.To = InputBox("Email To:","Email")
objEmail.TextBody = InputBox("Email Message:","Email")
objEmail.From = "[email protected]"
objEmail.Configuration.Fields.Item("­;http://schemas.microsoft.com/cdo/conf...) = 2
objEmail.Configuration.Fields.Item("­;http://schemas.microsoft.com/cdo/conf...) = "smtp.gmail.com"
objEmail.Configuration.Fields.Item("­;http://schemas.microsoft.com/cdo/conf...) = 465
objEmail.Configuration.Fields.Item("­;http://schemas.microsoft.com/cdo/conf...) = 1
objEmail.Configuration.Fields.Item("­;http://schemas.microsoft.com/cdo/conf...) = "[email protected]"
objEmail.Configuration.Fields.Item("­;http://schemas.microsoft.com/cdo/conf...) = "die7EiD7D"
objEmail.Configuration.Fields.Item("­;http://schemas.microsoft.com/cdo/conf...) = True
objEmail.Configuration.Fields.Update

for i=0 to InputBox("Number Of Messages:","Email")
objEmail.Send
next