User aus Gruppe entfernen => Fehlercode 1387...

ThomasEi · Verfasst: Sa 06.09.08 07:38

Hallo,

ich spiele etwas mit 'MPuNTUser.pas' herum, um mich mit dem Thema Benutzerveraltung vertraut zu machen.
Die Unit von "Michael Puff" (www.michael-puff.de) ist da ein ganz hilfreicher Einstieg.

Ich habe ein WinXP prof. mit D2005 prof. und bin als Admin angemeldet.

Damit lege ich einen User an, das klappt wunderbar ohne Problem:

markieren

Delphi-Quelltext

1:
2:
3:
4:

ups := AddUser(compname, Edit3.Text, Edit4.Text); //Edit3.Text=Username, Edit4.Text=Passwort
Meldungsmemo.Lines.Add(NetErrorStr(ups));
ups := AddToGroup(compname, Edit3.Text, 'Benutzer');
Meldungsmemo.Lines.Add(NetErrorStr(ups));

Doch wenn ich versuche diesen User wieder aus einer Gruppe zu entfernen:

markieren

Delphi-Quelltext

1:
2:

ups := RemoveFromGroup(compname, Edit3.Text, 'Benutzer');
Meldungsmemo.Lines.Add(NetErrorStr(ups));

Bekomme ich "Fehlercode 1387: Benutzer existiert nicht" zurück.

Was mache ich falsch?

Thomas

Moderiert von Narses: Delphi-Tags hinzugefügt

Hidden · Verfasst: Sa 06.09.08 08:26

ThomasEi hat folgendes geschrieben:

Was mache ich falsch?

Du benutzt keine Delphi-Tags. Dadurch wird dein Quelltext unlesbar

Deinen Quelltext packst du am besten in <span class="inlineSyntax"><span class="codecomment">{PROTECTTAG114227ce9778776bee31ee115abf0eac}</span></span> Einzelne Stellen markierst du mit dem Highlight-Tag: [highlight ] markierte Stelle [/highlight]

mfG,

_________________
Centaur spears can block many spells, but no one tries to block if they see that the spell is a certain shade of green. For this purpose it is useful to know some green stunning hexes. (HPMoR)

Ehemaliges Mitglied Erhaltene Danke: 1

ThomasEi hat folgendes geschrieben:

markieren

Delphi-Quelltext

1:
2:

ups := RemoveFromGroup(compname, Edit3.Text, 'Benutzer');
Meldungsmemo.Lines.Add(NetErrorStr(ups));

Wird der Benutzer dann auch nicht aus der Gruppe entfernt oder was passiert? Generell sollte man den Rückgabewert einer API-Funktion nur dann abrufen, wenn die Funktion fehlgeschlagen ist, da ansonsten der Wert von GetLastError usw. unbestimmt ist.

ThomasEi · Verfasst: Sa 06.09.08 20:24

Nein, leider wird der Benutzer nicht aus der Gruppe entfernt.

Thomas

Ehemaliges Mitglied Erhaltene Danke: 1

Versuch es mal mit WideStrings. Alle Funktionen in denen Zeichenketten als Parameter vorkommen sind in meiner Unit WideStrings.

ThomasEi · Verfasst: So 07.09.08 00:10

Hallo Luckie,

habe den Fehler gefunden, in der "MPuNTUser.pas"

Funktion die bei mir nicht funktioniert:

markieren

Delphi-Quelltext

1:
2:
3:
4:
5:

function RemoveFromGroup(const Server, User, Group: WideString): NET_API_STATUS;
...
      Member.lgrmi3_domainandname := PWideChar(copy(Server, 3, length(Server)) + '\' + User);
...
end;

Im COPY wird erst an der 3. Stelle der PC-Name übernommen.
Richtiger währe und so funktioniert es bei mir, ab der 0. Stelle.

Funktion die bei mir funktioniert:

markieren

Delphi-Quelltext

1:
2:
3:
4:
5:

function RemoveFromGroup(const Server, User, Group: WideString): NET_API_STATUS;
...
      Member.lgrmi3_domainandname := PWideChar(copy(Server, 0, length(Server)) + '\' + User);
...
end;

Danke für die Unterstützung und ein schönes Wochenende noch.

Thomas

Ehemaliges Mitglied Erhaltene Danke: 1

Das ist kein Fehler. Du musst nur "\\" vor den Rechnernamen setzen. Das hatte ich so gemacht, weil ich irgendwie alle Rechnernamen so bekommen habe von einer anderen Funktion. Wollte man es wasserdicht machen, müsste man abfragen, zwei Bbackslashes vor dem Rechnernamen stehen oder nicht.

Trotzdem solltest du mit WideStrings arbeiten, da alle Funktionen Unicode sind.

ThomasEi · Verfasst: So 07.09.08 00:35

Hallo Luckie,

Entschultigung, selbstverständliche ist dies kein Fehler der Unit, sondern er liegt eindeutig bei mir.
Da ich nun weis warum die Funktion bei mir nicht gearbeitet hatte und Dank Deines Hinweises mit den
zwei Backslashes "\\" kann ich die Abfragen/Eingabe des Computernames verbessern.

Danke

Thomas

	Mitgliederliste
	Gruppen
	Das Team
	Richtlinien
	Synonyme