shutdown under windows 2000

[iRob]

Hi all！ The following code in C++ is for shutting down the computer under Windows 2000. [code] BOOL MySystemShutdown() {     HANDLE hToken;     TOKEN_PRIVILEGES tkp;     // Get a token for this process.     if (!OpenProcessToken(GetCurrentProcess(),          TOKEN_ADJUST_PRIVILEGES | TOKEN_QUERY, &hToken))        return( FALSE );     // Get the LUID for the shutdown privilege.     LookupPrivilegeValue(NULL, SE_SHUTDOWN_NAME,          &tkp.Privileges[0].Luid);     tkp.PrivilegeCount = 1;  // one privilege to set     tkp.Privileges[0].Attributes = SE_PRIVILEGE_ENABLED;     // Get the shutdown privilege for this process.     AdjustTokenPrivileges(hToken, FALSE, &tkp, 0,          (PTOKEN_PRIVILEGES)NULL, 0);     if (GetLastError() != ERROR_SUCCESS)        return FALSE;     // Shut down the system and force all applications to close.     if (!ExitWindowsEx(EWX_SHUTDOWN | EWX_FORCE, 0))        return FALSE;     return TRUE; } [/code] For being not very familiar with Win32API, I have a problem in rewriting the above code in Perl with Win32-API. I know that the Win32::InitiateSystemShutdown is for shutting down the computer. But after this API was executed, the system prompted me to shutdown by hand, while what I hope is to be done automatically. I think the above code is practically what i need. Thanks in advance. Rob