J
juanb
hi !
How can I know how long a server is up ?
thank
juan
How can I know how long a server is up ?
thank
juan
Install the app
How to install the app on iOS
Follow along with the video below to see how to install our site as a web app on your home screen.
Note: This feature may not be available in some browsers.
You are using an out of date browser. It may not display this or other websites correctly.
You should upgrade or use an alternative browser.
You should upgrade or use an alternative browser.
P
Pegasus \(MVP\)
S
Steve Parry [MVP]
juanb said:hi !
How can I know how long a server is up ?
thanks
juanb
---------------------------------------------------------------------- --
CMD prompt
type
net statistics server
press enter
G
George Hester
Hmm that's interesting but I don't get the uptime using that:
Install ActiveState Perl then the perl file is:
#up.pl
$^O eq "MSWin32" || die "Sorry, this works only on Windows for now\n";
my $max_results = 5; # if we have to use tick counts
my $VERSION = 0.26;
my $debug = $ENV{'QUERY_STRING'} || $ARGV[0];
print "$0 version $VERSION\n" if $debug;
print "Debug mode on\n" if $debug;
print "Perl version $]\n" if $debug;
BEGIN {
# HTTP headers if needed
local $^W = 0;
print "$ENV{'SERVER_PROTOCOL'}/200 OK\n" if $ENV{'PERLXS'} eq "PerlIS";
print "Content-type text/plain\n\n" if $ENV{'SERVER_PROTOCOL'};
}
my ($several, @uptimes);
if (Win32::IsWinNT()) {
print "Windows NT\n\n" if $debug;
push @uptimes, (&event_log || &tick_counts);
print "eval error: $@\n" if $@ && $debug;
}
else {
print "Windows 9x\n\n" if $debug;
push @uptimes, (&system_da0 || &tick_counts);
}
sub tick_counts {
print "Counting ticks\n" if $debug;
my @ticks;
my $ticks = Win32::GetTickCount() > 0
? Win32::GetTickCount()
: Win32::GetTickCount() + 2**32;
my $seconds = $ticks/1000;
for (1..$max_results-1) {
push @ticks, time()-$seconds;
$seconds += 2**32/1000;
}
return @ticks, time()-$seconds;
}
sub system_da0 {
my $file = "$ENV{'WINDIR'}\\system.da0";
print "Checking $file\n" if $debug;
my $stat = (stat $file)[9];
print "Could not stat $file ($!)\n" if $debug && !$stat;
return $stat || undef;
}
sub event_log {
my $result = eval '
local $^W = 0;
use Win32::EventLog;
my ($EventLog, $first, $count, $event, %data);
Win32::EventLog::Open($EventLog , "System", "") || die ("EventLog Open() failed");
$EventLog->GetOldest($first) || die ("EventLog GetOldest() failed");
$EventLog->GetNumber($count) || die ("EventLog GetNumber() failed");
print "Event log first=$first, count=$count\n" if $debug;
$EventLog->Read((EVENTLOG_SEEK_READ | EVENTLOG_BACKWARDS_READ),$first+$count,$event);
for $i (0 .. $first+$count-1) {
$EventLog->Read((EVENTLOG_SEQUENTIAL_READ|EVENTLOG_BACKWARDS_READ),0,$event)
|| die ("EventLog Read() failed at event $i");
%data = %{$event};
$data{"EventID"} = $data{"EventID"} & 0xffff;
next unless $data{"EventID"} == 6005;
print "Found event 6005\n" if $debug;
return $data{"TimeGenerated"};
print "This script is broken: it should never reach this line\n";
}
return undef;
';
if ($@) {
print "Eval error: $@\n";
return undef;
}
else {
return $result;
}
}
$several = @uptimes - 1;
foreach (@uptimes) {
print "up ", &time2days($_), " (since ", scalar localtime($_), ")\n";
print "or:\n" if $several;
}
print "... but who would believe that anyway?...\n" if $several;
sub time2days {
print "converting $_[0]\n" if $debug;
my $days = (time() - $_[0])/(24*60*60);
my $hours = ($days - int($days)) * 24;
my $minutes = ($hours - int($hours)) * 60;
my $day_st = $days >= 2 ? 'days' : 'day';
return sprintf("%0d $day_st %02d:%02d", $days, $hours, $minutes);
}
Install ActiveState Perl then the perl file is:
#up.pl
$^O eq "MSWin32" || die "Sorry, this works only on Windows for now\n";
my $max_results = 5; # if we have to use tick counts
my $VERSION = 0.26;
my $debug = $ENV{'QUERY_STRING'} || $ARGV[0];
print "$0 version $VERSION\n" if $debug;
print "Debug mode on\n" if $debug;
print "Perl version $]\n" if $debug;
BEGIN {
# HTTP headers if needed
local $^W = 0;
print "$ENV{'SERVER_PROTOCOL'}/200 OK\n" if $ENV{'PERLXS'} eq "PerlIS";
print "Content-type text/plain\n\n" if $ENV{'SERVER_PROTOCOL'};
}
my ($several, @uptimes);
if (Win32::IsWinNT()) {
print "Windows NT\n\n" if $debug;
push @uptimes, (&event_log || &tick_counts);
print "eval error: $@\n" if $@ && $debug;
}
else {
print "Windows 9x\n\n" if $debug;
push @uptimes, (&system_da0 || &tick_counts);
}
sub tick_counts {
print "Counting ticks\n" if $debug;
my @ticks;
my $ticks = Win32::GetTickCount() > 0
? Win32::GetTickCount()
: Win32::GetTickCount() + 2**32;
my $seconds = $ticks/1000;
for (1..$max_results-1) {
push @ticks, time()-$seconds;
$seconds += 2**32/1000;
}
return @ticks, time()-$seconds;
}
sub system_da0 {
my $file = "$ENV{'WINDIR'}\\system.da0";
print "Checking $file\n" if $debug;
my $stat = (stat $file)[9];
print "Could not stat $file ($!)\n" if $debug && !$stat;
return $stat || undef;
}
sub event_log {
my $result = eval '
local $^W = 0;
use Win32::EventLog;
my ($EventLog, $first, $count, $event, %data);
Win32::EventLog::Open($EventLog , "System", "") || die ("EventLog Open() failed");
$EventLog->GetOldest($first) || die ("EventLog GetOldest() failed");
$EventLog->GetNumber($count) || die ("EventLog GetNumber() failed");
print "Event log first=$first, count=$count\n" if $debug;
$EventLog->Read((EVENTLOG_SEEK_READ | EVENTLOG_BACKWARDS_READ),$first+$count,$event);
for $i (0 .. $first+$count-1) {
$EventLog->Read((EVENTLOG_SEQUENTIAL_READ|EVENTLOG_BACKWARDS_READ),0,$event)
|| die ("EventLog Read() failed at event $i");
%data = %{$event};
$data{"EventID"} = $data{"EventID"} & 0xffff;
next unless $data{"EventID"} == 6005;
print "Found event 6005\n" if $debug;
return $data{"TimeGenerated"};
print "This script is broken: it should never reach this line\n";
}
return undef;
';
if ($@) {
print "Eval error: $@\n";
return undef;
}
else {
return $result;
}
}
$several = @uptimes - 1;
foreach (@uptimes) {
print "up ", &time2days($_), " (since ", scalar localtime($_), ")\n";
print "or:\n" if $several;
}
print "... but who would believe that anyway?...\n" if $several;
sub time2days {
print "converting $_[0]\n" if $debug;
my $days = (time() - $_[0])/(24*60*60);
my $hours = ($days - int($days)) * 24;
my $minutes = ($hours - int($hours)) * 60;
my $day_st = $days >= 2 ? 'days' : 'day';
return sprintf("%0d $day_st %02d:%02d", $days, $hours, $minutes);
}
S
Steve Parry [MVP]
George said:Hmm that's interesting but I don't get the uptime using that:
Install ActiveState Perl then the perl file is:
#up.pl
$^O eq "MSWin32" || die "Sorry, this works only on Windows for
now\n";
my $max_results = 5; # if we have to use tick counts
my $VERSION = 0.26;
my $debug = $ENV{'QUERY_STRING'} || $ARGV[0];
print "$0 version $VERSION\n" if $debug;
print "Debug mode on\n" if $debug;
print "Perl version $]\n" if $debug;
BEGIN {
# HTTP headers if needed
local $^W = 0;
print "$ENV{'SERVER_PROTOCOL'}/200 OK\n" if $ENV{'PERLXS'} eq
"PerlIS";
print "Content-type text/plain\n\n" if $ENV{'SERVER_PROTOCOL'};
}
my ($several, @uptimes);
if (Win32::IsWinNT()) {
print "Windows NT\n\n" if $debug;
push @uptimes, (&event_log || &tick_counts);
print "eval error: $@\n" if $@ && $debug;
}
else {
print "Windows 9x\n\n" if $debug;
push @uptimes, (&system_da0 || &tick_counts);
}
sub tick_counts {
print "Counting ticks\n" if $debug;
my @ticks;
my $ticks = Win32::GetTickCount() > 0
? Win32::GetTickCount()
: Win32::GetTickCount() + 2**32;
my $seconds = $ticks/1000;
for (1..$max_results-1) {
push @ticks, time()-$seconds;
$seconds += 2**32/1000;
}
return @ticks, time()-$seconds;
}
sub system_da0 {
my $file = "$ENV{'WINDIR'}\\system.da0";
print "Checking $file\n" if $debug;
my $stat = (stat $file)[9];
print "Could not stat $file ($!)\n" if $debug && !$stat;
return $stat || undef;
}
sub event_log {
my $result = eval '
local $^W = 0;
use Win32::EventLog;
my ($EventLog, $first, $count, $event, %data);
Win32::EventLog::Open($EventLog , "System", "") || die
("EventLog Open() failed");
$EventLog->GetOldest($first) || die ("EventLog GetOldest()
failed");
$EventLog->GetNumber($count) || die ("EventLog GetNumber()
failed");
print "Event log first=$first, count=$count\n" if $debug;
$EventLog->Read((EVENTLOG_SEEK_READ |
EVENTLOG_BACKWARDS_READ),$first+$count,$event);
for $i (0 .. $first+$count-1) {
$EventLog->Read((EVENTLOG_SEQUENTIAL_READ|EVENTLOG_BACKWARDS_READ),0,$ev
ent)
|| die ("EventLog Read() failed at event $i");
%data = %{$event};
$data{"EventID"} = $data{"EventID"} & 0xffff;
next unless $data{"EventID"} == 6005;
print "Found event 6005\n" if $debug;
return $data{"TimeGenerated"};
print "This script is broken: it should never reach this
line\n";
}
return undef;
';
if ($@) {
print "Eval error: $@\n";
return undef;
}
else {
return $result;
}
}
$several = @uptimes - 1;
foreach (@uptimes) {
print "up ", &time2days($_), " (since ", scalar localtime($_),
")\n";
print "or:\n" if $several;
}
print "... but who would believe that anyway?...\n" if $several;
sub time2days {
print "converting $_[0]\n" if $debug;
my $days = (time() - $_[0])/(24*60*60);
my $hours = ($days - int($days)) * 24;
my $minutes = ($hours - int($hours)) * 60;
my $day_st = $days >= 2 ? 'days' : 'day';
return sprintf("%0d $day_st %02d:%02d", $days, $hours, $minutes);
}
--
-- --
--
CMD prompt
type
net statistics server
press enter
on my machine
the following was output
"Server Statistics for \\AMD1400
Statistics since 2/23/2004 5:37 PM"
indicating it was switched on at the above time, a quick calc can then
be made to find uptime.
Ask a Question
Want to reply to this thread or ask your own question?
You'll need to choose a username for the site, which only take a couple of moments. After that, you can post your question and our members will help you out.