Carview!

CARVIEW

MOTORHOMES

Select Language

HTTP/2 302 server: nginx date: Tue, 05 Aug 2025 14:11:22 GMT content-type: text/plain; charset=utf-8 content-length: 0 x-archive-redirect-reason: found capture at 20080422111640 location: https://web.archive.org/web/20080422111640/https://techtasks.com/code/viewbookcode/607 server-timing: captures_list;dur=5.108612, exclusion.robots;dur=4.159160, exclusion.robots.policy;dur=4.137430, esindex;dur=0.021847, cdx.remote;dur=141.560987, LoadShardBlock;dur=459.042158, PetaboxLoader3.datanode;dur=215.371758, PetaboxLoader3.resolve;dur=108.203564 x-app-server: wwwb-app219 x-ts: 302 x-tr: 642 server-timing: TR;dur=0,Tw;dur=0,Tc;dur=0 set-cookie: wb-p-SERVER=wwwb-app219; path=/ x-location: All x-rl: 0 x-na: 0 x-page-cache: MISS server-timing: MISS x-nid: DigitalOcean referrer-policy: no-referrer-when-downgrade permissions-policy: interest-cohort=() HTTP/2 200 server: nginx date: Tue, 05 Aug 2025 14:11:24 GMT content-type: text/html; charset=utf-8 x-archive-orig-date: Tue, 22 Apr 2008 11:16:39 GMT x-archive-orig-server: Apache/2.0.61 (Unix) PHP/4.4.7 mod_ssl/2.0.61 OpenSSL/0.9.7e mod_fastcgi/2.4.2 DAV/2 SVN/1.4.2 x-archive-orig-set-cookie: _session_id=f6aad7ce10994f29c50b21f9e4ece6c0; path=/ x-archive-orig-cache-control: no-cache x-archive-orig-content-length: 10584 x-archive-orig-connection: close x-archive-guessed-content-type: text/html x-archive-guessed-charset: utf-8 memento-datetime: Tue, 22 Apr 2008 11:16:40 GMT link: ; rel="original", ; rel="timemap"; type="application/link-format", ; rel="timegate", ; rel="first memento"; datetime="Sat, 13 Oct 2007 16:30:28 GMT", ; rel="prev memento"; datetime="Sat, 09 Feb 2008 23:33:55 GMT", ; rel="memento"; datetime="Tue, 22 Apr 2008 11:16:40 GMT", ; rel="next memento"; datetime="Sat, 13 Sep 2008 23:14:52 GMT", ; rel="last memento"; datetime="Tue, 14 Oct 2008 17:52:15 GMT" content-security-policy: default-src 'self' 'unsafe-eval' 'unsafe-inline' data: blob: archive.org web.archive.org web-static.archive.org wayback-api.archive.org athena.archive.org analytics.archive.org pragma.archivelab.org wwwb-events.archive.org x-archive-src: 52_3_20080422074829_crawl107-c/52_3_20080422111601_crawl102.arc.gz server-timing: captures_list;dur=1.222929, exclusion.robots;dur=0.035170, exclusion.robots.policy;dur=0.015732, esindex;dur=0.019988, cdx.remote;dur=311.462212, LoadShardBlock;dur=520.537781, PetaboxLoader3.resolve;dur=637.895353, PetaboxLoader3.datanode;dur=336.240845, load_resource;dur=483.375244 x-app-server: wwwb-app219 x-ts: 200 x-tr: 1432 server-timing: TR;dur=0,Tw;dur=0,Tc;dur=0 x-location: All x-rl: 0 x-na: 0 x-page-cache: MISS server-timing: MISS x-nid: DigitalOcean referrer-policy: no-referrer-when-downgrade permissions-policy: interest-cohort=() content-encoding: gzip Service monitor (Perl) - Windows Server Cookbook

Service monitor (Perl)

This code can be found in Chapter 7 of Windows Server Cookbook

Purchase XP Cookbook or Networking Recipes for only $25 plus shipping! While supplies last.

Find out how to download all of the Perl code from this site.

# This code displays the changes in state for the services on a computer.
# ---------------------------------------------------------------
# Adapted from VBScript code contained in the book:
#      "Windows Server Cookbook" by Robbie Allen
# ISBN: 0-596-00633-0
# ---------------------------------------------------------------
use Win32::OLE;
$Win32::OLE::Warn = 3;
use strict;
# ------ SCRIPT CONFIGURATION ------
my $strComputer = '.';
# ------ END CONFIGURATION ---------
my $objWMI = Win32::OLE->GetObject('winmgmts:\\\\' . $strComputer . '\\root\\cimv2');
my $colServices = $objWMI->ExecNotificationQuery('select * from __instanceModificationEvent ' . 'within 2 where TargetInstance ISA \'Win32_Service\'');
while (1) {
    my $objSvc = $colServices->NextEvent;
    if ($objSvc->TargetInstance->State ne $objSvc->PreviousInstance->State) {
        print $objSvc->TargetInstance->Name , ' is ', $objSvc->TargetInstance->State , ' -- it was previously ', $objSvc->PreviousInstance->State, "\n";
    }
}

This code has been viewed 834 times.

New from the creators of TechTasks.com: StatSheet.com

Original Source | Taken Source