Как управлять сервисом на другом компьютере в W2K?

Материал из DRKB

Как управлять сервисом на другом компьютере в W2K?[править | править код]

Требуется написать управление сервисом, запущенном на другом компьютере. С помощью чего это лучше сделать?

uses
  Windows, Messages, SysUtils,
  StdCtrls, SvcMgr;
var
  ssStatus: TServiceStatus;
  schSCManager, schService: SC_HANDLE;
begin
  schSCManager := OpenSCManager(PChar('Comp1'), // имя компьютера, nil - local machine
    nil, // ServicesActive database
    SC_MANAGER_ALL_ACCESS); // full access rights

  if schSCManager = 0 then exit; // Ошибка?

  schService := OpenService(
    schSCManager, // SCM database
    PChar('SQLServerAgent'), // посмотри имя в Services. В данном случае - MS Server Agent
    SERVICE_ALL_ACCESS);

  if schService = 0 then exit; // Ошибка?

  if not QueryServiceStatus(
    schService, // handle to service
    ssStatus) then // address of status information structure
    exit; // Ошибка?

  case ssStatus.dwCurrentState of
    SERVICE_RUNNING: ShowMessage('Работает!');
    SERVICE_STOPPED: ShowMessage('Выключен');
    // ну и т.д.
  end;
end;



Source: Взято с сайта http://blackman.wp-club.net/
ID: 02231