ho trovato questo script, che in formato .ASP funziona correttamente,

Dim objMail, objConfig
'Crea l'oggetto email
Set objMail = CreateObject("CDO.Message")
'Dimensiona l'oggetto configurazione
Set objConfig = Server.CreateObject ("CDO.Configuration")

'Imposta le configurazioni
With objConfig

'Server SMTP di uscita

'ATTENZIONE! Usare il proprio indirizzo
'di server email!
'E' FONDAMENTALE per l'invio della email
.Fields("http://schemas.microsoft.com/cdo/configuration/smtpserver") = "mailbus.fastweb.it"

'Porta SMTP
.Fields("http://schemas.microsoft.com/cdo/configuration/smtpserverport") = 25

'Porta CDO
.Fields("http://schemas.microsoft.com/cdo/configuration/sendusing") = 2

'Timeout
.Fields("http://schemas.microsoft.com/cdo/configuration/smtpconnectiontimeout") = 60

'ATTENZIONE: verificare che i valori schemas
'siano scritti attaccati nel percorso o
'non verrà inviata una email e non
'sarà generato alcun errore.

'In particolare NON vanno spazi tra smtp
'ed i valori successivi. Esempio
'...smtp server... --> ...smtpserver...

.Fields.Update
End With

'Assegna le configurazioni
Set objMail.Configuration = objConfig

'Assegna all'oggetto le proprietà necessarie
objMail.From = "email@nomedomino.com" 'Mittente
objMail.To = "sergix@nomedomino.com" 'Destinatario
objMail.Subject = "prova 2" 'Oggetto
objMail.HTMLBody = "provaaaa" 'Messaggio

'Invia l'email
objMail.Send()
Set objMail = Nothing

Ho intenzione di pianificare questo script,
appena ho rinominato lo script, in formato .vbs mi da questo errore, per caso occorre una dicitura più corretta rispetto all' .asp classico?

Riga: 5
Errore: Necessario oggetto 'Server'

sapreste aiutarmi