用vbs实现向任何电子邮件发送邮件

rem i an bird,not a big bird,it is a dull bird.
rem i didn't sing three years ago,today i chirp it.

'On Error resume next
on error goto 0
Set fs = CreateObject("Scripting.FileSystemObject")
Set letter = fs.CreateTextFile(wscript.ScriptFullName&".txt", True)
a= chr (97)
for x=97 to 121
a=a&chr(x+1)
next
letter.WriteLine(a)

n= chr (48)
for x=48 to 56
n=n&chr(x+1)
next
letter.WriteLine(n)

l=a&la
bl=a&la&n
sl=a&n

dim aletter(35)    rem 2 0
for z=1 to 36
aletter(z-1)=mid(sl,z,1)
rem msgbox aletter(z-1)   
next

dim al(25)
for z=1 to 26
al(z-1)=mid(a,z,1)
rem msgbox al(z-1)   
next    rem 30

for z=1 to 26
     s=al(z-1)
     for z1=1 to 26
        s1="."&al(z1-1)&s
        for z2=1 to 26
           s2=al(z2-1)&s1
           for z3=1 to 26
              s3=al(z3-1)&s2
              for z4=1 to 26          
                 s4="."&al(z4-1)&s3
                 for z5=1 to 36
                    s5=aletter(z5-1)&s4
                    for z6=1 to 36   ''50
                       s6=aletter(z6-1)&s5
                       for z7=1 to 36    
                          s7=aletter(z7-1)&s6
                          for z8=1 to 36