windows - 如何获取不同语言的管理员组名称

Question

我正在使用 Inno Setup 开发安装程序，我需要创建一个具有管理员权限的 Windows 用户，我可以使用以下命令正常完成:net localgroup administrators USER/add

但是有一个问题...如果我在非英语 Windows 上执行此操作，“管理员”组将不存在，又名:如果在 pt-br Windows 上安装，它将被称为“Administradores”。

我想知道是否有一个 windows 变量来存储管理组名称。

请注意，使用 Inno Setup 我可以使用 vbs 脚本。

Answer 1

我对 Inno Setup 做了一个函数，我想它也适用于 Delphi。

SID 的完整列表:http://support.microsoft.com/kb/243330/en

谢谢@nlsbshtr

function GetNameBySID(const SID: string): string;
var
  WbemLocator, WbemServices, WbemService, WbemObjectSets: Variant;
begin;
  Result := '';
  WbemLocator := CreateOleObject('WbemScripting.SWbemLocator');
  WbemServices := WbemLocator.ConnectServer('localhost', 'root\CIMV2');
  WbemObjectSet := WbemServices.ExecQuery('SELECT Name FROM Win32_Group where SID="'+SID+'"');
  if not VarIsNull(WbemObjectSet) and (WbemObjectSet.Count > 0) then
  begin        
    WbemObject := WbemObjectSet.ItemIndex(0);
    if not VarIsNull(WbemObject) then
      Result := WbemObject.Name;      
  end;
end;