shutdown or reboot computer

[Jochen Friedmann]

Hello,

how can I reboot, shutdown(PowerOff) or change the user with a Perl Script ?

 

[Anno Siegel]

Hello,

how can I reboot, shutdown(PowerOff) or change the user with a Perl Script ?

First answer the question how to reboot, shut down, or change the user
by any any means in your OS. Then ask yourself how to do the same things
in Perl.

Anno

 

[Jochen Friedmann]

Oh, sorry

the OS is Win2000 or WinnNT

Script ?

First answer the question how to reboot, shut down, or change the user
by any any means in your OS. Then ask yourself how to do the same things
in Perl.

Anno

 

[ko]

Hello,

how can I reboot, shutdown(PowerOff) or change the user with a Perl Script ?

Please read the posting guidelines under what you 'Really Really Should'
do before posting - you may find your answer quicker that way:

http://mail.augustmail.com/~tadmc/clpmisc.shtml

Google search in comp.lang.perl.misc for 'windows shutdown' group (2nd
match) turns up the following (may be wrapped):

http://groups.google.com/[email protected]&rnum=2

Or you could have tried 'perldoc win32' and found the Win32
InitiateSystemShutdown() function.

HTH - keith

 

[Cyde Weys]

Hello,

how can I reboot, shutdown(PowerOff) or change the user with a Perl Script ?

system('shutdown -h now');
system('reboot');
system("su -l $newUser");

 

[Thomas Kratz]

The script below provides two functions for reboot and shutdown and should work for nt to xp.

Thomas

I forgot to mention, that prior to calling Reboot or Powerdown, you'll have to call AdjustToken() first and check for success. And the print statements should be removed for production

Thomas