Sending Emails Using VBScript And NetCat

A little time ago I wrote a post on how to send an email using VBScript and the very useful program - NetCat. This post covers the same ground but in VBScript and compares the code in the two languages.

The original post is here and also on 'The Code Project' here.

I find that JScript is easier to work in than VBScript for most of the stuff I do; however, many people prefer VBScript. The snag is that Microsoft do not seem to be putting much effort into supporting VBScript; they have not even created (as far as I know) a .net version of it. I guess this means that there is some benefit in VBScripters being about to code in JScript as well. To that end, I have not only given and discussed the VBScript source here, but also shown (in comments) the JScript of the original. I hope that those less familiar with JScript can see that it is really very similar to VBScript once you've gotten over all those wiggly brackets!

How Does It Work

I have already discussed interacting with web services using the XMLHTTP object. For sending email, there is no such ready made object to help us. However, sending email is not an especially complex matter, so we can just use netcat instead!

To do this you will first require a copy of netcat. I have a copy that runs on Windows XP from here. I did not do the port, but the credits are in the zip and it is GPL 2. Once you have nc.exe you will need to put in somewhere on the executable path (e.g. system32) or in the same directory in which you are going to run your script.

The should be run by cscript from the command prompt. You will have to change the address of the smtp server to one for which you have access and set the to and from email addresses, hit count and inter-hit delay to appropriate settings. This is a real script, I used it today to load test an email server!

'var strExe = "nc -v smtp.gotadsl.co.uk 25";

dim strExe
strExe = "nc -v smtp.gotadsl.co.uk 25"

'var objShell = WScript.CreateObject("WScript.Shell");

dim objShell
set objShell = WScript.CreateObject("WScript.Shell")

'var total  = 8;

dim total
total  = 8

'var delay  = 0;

dim delay
delay  = 0

'var victim = "ian.manson@project-network.com";

dim victim
victim = "git@cubicalland.com"

'for(var i=0;i<total;++i)

dim i
for i=1 to total

'    var strExeIn ="HELO nerds-central.com\r\n"; 

'        strExeIn+="MAIL FROM: <test@nerds-central.com>\r\n";

'        strExeIn+="RCPT TO: <"+victim+">\r\n";

'        strExeIn+="DATA\r\n";

'        strExeIn+="Body of email: this is an auto generated test email.\r\n";

'        strExeIn+="This is "+(i+1)+" of "+total+"\r\n";

'        strExeIn+=".\r\n";

'        strExeIn+="QUIT\r\n";


    dim strExeIn
    strExeIn =            "HELO nerds-central.com" + vbcrlf
    strExeIn = strExeIn + "MAIL FROM: <test@nerds-central.com>" + vbcrlf
    strExeIn = strExeIn + "RCPT TO: <"+victim+">" + vbcrlf
    strExeIn = strExeIn + "DATA"+ vbcrlf
    strExeIn = strExeIn + "Body of email: this is an auto generated test email." + vbcrlf
    strExeIn = strExeIn + "This is " & i & " of " & total & vbcrlf
    strExeIn = strExeIn + "." + vbcrlf
    strExeIn = strExeIn + "QUIT" + vbcrlf

    
    'var objScriptExec = objShell.Exec(strExe);

    dim objScriptExec
    set objScriptExec = objShell.Exec(strExe)

    'objScriptExec.StdIn.write(strExeIn);

    objScriptExec.StdIn.write(strExeIn)

    'objScriptExec.StdIn.close();

    objScriptExec.StdIn.close()

    'WScript.echo("Sending "+(i+1)+" of "+total+" to "+victim);

    WScript.echo("Sending " & i & " of " & total & " to "+victim)

    'WScript.echo(objScriptExec.StdOut.ReadAll());

    WScript.echo(objScriptExec.StdOut.ReadAll())

    'WScript.sleep(delay);

    WScript.sleep(delay)

next

For loads more on VBScript see the VBScript section of Nerds-Central.