$srvarray='SERVER01 SERVER02 SERVER03 SERVER04'

 $srvarray=$srvarray+' SERVER05 SERVER06'

 FOR EACH $i IN Split($srvarray)

       ?'Checking Server: '+$i

       SHELL '%COMSPEC% /C PING -n 1 '+$i

       IF @error<>0

             $rc=WRITEVALUE('HKCU\Software\KiXtart',$i,$i,'REG_SZ')

             ;Notify server is off-line 

             MAILER('Offline',$i,'Server is off-line')

       ELSE

             IF ''<>READVALUE('HKCU\Software\KiXtart',$i)

                   ;Notify back on line 

                   MAILER('Online',$i,'Server is online')

                   $rc=DELVALUE('HKCU\Software\KiXtart',$i)

             ENDIF

       ENDIF

 NEXT



 FUNCTION MAILER($status,$server,$body)

       BREAK ON

       $mailhost = 'smtp.company.com'

       $recipient = 'admin@@company.com'

       $sender = 'ServerMonitor@@company.com'

       $mailline = @ldrive+'Programs\blat.exe - -to $recipient -server $mailhost -subject "$server $status" '

       $mailline = $mailline+'-body "$body" -f $sender -q'

       SHELL $mailline

 ENDFUNCTION