Ein angegebenes Recht ist nicht vorhanden

fehl. Was bedeutet nun diese Fehlermeldung im einzelnen? Das poassiert sowohl bei schon vorhandenen Benutzergruppen, als auch bei selbst erstellten.

function GrantPrivilege(const Server, user, privilege: string; bRemove: boolean): DWORD; 
var 
  sid               : PSID; 
  strSID            : PWideChar; 
  sidSize, sidNameUse: DWORD; 
  domainNameSize    : DWORD; 
  domainName        : array[0..DNLEN] of char; 
  attributes        : TLsaObjectAttributes; 
  policyHandle      : LSA_HANDLE; 
  lsaComputerName, rightsLsaUnicodeString: TLSAUnicodeStr; 
  status            : NTStatus; 

begin 
  result := 0; 
  sidSize := 65536; 
  GetMem(sid, sidSize); 
  domainNameSize := DNLEN + 1; 
  try 
    if LookupAccountName(PChar(Server), PChar(user), sid, sidSize, domainName, domainNameSize, sidNameUse) then 
    begin 
      lsaComputerName := TLsaUnicodeStr.CreateFromStr(Server); 
      try 
        FillChar(attributes, SizeOf(attributes), 0); 
        status := LsaOpenPolicy(lsaComputerName.value, attributes, POLICY_CREATE_ACCOUNT or POLICY_LOOKUP_NAMES, policyHandle); 
        if status = STATUS_SUCCESS then 
        try 
          rightsLsaUnicodeString := TLsaUnicodeStr.CreateFromStr(privilege); 
          try 
            if bRemove then 
              status := LsaRemoveAccountRights(PolicyHandle, sid, False, @rightsLsaUnicodeString.value, 1) 
            else 
              status := LsaAddAccountRights(PolicyHandle, sid, @rightsLsaUnicodeString.value, 1); 

            if status <> STATUS_SUCCESS then 
              result := (LsaNtStatusToWinError(status)); 
          finally 
            rightsLsaUnicodeString.Free 
          end 
        finally 
          LsaClose(PolicyHandle) 
        end 
      finally 
        lsaComputerName.Free 
      end 
    end 
  finally 
    FreeMem(sid) 
  end 
end;

Aufruf mit:

procedure TForm1.Button3Click(Sender: TObject); 
var 
  err: DWORD; 
begin 
  err := GrantPrivilege('hal9000', 'Benutzer', 'SeBackupPrivilege', False); 
  if err <> 0 then 
    ShowMessage(SysErrorMessage(err)); 
end;

Gut, das ist jetzt Delphicode, aber am Code selber wird es wohl nicht liegen, er kompiliert und eine gültige SID und ein gültigs PolicyHandle bekomme ich auch. Desweiteren hat ein ähnlicher Code die selbe Fehlermeldung produziert.

Das Ergebnis sollte sich gegen Ende des Monats in diesem Programm wieder finden, wenn alles gut geht.