This is a simple script written in tcl which parses the output of the nmap program to determine whether required services are in fact running on a machine. Output is written as an html formatted log file.
You can download it from the following link: https://packetstormsecurity.com/files/download/10919/service_check.tcl
Source: https://packetstormsecurity.com/files/10919/service_check.tcl.html