Re: Local Reboot of NT Workstation


The stupid question is the question not asked
	PerlMonks

Re: Local Reboot of NT Workstation

by $code or die (Deacon)

on Oct 28, 2000 at 18:17 UTC ( [id://38918]=note: print w/replies, xml )

Need Help??

in reply to Local Reboot of NT Workstation

It's in the Win32 Module as well, so this should do the trick:

use Win32;

my $machine = "";
my $message = 'WARNING: This system is about to reboot';
my $timeout = 10;    # 10 seconds countdown
my $forceclose = 1;  # Force all applications to close without saving
my $reboot = 1;      # Reboot the system after shutdown

Win32::InitiateSystemShutdown($machine,$message,$timeout,$forceclose,$
+reboot);
[download]

There is also an abort call - Win32::AbortSystemShutdown($machine);

Good Luck