$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

 ;TimeDiff 

 ;http://www.kixtart.org/cgi-bin/ultimatebb.cgi?ubb=get_topic&f=12&t=000040 



 ;SerialTime 

 ;http://www.kixtart.org/cgi-bin/ultimatebb.cgi?ubb=get_topic&f=12&t=000039 



CLS

BREAK ON

 DIM $i,$amerdt,$srvarray,$rc,$time,$tcheck,$ortime,$recipitent,$status,$server,$body



 $amerdt=split(@date,'/')[1]+'/'+split(@date,'/')[2]+'/'+split(@date,'/')[0]

 $srvarray='server01 server02'

 $srvarray=$srvarray+' server03 server 04'



 FOR EACH $i IN Split($srvarray)

       ?'Checking Server: '+$i

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

       IF @error<>0

             IF ''=READVALUE('HKCU\Software\KiXtart',$i) ;only do this once 

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

                   ;Notify server is off-line 

                   $amerdt=split(@date,'/')[1]+'/'+split(@date,'/')[2]+'/'+split(@date,'/')[0]

                   MAILER('recipient@@company.com','Offline',$i,'Server is off-line '+@time+' '+$amerdt)

             ENDIF

                   $ortime=READVALUE('HKCU\Software\KiXtart',$i)

                   $time=SUBSTR($ortime,LEN($i)+1,len($ortime))

                   $tcheck=TIMEDIFF($time,@time)

                   $tcheck=split($tcheck,':')[0]

                         IF $tcheck > '00' ;If beyond 60 minutes, page 

                               IF $i<>READVALUE('HKCU\Software\KiXtart',$i+'PAGE') ;only do this once 

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

                                     MAILER('pager@@messaging.sprintpcs.com','Offline',$i,'Paging: Server is off-line'+@time+' '+$amerdt)

                               ENDIF

                         ENDIF

       ELSE

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

                   ;Notify back on line 

                   MAILER('person@@company.com','Online',$i,'Server is online '+@time+' '+$amerdt)

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

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

             ENDIF

       ENDIF

 NEXT



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

       $mailhost = 'smtp.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

 ;Function SRVAVAIL() 

 ; 

 ;Author  Kent Dyer(leptonator@hotmail.com) 

 ; 

 ;Contributors Lonkero and Doc for ideas 

 ;             Jens for his time-based UDFs 

 ; 

 ;Action  Checks to see if a set of servers or machines are available 

 ;        and as needed e-mail and after 60 minutes page 

 ; 

 ;Syntax  SRVAVAIL() 

 ; 

 ;Version 1.2 

 ; 

 ;Date           24-October-2003 

 ; 

 ;Date Revised   28-October-2003 

 ; 

 ;Remarks This is a poor-mans WhatsUP Gold, it was a re-write of 

 ;        batch script I put together about 2-1/2 years ago. 

 ;        http://www.kixtart.org/board/ultimatebb.php?ubb=get_topic;f=2;t=004261#000005 

 ;        "Call the in charge person" 

 ;        The idea is to check for if a server is up and running.  If it is not, 

 ;        e-mail appropriate staff.  If a server is off-line for over an hour 

 ;        page appropriate staff.  When a server comes back on-line an e-mail is 

 ;        also generated 

 ;        Version 1.0 Original Script 

 ;        Version 1.1 Added Paging component 

 ;        Version 1.2 Changed from using the Registry to INI 

 ;                    Do a check for existence of an Admin share rather than a PING 

 ; 

 ;Returns Nothing 

 ; 

 ;Dependencies 

 ;TimeDiff 

 ;http://www.kixtart.org/cgi-bin/ultimatebb.cgi?ubb=get_topic&f=12&t=000040 



 ;SerialTime 

 ;http://www.kixtart.org/cgi-bin/ultimatebb.cgi?ubb=get_topic&f=12&t=000039 

 ; 

 ;Mailer (added to this script as it has a fourth parameter) 

 ;http://www.kixtart.org/board/ultimatebb.php?ubb=get_topic;f=12;t=000483 

 ; 

 ;KiXtart Ver 4.02 

 ; 

 ;Example(s) SRVAVAIL() 





 FUNCTION SRVAVAIL()

    CLS

    BREAK ON

    DIM $i,$amerdt,$srvarray,$rc,$time,$tcheck,$ortime,$recipitent,$status,$server,$body



    $amerdt=split(@date,'/')[1]+'/'+split(@date,'/')[2]+'/'+split(@date,'/')[0]

    $srvarray='server01 server02'

    $srvarray=$srvarray+' server03 server 04'



    FOR EACH $i IN Split($srvarray)

       $chk=@scriptdir+'srvavail.ini'

       ?'Checking Server: '+$i

       IF 0=EXIST('\\'+$i+'\ADMIN$$')

          IF 'OK'=READPROFILESTRING($chk,'SERVERS',$i) ;only do this once 

             $rc=WRITEPROFILESTRING($chk,'SERVERS',$i,$i+@time)

             ;Notify server is off-line 

             $amerdt=split(@date,'/')[1]+'/'+split(@date,'/')[2]+'/'+split(@date,'/')[0]

             MAILER('recipient@@company.com','Offline',$i,'Server is off-line '+@time+' '+$amerdt)

          ENDIF

          $ortime=READPROFILESTRING($chk,'SERVERS',$i)

          $time=SUBSTR($ortime,LEN($i)+1,len($ortime))

          $tcheck=TIMEDIFF($time,@time)

          $tcheck=split($tcheck,':')[0]

          IF $tcheck > '00' ;If beyond 60 minutes, page 

             IF $i+'PAGE'<>READPROFILESTRING($chk,'SERVERS',$i+'PAGE') ;only do this once 

                $rc=WRITEPROFILESTRING($chk,'SERVERS',$i+'PAGE',$i)

                MAILER('pager@@messaging.sprintpcs.com','Offline',$i,'Paging: Server is off-line'+@time+' '+$amerdt)

             ENDIF

          ENDIF

       ELSE

          IF 'ok'<>READPROFILESTRING($chk,'SERVERS',$i)

             ;Notify back on line 

             MAILER('person@@company.com','Online',$i,'Server is online '+@time+' '+$amerdt)

             $rc=WRITEPROFILESTRING($chk,'SERVERS',$i,'ok')

             $rc=WRITEPROFILESTRING($chk,'SERVERS',$i+'PAGE','')

          ENDIF

       ENDIF

    NEXT

 ENDFUNCTION



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

    $mailhost = 'smtp.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

 ;Function SRVAVAIL() 

 ; 

 ;Author  Kent Dyer(leptonator@hotmail.com) 

 ; 

 ;Contributors Lonkero and Doc for ideas 

 ;             Jens for his time-based UDFs 

 ; 

 ;Action  Checks to see if a set of servers or machines are available 

 ;        and as needed e-mail and after 60 minutes page 

 ; 

 ;Syntax  SRVAVAIL() 

 ; 

 ;Version 1.3 

 ; 

 ;Date           24-October-2003 

 ; 

 ;Date Revised   28-October-2003 

 ; 

 ;Remarks This is a poor-mans WhatsUP Gold, it was a re-write of 

 ;        batch script I put together about 2-1/2 years ago. 

 ;        http://www.kixtart.org/board/ultimatebb.php?ubb=get_topic;f=2;t=004261#000005 

 ;        "Call the in charge person" 

 ;        The idea is to check for if a server is up and running.  If it is not, 

 ;        e-mail appropriate staff.  If a server is off-line for over an hour 

 ;        page appropriate staff.  When a server comes back on-line an e-mail is 

 ;        also generated 

 ;        Version 1.0 Original Script 

 ;        Version 1.1 Added Paging component 

 ;        Version 1.2 Changed from using the Registry to INI 

 ;                    Do a check for existence of an Admin share rather than a PING 

 ;	  Version 1.3 Changed back to a PING method 

 ;	  	      Use a separate INI file and enumerate the data within 

 ; 

 ;Returns Nothing 

 ; 

 ;Dependencies 

 ;TimeDiff 

 ; http://www.kixtart.org/cgi-bin/ultimatebb.cgi?ubb=get_topic&f=12&t=000040 



 ;SerialTime 

 ; http://www.kixtart.org/cgi-bin/ultimatebb.cgi?ubb=get_topic&f=12&t=000039 

 ; 

 ;Mailer (added to this script as it has a fourth parameter) 

 ; http://www.kixtart.org/board/ultimatebb.php?ubb=get_topic;f=12;t=000483 

 ; 

 ;SRVAVAIL.INI - List of Servers to check in the following format 

 ;               [SERVERS] 

 ;               SERVER01=OK 

 ;               SERVER02=OK 

 ;               SERVER03=OK 

 ; 

 ;KiXtart Ver 4.02 

 ; 

 ;Example(s) SRVAVAIL() 



 SRVAVAIL()

 FUNCTION SRVAVAIL()

    CLS

    BREAK ON

    DIM $i,$amerdt,$srvarray,$rc,$time,$tcheck,$ortime,$recipitent,$status,$server,$body



    $amerdt=split(@date,'/')[1]+'/'+split(@date,'/')[2]+'/'+split(@date,'/')[0]

    $chk=@scriptdir+'\srvavail.ini'

    $srv=split(readprofilestring($chk,'SERVERS',''),chr(10))

    FOR EACH $i IN $srv

       IF $i <>''

          $status=readprofilestring($chk,'SERVERS',$i)

          ;?$sectionkey+' '+$status 

          ?'Checking Server: '+$i

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

          IF @error<>0

             IF 'OK'=$status ;only do this once 

                $rc=WRITEPROFILESTRING($chk,'SERVERS',$i,$i+@time)

                ;Notify server is off-line 

                MAILER('recipient@@company.com','Offline',$i,'Server is off-line '+@time+' '+$amerdt)

             ENDIF

             $ortime=READPROFILESTRING($chk,'SERVERS',$i)

             IF 0=instr($ortime,'PAGE')

             $time=SUBSTR($ortime,LEN($i)+1,len($ortime))

             $tcheck=TIMEDIFF($time,@time)

             $tcheck=split($tcheck,':')[0]

             IF $tcheck > '00' ;If beyond 60 minutes, page 

                IF $i+'PAGE'<>READPROFILESTRING($chk,'SERVERS',$i) ;only do this once 

                   $rc=WRITEPROFILESTRING($chk,'SERVERS',$i,$i+'PAGE')

                   MAILER('pager@@messaging.sprintpcs.com','Offline',$i,'Paging: Server is off-line'+@time+' '+$amerdt)

                ENDIF

             ENDIF

             ENDIF

          ELSE

             IF'OK'<>READPROFILESTRING($chk,'SERVERS',$i)

                ;Notify back on line 

                MAILER('recipient@@company.com','Online',$i,'Server is online '+@time+' '+$amerdt)

                $rc=WRITEPROFILESTRING($chk,'SERVERS',$i,'ok')

             ENDIF

          ENDIF

       ENDIF

    NEXT

 ENDFUNCTION



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

    $mailhost = 'smtp.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