Restart machine in different OS paltform

[andyng.hk]

Hi:
I need to write a script which need to restart machine for AIX
,windows and linux.
What is the easier way to do that in perl?

Thanks

 

[George]

Hi:
I need to write a script which need to restart machine for...
[snip]

...windows

if your Windows happens to be Windows NT, see
Win32::InitiateSystemShutdown.
I have typed in "perldoc win32" for ActiveState Perl and after a couple
of pages I found:

Win32::InitiateSystemShutdown
(MACHINE, MESSAGE, TIMEOUT, FORCECLOSE, REBOOT)

[EXT] Shutsdown the specified MACHINE, notifying users with the
supplied MESSAGE, within the specified TIMEOUT interval. Forces
closing of all documents without prompting the user if FORCECLOSE
is
true, and reboots the machine if REBOOT is true. This function
works
only on WinNT.

 

[Vipin Nair]

Hello George,

Could you please give an example of usage.
How to specify MACHINE, is it Ip address?
Is MESSAGE, quoted words
TIMEOUT, is this time in milliseconds
FORCECLOSE, can we use hard coded values
REBOOT

Win32::InitiateSystemShutdown (xxx.xxx.xx.xxx, "Viel Spass", 10 , 1, 1)
(xxx is ip address)
but it was giving error as:

The filename, directory name, or volume label syntax is incorrect.

Regards,
Vipin

 

[Brian Wakem]

Hi:
I need to write a script which need to restart machine for AIX
,windows and linux.
What is the easier way to do that in perl?

Thanks

On linux: `shutdown -r now`

 

[Dave]

Hello George,

Could you please give an example of usage.
How to specify MACHINE, is it Ip address?
Is MESSAGE, quoted words
TIMEOUT, is this time in milliseconds
FORCECLOSE, can we use hard coded values
REBOOT

Win32::InitiateSystemShutdown (xxx.xxx.xx.xxx, "Viel Spass", 10 , 1, 1)
(xxx is ip address)
but it was giving error as:

The filename, directory name, or volume label syntax is incorrect.

Regards,
Vipin

lpMachineName
[in] Pointer to the null-terminated string that specifies the network name
of the computer to shut down. If lpMachineName is NULL or an empty string,
the function shuts down the local computer.
http://windowssdk.msdn.microsoft.co...n-us/Shutdown/base/initiatesystemshutdown.asp

 

[andyng.hk]

Thanks for the replies, what if i don't know whether the machine is
linux, AIX or windows? we need to have 1 script applied regionally to
different OS and machine...

 

[Tad McClellan]

what if i don't know whether the machine is
linux, AIX or windows?

perl -le 'print "my OS is $^O"'

we need to have 1 script applied regionally to
different OS and machine...

if ( $^O eq 'linux' )
{ linux_restart() }
elsif ( $^O eq 'MSWin32' )
{ windows_restart() }
...