Determine if Service Already Installed

Determine if a Windows service is already installed.

Note:This software is available as a pre-release.

Chilkat Module for Perl 5.8.*

Chilkat Module for Perl 5.10.*

use chilkat;

$service = new chilkat::CkService();

$service->put_ServiceName("MyService");

#  returns -1 for failure (inability to check)
#  returns 1 if already installed.
#  returns 0 if not yet installed.

$retval = $service->IsInstalled();
if ($retval < 0) {
    print "Failed to query service control manager" . "\n";
}
else {
    if ($retval == 1) {
        print "Service is already installed" . "\n";
    }
    else {
        print "Service is not installed" . "\n";
    }

}