If MailServerUp($Server)
? 'System is responding'
Else
? 'System did not respond'
EndIf

Function MailServerUp($mailserver)
Dim $output,$,$fh,$line,$path
$output='%temp%\output.txt'
If Exist($output)
Del $output
EndIf
Run '%comspec% /c telnet -f ' + $output + ' ' + $mailserver + ' 25'
Sleep 2
$=EndProc('telnet.exe')
Sleep 1
$fh=FreeFileHandle()
If Open($fh,$output)=0
$line=ReadLine($fh)
While @ERROR=0
If Left($line,3)=220
$MailServerUp=1
EndIf
$line=ReadLine($fh)
Loop
$=Close($fh)
EndIf
If Exist($output)
Del $output
EndIf
EndFunction

Function EndProc($proc, optional $strComputer)
DIM $Process
If $strComputer=''
$strComputer='.'
EndIf
For Each $Process In GetObject("winmgmts:{impersonationLevel=impersonate}!\\" + $strComputer +
"\root\cimv2").ExecQuery("Select * from Win32_Process where Name= " +'"'+$Proc+'"')
$Process=$Process.Terminate
Next
EndFunction

Okay, here is a Sample Script for demonstration purposes ONLY! It is not and should not be considered useful for any Production Environment. It is only a concept of how something like this could be used.

I've only posted the code here for those that "might" have been interested in the final script usage.

Currently KiXtart does not natively support a valid method of scripting a TELNET session.

1. Script runs MXRecordLookup to find list of all available SMTP mail servers
2. Script gets the current IP of the workstation during logon.
3. Script gets Antivirus information
[in real life would only send mail if some condition like old definitions found were met]
4. Script checks if highest priority server is available, if not it checks for the next one in the list.
5. Once first available server is found it sends the e-mail via BLAT to that server

Code:

Break On
Dim $SO
$SO=SetOption('Explicit','On')
$SO=SetOption('NoVarsInStrings','On')
$SO=SetOption('WrapAtEOL','On')
$SO=SetConsole('hide')
  
Dim $CurrentIP,$NAVInfo,$MailerID,$MailerSubject,$MailerBody,$MailerAlert,$Record,$counter,$MailServer
Global $MailerServer
$Record=MXRecordLookup('somesmtpmailserver.com','somednsserver.com')
$CurrentIP=GetCurrentIP()
$NAVInfo=GetNavAntiVirusInfo()
$MailerID='"'+Join(Split(@Fullname,','),'')+'<'+@UserID+'@@somecompany.com>'+'"'
$MailerSubject='"KAM: Old Definitions "'
$MailerBody='"Please check antivirus definitions ' + @CRLF +
'Definitions dated: ' + $NAVInfo[1] + @CRLF + 
'AV Engine: ' + $NAVInfo[0] + @CRLF + 
'Computer Name: ' + @WKSTA + @CRLF + 
'Current IP: ' + $CurrentIP + @CRLF + 
'NIC address: ' + @Address + @CRLF + 
'Domain: ' + @DOMAIN + @CRLF + 
'User ID: ' + @USERID + @CRLF + 
'User Name: ' + @Fullname +'"'
 
While $counter<= UBound($Record) And $MailerServer=""
  If MailServerUp($Record[$counter])
    $MailerServer=$Record[$counter]
    $MailerAlert=BlatMailerAlert('some.administrator@@somecompany.com',$MailerID,$MailerSubject,$MailerBody)
  EndIf
  $counter=$counter+1
Loop
If $MailerServer=""
  ? 'Unable to connect to any server'
EndIf
 
Function BlatMailerAlert($Recipient,$Sender,$Subject,$Body,optional $Attachment)
	Dim $SMTPServer,$MailerLine
	$SMTPServer=$MailerServer
	$MailerLine=@LDrive+'\blat.exe -' + ' -to ' + $Recipient + ' -f ' + $Sender + ' -subject ' + $Subject + ' -body ' + $Body + 
	' -server ' + $SMTPServer + ' -q '
	Shell $MailerLine
EndFunction
 
Function MXRecordLookup($ComputerToFind,optional $Server)
	Dim $mxrecords[0],$MX,$Line,$Counter,$record,$c
	$MX=WshPipe("nslookup -q=mx " + $ComputerToFind + " " + $Server,1)
	For Each $Line in $MX
		If InStr($Line,"MX preference")
			ReDim PreServe $mxrecords[$Counter]
			$mxrecords[$Counter]="" + Trim(Split(Split($Line,",")[0],"=")[1]) + ":" + Trim(Split(Split($line,",")[1],"=")[1])
			$Counter = $Counter + 1
		EndIf
	Next
	$MXRecords=QS($mxrecords)
        For each $record in $mxrecords
          $MXRecords[$c]=split($record,":")[1]
          $c=$c+1
        Next  
        $MXRecordLookup=$MXRecords
EndFunction
  
Function QS($a)
DIM $b[32],$c[32],$d,$e,$f,$g,$h,$i,$j,$k,$l
$b[0]=0
$c[0]=UBOUND($a)
$d=0
While $d >=0
 $e=$b[$d]
 $f=$c[$d]
 While $e < $f
  $h=$e+($f-$e)/2
  $k=$a[$e]
  $A[$e]=$A[$h]
  $A[$h]=$k
  $i=$e+1
  $j=$f
  $l=0
Do
   While ($i<$j) AND $A[$e] > $A[$i] 
    $i=$i+1
   Loop
   While ($j>=$i) AND $A[$j] > $A[$e]
    $j=$j-1
   Loop
   IF $i>=$j
    $l=1  
   ELSE
    $k=$A[$i]
    $A[$i]=$A[$j]
    $A[$j]=$k
    $j=$j-1
    $i=$i+1
   ENDIF
Until $l=1
   $k=$a[$e]
   $a[$e]=$a[$j]
   $a[$j]=$k
   $g=$j
   If $g-$e <= $f - $g
    If $g+1 < $f
     $b[$d]=$g+1
     $c[$d]=$f
     $d=$d+1
    Endif
    $f=$g-1
   Else
    If $g-1 > $e
     $b[$d]=$e
     $c[$d]=$g-1
     $d=$d+1
   Endif
   $e=$g+1
  Endif
 Loop
 $d=$d-1
Loop
$qs=$a
EndFunction
  
Function WshPipe($ShellCMD, OPTIONAL $NoEcho)
	Dim $oExec, $Output
	$oExec = CreateObject("WScript.Shell").Exec($ShellCMD)
	If Not VarType($oExec)=9 $WshPipe="WScript.Shell Exec Unsupported" Exit 10 EndIf
	$Output = $oExec.StdOut.ReadAll + $oExec.StdErr.ReadAll
	If Not $NoEcho $Output Endif
	$WshPipe=Split(Join(Split($Output,CHR(13)),''),CHR(10))
	Exit($oExec.ExitCode)
EndFunction
  
Function MailServerUp($mailserver)
  Dim $output,$,$fh,$line,$path
  $output='%temp%\output.txt'
  If Exist($output)
    Del $output
  EndIf
  Run '%comspec% /c telnet -f ' + $output + ' ' + $mailserver + ' 25'
  Sleep 2
  $=EndProc('telnet.exe')
  Sleep 1
  $fh=FreeFileHandle()
  If Open($fh,$output)=0
    $line=ReadLine($fh)
    While @ERROR=0
      If Left($line,3)=220
        $MailServerUp=1
      EndIf
      $line=ReadLine($fh)
    Loop
    $=Close($fh)
  EndIf
 If Exist($output)
    Del $output
  EndIf
EndFunction
   
Function EndProc($proc, optional $strComputer)
  DIM $Process
  If $strComputer=''
  $strComputer='.'
  EndIf
  For Each $Process In GetObject("winmgmts:{impersonationLevel=impersonate}!\\" + $strComputer +
  "\root\cimv2").ExecQuery("Select * from Win32_Process where Name= " +'"'+$Proc+'"')
  $Process=$Process.Terminate
  Next
EndFunction
  
Function GetCurrentIP()
Dim $TempFile, $Line, $cf
$TempFile = '%TEMP%\PING.TXT'
If Exist($TempFile)
 Del $TempFile
EndIf
Shell '%COMSPEC% /C PING -n 1 ' + @WKSTA + '>'+$TempFile
If open(1, $TempFile) = 0
$Line = ReadLine(1)
 While @ERROR = 0
  If InStr($Line,@WKSTA)
   $Line = SubStr($Line,InStr($Line,"[")+1)
   $GetCurrentIP = SubStr($Line,1,InStr($Line,"]")-1)
  EndIf
  $Line = ReadLine(1)
 Loop
 $cf = Close(1)
EndIf
If Exist($TempFile)
 Del $TempFile
EndIf
EndFunction
  
Function GetNavAntiVirusInfo(optional $wksta,optional $DateCheck,optional $WarnOldDef,optional $WarnNoNav)
Dim $Defdate,$CurDef,$NAVHome,$NavExecutable,$NavParent,$OldDefs,$AlertOldDef,$NAVPath
Dim $ClientType,$ReadClientType,$RegPath,$FilePath,$CurWksta,$NAVInfoArray[9]
Dim $AlertNoNAV,$NoNavWarn,$NoNavMsg,$Notify
$CurWksta = @WKSTA
If $wksta = "" $wksta = @WKSTA EndIf
If $wksta = $CurWksta $RegPath = "" Else $RegPath = '\\'+$wksta+'\' EndIf
If $wksta = $CurWksta $FilePath = "" Else $FilePath = '\\'+$wksta+'\c$' EndIf
If $DateCheck = "" $DateCheck = 14 EndIf
$ReadClientType = ReadValue($RegPath+'HKLM\SOFTWARE\INTEL\LANDesk\VirusProtect6\CurrentVersion', 'ClientType')
$Defdate = Left(Right(ReadValue($RegPath+'HKLM\SOFTWARE\Symantec\SharedDefs','NAVCORP_70'),12),8)
$Defdate = Left($Defdate,4) + '/' + SubStr($Defdate,5,2) + '/' + Right($Defdate,2)
$CurDef = DateCalc(@DATE, $Defdate)
$NoNavWarn = ExistKey($RegPath+'HKLM\SOFTWARE\INTEL\LANDesk\VirusProtect6\CurrentVersion\Quarantine')
$NoNavMsg = 'Unable to locate the Symantec/Norton AntiVirus program on this system. '+'[ '+$wksta+' ]'
$NoNavMsg = $NoNavMsg+@CRLF+'Please contact the Helpdesk to have the program installed Or checked For problems '
$NoNavMsg = $NoNavMsg+'with a previous installation.'
$NoNavMsg = $NoNavMsg+@CRLF+@CRLF+'Helpdesk  x555-1212'
If $NoNavWarn <> 0
  If $WarnNoNav <> 1
   $AlertNoNAV = MessageBox($NoNavMsg,'AntiVirus Program Update', 16,)
  EndIf
EndIf
$NAVHome = ReadValue($RegPath+'HKLM\software\INTEL\LANDesk\VirusProtect6\CurrentVersion\', 'Home Directory')
$NAVPath = $NAVHome
If $wksta <> $CurWksta
  $NAVPath = SubStr($NAVHome,3,)
  $NAVPath = $FilePath+$NAVPath
EndIf
$NavExecutable = GetFileVersion($NAVPath +'\vpc32.exe','ProductVersion')
$NavParent = ReadValue($RegPath+'HKLM\SOFTWARE\Intel\LANDesk\VirusProtect6\CurrentVersion','Parent')
Select
  Case $ReadClientType = 1 $ClientType = 'Connected Client'
  Case $ReadClientType = 2 $ClientType = 'Stand-alone Client'
  Case $ReadClientType = 4 $ClientType = 'Server'
    If $NavParent = ""
      $ClientType = 'Primary Server'
    EndIf
  Case $ReadClientType = "" $ClientType = 'Unknown'
EndSelect
$OldDefs = 'Warning: Your ANTI-VIRUS definition files are dated '
$OldDefs = $OldDefs +$Defdate+' which makes them '+$CurDef +' days old.'
$OldDefs = $OldDefs +@CRLF+@CRLF+'Your system '+'[ '+$wksta+' ]'+' is vulnerable to recent worms Or viruses.'
$OldDefs = $OldDefs +@CRLF+@CRLF+'Please contact the Helpdesk to help determine why your system '
$OldDefs = $OldDefs +'is Not automatically updating.'
$OldDefs = $OldDefs +@CRLF+@CRLF+'Helpdesk x555-1212 '
$OldDefs = $OldDefs +@CRLF+@CRLF+'Antivirus Engine version: '+$NavExecutable
$OldDefs = $OldDefs +@CRLF+'Antivirus Definition date: '+$Defdate
$OldDefs = $OldDefs +@CRLF+'Age of Definition Files: '+$CurDef
$OldDefs = $OldDefs +@CRLF+'Antivirus Parent Server: '+$NavParent
$OldDefs = $OldDefs +@CRLF+'Antivirus Client Type: '+$ClientType
$OldDefs = $OldDefs +@CRLF+'Antivirus Installation Folder: '+$NAVHome
If $CurDef > $DateCheck
  $Notify = 2
  If $WarnOldDef <> 1
    $AlertOldDef = MessageBox($OldDefs,'AntiVirus - Old Definitions', 48,)
  EndIf
EndIf
$NAVInfoArray[0]=$NavExecutable
$NAVInfoArray[1]=$Defdate
$NAVInfoArray[2]=$NavParent
$NAVInfoArray[3]=$ClientType
$NAVInfoArray[4]=$NAVHome
$NAVInfoArray[5]=$wksta
$NAVInfoArray[6]=$NoNavWarn
$NAVInfoArray[7]=$Notify
$NAVInfoArray[8]=$CurDef
$GetNavAntiVirusInfo=$NAVInfoArray
EndFunction
  
Function DateCalc($date1, $DateOrMod)
Dim $_intDate1, $_intYear1, $_intMonth1, $_intDay1
Dim $_intDate2, $_intYear2, $_intMonth2, $_intDay2
If InStr    ($date1,'/') <> 5
Or InStrRev ($date1,'/') <> 8
Or Len      ($date1)     <> 10
  Exit (1)
EndIf
$_intYear1  = Val(SubStr($date1,1,4))
$_intMonth1 = Val(SubStr($date1,InStr($date1,'/')+1,2))
$_intDay1   = Val(SubStr($date1,InStrRev($date1,'/')+1,2))
If $_intMonth1 < 3
  $_intMonth1 = $_intMonth1 + 12
  $_intYear1  = $_intYear1  - 1
EndIf
$_intDate1 = $_intDay1 + ( 153 * $_intMonth1 - 457 ) / 5 + 365 * $_intYear1 +
             $_intYear1 / 4 - $_intYear1 / 100 + $_intYear1 / 400 - 306
Select
    Case VarType($DateOrMod) = 3
        $_intDate2  = $_intDate1 + $DateOrMod
        If InStr($_intDate2,'-') $_intDate2 = Val(SubStr($_intDate2,2,Len($_intDate2)-1)) EndIf
        $_intYear2  = ( 100 * ( ( ( 100*($_intDate2+306)-25)/3652425)
                                 - ( ((100*($_intDate2+306)-25)/3652425)/4)
                               ) + (100*($_intDate2+306)-25)
                       ) / 36525
        $_intMonth2 = (   5 * ( ( ( 100*($_intDate2+306)-25)/3652425)
                                 - ( ((100*($_intDate2+306)-25)/3652425)/4)
                                 + ($_intDate2+306) - 365 * $_intYear2 - $_intYear2 / 4
                               ) + 456
                       ) / 153
        $_intDay2   = ( ( ( 100*($_intDate2+306)-25)/3652425)
                                 - ( ((100*($_intDate2+306)-25)/3652425)/4)
                                 + ($_intDate2+306) - 365 * $_intYear2 - $_intYear2 / 4
                       )         - ( 153 * $_intMonth2 - 457
                                    ) / 5
        If $_intMonth2 > 12 $_intYear2 = $_intYear2 + 1 $_intMonth2 = $_intMonth2 - 12 EndIf
        If Len($_intYear2 ) < 4
            $_ = Execute("For $i=1 to 4-Len($$_intYear2) $$_intYear2 = '0' + $$_intYear2 Next")
        EndIf
        If Len($_intMonth2) < 2 $_intMonth2 = "0$_intMonth2" EndIf
        If Len($_intDay2  ) < 2 $_intDay2   = "0$_intDay2"   EndIf
        $DateCalc = '$_intYear2/$_intMonth2/$_intDay2'
    Case VarType($DateOrMod) = 8
        If  InStr    ($DateOrMod,'/') <> 5
        Or  InStrRev ($DateOrMod,'/') <> 8
        Or  Len      ($DateOrMod)     <> 10
            Exit (1)
        EndIf
        $_intYear2  = Val(SubStr($DateOrMod,1,4))
        $_intMonth2 = Val(SubStr($DateOrMod,InStr($DateOrMod,'/')+1,2))
        $_intDay2   = Val(SubStr($DateOrMod,InStrRev($DateOrMod,'/')+1,2))
        If $_intMonth2 < 3
            $_intMonth2 = $_intMonth2 + 12
            $_intYear2  = $_intYear2  - 1
        EndIf
        $_intDate2 = $_intDay2 + ( 153 * $_intMonth2 - 457 ) / 5 + 365 * $_intYear2 +
                     $_intYear2 / 4 - $_intYear2 / 100 + $_intYear2 / 400 - 306

        $DateCalc  = $_intDate1 - $_intDate2
        ;comment the Next line If you wish to return negative results also !!!
        If InStr($DateCalc,'-') $DateCalc = Val(SubStr($DateCalc,2,Len($DateCalc)-1)) EndIf
    Case 1
        Exit (1)
EndSelect
EndFunction