shutdown windows remotely

Thread: shutdown windows remotely

Search this list only Search all lists
shutdown windows remotely
	2006-04-22 14:11:56
the routine for as well local as remote shutdown. My routine looks like: &nbsp; {===================================================================}  ; procedure PerformReboot;  ; {===================================================================}  ; VAR ErrorCode&nbsp;   ; &nbsp; &nbsp; : DWORD; &nbsp; &nbsp;   UserMsg&nbsp; &nbsp; &nbsp;   ; &nbsp; : string; // &nbsp; &nbsp;  hToken&nbsp; &nbsp; &nbsp; &nbsp;   ;  : THandle;   begin &nbsp; &nbsp; UserMsg := 'Reboot required because of microsoft patch ' +  &nbsp;   ; &nbsp; &nbsp; &nbsp; &nbsp;  PPatchSettings (_PatchSettings.Items[grdPatches.ActiveRow-1])^.PatchID + ' installation!"';  &nbsp;  if CompSettings.ComputerName = '' then begin &nbsp; &nbsp; &nbsp; if EnablePrivilege ('SeShutdownPrivilege') = 0 then begin &nbsp; &nbsp; &nbsp;   MessageDlg('Unable to set the "SeShutdownPrivilege" privilege', mtError, [mbOK], 0);  ; &nbsp; &nbsp; end; &nbsp; &nbsp; end  ; &nbsp; else begin &nbsp; &nbsp; &nbsp; if EnablePrivilege ('SeRemoteShutdownPrivilege') = 0 then begin &nbsp; &nbsp; &nbsp;   MessageDlg('Unable to set the "SeRemoteShutdownPrivilege&quot; privilege', mtError, [mbOK], 0);  ; &nbsp; &nbsp; end; &nbsp; &nbsp; end; &nbsp; &nbsp; if InitiateSystemShutdown (PChar (CompSettings.ComputerName), &nbsp; &nbsp;   ; &nbsp; &nbsp; &nbsp; &nbsp;   ; &nbsp; &nbsp; &nbsp; &nbsp;   ; &nbsp; PChar (UserMsg),  &nbsp; &nbsp; &nbsp;   ; &nbsp; &nbsp; &nbsp; &nbsp;   ; &nbsp; &nbsp; &nbsp; &nbsp;   _RebootDelay,    ; &nbsp; &nbsp; &nbsp; &nbsp;   ; &nbsp; &nbsp; &nbsp; &nbsp;   ; &nbsp; &nbsp;  false, &nbsp; &nbsp;   ; &nbsp; &nbsp; &nbsp; &nbsp;   ; &nbsp; &nbsp; &nbsp; &nbsp;   ; &nbsp; true) then begin &nbsp; &nbsp; &nbsp; MessageDlg('Reboot succesfully requested over and interval of ' + IntToStr (_RebootDelay) + ' seconds', mtInformation, [mbOK], 0);  ; &nbsp; end  ; &nbsp; else begin &nbsp; &nbsp; &nbsp; ErrorCode := GetLastError;    ; &nbsp; case ErrorCode of    ; &nbsp; &nbsp; ERROR_ACCESS_DENIED : begin &nbsp; &nbsp; &nbsp;   ;  if CompSettings.ComputerName = '' then begin &nbsp; &nbsp; &nbsp;   ; &nbsp;  MessageDlg('You do not have enough privilege to reboot this computer', mtError, [mbCancel], 0);  ; &nbsp; &nbsp; &nbsp; &nbsp; end  ; &nbsp; &nbsp; &nbsp; &nbsp; else begin &nbsp; &nbsp; &nbsp;   ; &nbsp;  MessageDlg('You do not have enough privilege to reboot this computer' + cr +  &nbsp;   ; &nbsp; &nbsp; &nbsp; &nbsp;   ; &nbsp; &nbsp; &nbsp; 'Probable the "Administrator&quot; group does not have the "Force shutdown from a remote system&quot; user right', mtError, [mbCancel], 0);  ; &nbsp; &nbsp; &nbsp; &nbsp; end; &nbsp; &nbsp; &nbsp; &nbsp; end; &nbsp; &nbsp; &nbsp; &nbsp; else begin &nbsp; &nbsp; &nbsp;   ;  MessageDlg(format ('Error %d (%s) requesting reboot', [ErrorCode, SysErrorMessage (ErrorCode)]), mtError, [mbOK], 0);  ; &nbsp; &nbsp; &nbsp; end; &nbsp; &nbsp; &nbsp; end; &nbsp; &nbsp; end; &nbsp; end; kind regards, Ronny Aerts Belgium ----- Original Message ----- From: "eCcOns" <ecconsgmail.com&gt; To: <delphi-en@yahoogroups.com>; Sent: Thursday, April 06, 2006 6:33 AM Subject: [delphi-en] shutdown windows remotely >i have difficulty abaut shutdown windows remotely.. > can you help me or suggest site abaut that.. &gt; > Thx > > > ----------------------------------------------------- > Home page: http://groups.yahoo.com/group/delphi-en/ > To unsubscribe: delphi-en-unsubscribe@yahoogroups.com > Yahoo! Groups Links >; > &gt; > &gt; > > > >