Sending an email via SMTP with VBScript

Sub VBScriptProcedure
    Set objMessage = CreateObject("CDO.Message") 
    objMessage.Subject = "TEST SUBJECT!" 
    objMessage.From = "from@email.com" 
    objMessage.To = "to@email.com" 
    objMessage.TextBody = "Test Body"
    Set objConfig = objMessage.Configuration
    objConfig.Fields("http://schemas.microsoft.com/cdo/configuration/sendusing") = 2 
    objConfig.Fields("http://schemas.microsoft.com/cdo/configuration/smtpserver") = "smtp.server.com"
    objConfig.Fields("http://schemas.microsoft.com/cdo/configuration/smtpauthenticate") = 1
    objConfig.Fields("http://schemas.microsoft.com/cdo/configuration/sendusername") = "username"
    objConfig.Fields("http://schemas.microsoft.com/cdo/configuration/sendpassword") = "password"
    'Server port (typically 25)
    objConfig.Fields("http://schemas.microsoft.com/cdo/configuration/smtpserverport") = 25
    objConfig.Fields("http://schemas.microsoft.com/cdo/configuration/smtpusessl") = true
    objConfig.Fields("http://schemas.microsoft.com/cdo/configuration/smtpconnectiontimeout") = 60
    objConfig.Fields.Update
    objMessage.Send
End Sub