Доступ к реестру удаленного компьютера через Inno Setup: решением становится UltraVNC?

Delphi , ОС и Железо , Реестр

Доступ к реестру удаленного компьютера через Inno Setup

Вопрос доступа к реестру удаленного компьютера через Inno Setup является актуальным для разработчиков, использующих этот инструментарий для развертывания программного обеспечения. Особенно это важно, когда имеется необходимость обновления групп компьютеров, находящихся в сети, включая бесконсольные (headless) системы. Примером такой ситуации может служить необходимость проверки наличия поврежденной версии UltraVNC на удаленном компьютере.

Описание проблемы

Разработчик сталкивается с проблемой, что стандартные функции Inno Setup, такие как RegQueryStringValue, не поддерживают доступ к реестру удаленных машин. Это затрудняет выполнение задач, требующих взаимодействия с реестром на удаленном компьютере, особенно в случае, если это необходимо для выполнения задач, требующих перезагрузки системы.

Решение проблемы

Для решения этой проблемы можно использовать функции WinAPI, которые позволяют подключаться к реестру удаленного компьютера и выполнять операции чтения данных. Важно отметить, что UltraVNC может устанавливаться в 64-битную часть реестра на 64-битных системах Windows, что требует проверки обеих частей реестра.

Вот пример кода на Object Pascal, который демонстрирует, как можно подключиться к реестру удаленного компьютера и прочитать значение:

function RegConnectRegistry(machineName: string; hKeyRoot: Integer; var phKey: Integer): Integer;
  external 'RegConnectRegistryA@Advapi32.dll';
function RegOpenKeyEx(hKeyRoot: Integer; subkey: string; reserved, access: Integer; var phKey: Integer): Integer;
  external 'RegOpenKeyExA@Advapi32.dll';
function RegQueryValueEx(hKey: Integer; value: string; reserved: Integer; var pType: Integer; data: string; var pDataLen: Integer): Integer;
  external 'RegQueryValueExA@Advapi32.dll';
function RegCloseKey(hKey: Integer): Integer;
  external 'RegCloseKey@Advapi32.dll';

procedure CheckRemoteVNC();
var
  HKRM, key: Integer;
  data: string;
  dwType, dataLen, retVal: Integer;
begin
  data := '12345678901234567890'; // Заполнитель для буфера. Цифры для удобства подсчета длины.
  dataLen := 20
  // Убедитесь, что сервис Remote Registry запущен
  Exec('sc', ExpandConstant('\<target\> start RemoteRegistry'), '', SW_HIDE, ewWaitUntilTerminated, retVal);
  RegConnectRegistry('<target>', HKEY_LOCAL_MACHINE, HKRM);
  if RegOpenKeyEx(HKRM, '<key>', 0, KEY_QUERY_VALUE, key) = ERROR_FILE_NOT_FOUND then
    // Попытка открыть 64-битную часть реестра.
    retVal := RegOpenKeyEx(HKRM, '<key>', 0, KEY_WOW64_64KEY or KEY_QUERY_VALUE, key);
  RegQueryValueEx(key, '<value>', 0, dwType, data, dataLen);
  SetLength(data, dataLen - 1);
  // Обработка данных соответствующим образом.
  if key <> 0 then RegCloseKey(key);
  if HKRM <> 0 then RegCloseKey(HKRM);
end;

Для выполнения этой задачи необходимо убедиться, что сервис Remote Registry запущен на целевом компьютере. Также стоит учитывать, что на Windows Vista и более поздних версиях этот сервис не запущен по умолчанию, и его необходимо запустить явно.

Альтернативные подходы

В качестве альтернативы можно использовать внешние утилиты, такие как psexec, для выполнения приложения на удаленном компьютере, которое выполнит необходимые задачи. Однако, этот подход может быть неудобен из-за политики компании или необходимости поддержания совместимости версий.

Заключение

Доступ к реестру удаленного компьютера через Inno Setup можно реализовать, используя функции WinAPI. Это позволяет разработчикам гибко управлять процессами установки и обновления программного обеспечения на удаленных машинах, включая проверку состояния таких приложений, как UltraVNC.

Создано по материалам из источника по ссылке.

Разработчики используют Inno Setup для доступа к реестру удаленного компьютера, но сталкиваются с ограничениями, и для решения этой задачи можно использовать функции WinAPI для подключения к реестру удаленного компьютера.

Комментарии и вопросы

Получайте свежие новости и обновления по Object Pascal, Delphi и Lazarus прямо в свой смартфон. Подпишитесь на наш Telegram-канал delphi_kansoftware и будьте в курсе последних тенденций в разработке под Linux, Windows, Android и iOS

:: Главная :: Реестр ::