XP Usermanagers 6.1 Open Source

[Luckie]

Aktuelle Version: 6.1.0.25

Der UserManager dient dazu Benutzerkonten auf NT ff. Maschinen anzulegen, zu löschen, Benutzer Gruppen zu zuordnen und deren Konten zu verwalten. All dies kann man auch mit der Windows internen Benutzerverwaltung, nur nicht so übersichtloch, wie ich denke.
Man kann mit dem Usermanager auch lokale Benutzerkonten auf remote Computer im Netzwerk verwalten. Was allerdings nicht mit Windows XP Home funktioniert, da XP Home den remote Zugriff nicht gestattet.

Unterstütze Betriebssysteme:

• Windows NT 4.0, vermutlich, nicht getestet.
• Windows 2000
• Windows XP (32-Bit), Windows XP Home wird nicht remote unterstützt.
• Windows Vista 32-Bit
• Windows 7 32-Bit, 64-Bit

Features:

• Auswahl des zu bearbeitenden Computers (und ist damit netzwerktauglich)
• Anzeige des Betriebsystems des Remotecomputers
• Anzeigen des ausgewählten Computers und Benutzers in der Titelzeile
• Statusanzeige beim Übertragen der Konten und Kontendaten in der Statusleiste
• Auflistung sämtlicher Konten in einer Baumstruktur (einschließlich Systemkonten wie z.B. Hilfeassistent)
• Hervorheben von deaktivierten Konten durch ein anderes Symbol
• Ansicht kann zwischen Benutzern und Gruppen umgeschaltet werden
• Details mit Angabe des Benutzer-Namens, vollständiger Name, Beschreibung, Stammverzeichnis und Script
• Checkboxen zur schnellen Konfiguration des ausgewählten Kontos bezüglich Kennwort und anderen Daten
• Direkte Anzeige der Zuordnung zu Gruppen sowie Anzeige aller verfügbaren Gruppen
• Direkte Anzeige sämtlicher Parameter des Kontos
• Benutzer können in eine CSV Datei exportiert werden
• Es können mehrere Benutzer auf einmal über eine Vorlagendatei angelegt und wieder gelöscht werden
• Integrierte Gruppenverwaltung
• Toolbar mit Schaltflächen für die wichtigsten Funktionen
• Export der Benutzer von und Import von Benutzer aus einer XML-Dateien neu
• Modernere Icons neu
• Ausführliche kontextsensitive Hilfe

Der XP Usermanager ist ab sofort Freeware. Im Archiv befindet sich noch eine paf.exe zur Installation für PortableApps (http://portableapps.com/)

[Luckie]

Ich war jung und brauchte den Code.

[Delphi-Laie]

Zitat von DieDolly:

An dieser Prozedur scheitert es in 64 Bit zu kompilieren

Delphi-Quellcode:

function StrIComp(const Str1, Str2: PChar): Integer; assembler
begin
...
end;

Durch das Hinzufügen von System.SysUtils kann man zwar die 32 Bit Version kompilieren und starten. Die 64 Bit startet aber nicht. Kompilieren lässt sie sich.

Die Funktion "StrIComp" befindet sich nicht in den originalen Quelltexten, die Luckie seinerzeit erstveröffentlichte (habe das Archiv natürlich noch). Weder in deklarierter, implementierter noch aufgerufener Form.

In welcher Quelltextdatei soll diese sich denn befinden?

[Uwe Raabe]

Zitat von Delphi-Laie:

In welcher Quelltextdatei soll diese sich denn befinden?

common\MpuTools.pas

Ist zumindest im GitHub Repo so.

[Delphi-Laie]

Zitat von Uwe Raabe:

Zitat von Delphi-Laie:

In welcher Quelltextdatei soll diese sich denn befinden?

common\MpuTools.pas

Ist zumindest im GitHub Repo so.

Danke (auch wenn nicht der eigentlich gefragte antwortete)!

Dann geht das wohl schon auf die Änderungen zurück, die dort in GitHub veröffentlicht werden.

Soweit ich weiß, hat Sebastian Jänicke dort seine Hand auf diesem Projekt.

[Luckie]

Source\common\MpuTools.pas

Da liegt sie bei mir auf den Rechner im Ordner der Version 6.1. Das ist meine letzte Version und die, die ich rausgegeben habe.

[Delphi-Laie]

Zitat von Luckie:

Source\common\MpuTools.pas

Da liegt sie bei mir auf den Rechner im Ordner der Version 6.1. Das ist meine letzte Version und die, die ich rausgegeben habe.

Ich nehme meine Aussage/Behauptung mit Bedauern zurück, sie ist doch dort in Deiner originalen Datai mputools.pas enthalten.

Die Windows-Suche, die in den Dateien suchen soll, hat, warum auch immer, nicht angeschlagen.

[Delphi-Laie]

Also, ich bin ja in Programmierdingen Pragmatiker (paßt das zur Delphi-Praxis?) und vereinfache deshalb immer soweit wie möglich.

Die zu 64 Bit nicht compilierbare Assembler-Funktion (ja, ich weiß, das wurde ja inzwischen umschifft) wird nur einmal im Projekt aufgerufen, nämlich in der Datei "mputools.pas" in der Zeile 1725. Entfernt man diese Funktion (bzw. kommentiert man sie aus, nichts soll schließlich verlorengehen), und man ändert in besagter Datei in der besagter Zeile den Ausdruck

StrIComp(Info.szCSDVersion, 'Service Pack 6') = 0

zu

Info.szCSDVersion = 'Service Pack 6'

, dann compiliert es wieder anstandslos, jedenfalls unter 32 Bit (Delphi 7). Hoffentlich ist das auch inhaltlich korrekt.

[Uwe Raabe]

Zitat von Delphi-Laie:

Hoffentlich ist das auch inhaltlich korrekt.

Nicht ganz:

Zitat:

Vergleicht zwei Strings ohne Berücksichtigung der Groß-/Kleinschreibung.

siehe http://docwiki.embarcadero.com/Libra...Utils.StrIComp

[Delphi-Laie]

Danke!

Ganz pragmatisch hätte ich dann mit upper- oder lowercase rumgemacht, sehe aber just, daß auch das in bestimmten Fällen seine Tücken hat (z.B. https://www.delphipraxis.net/183060-...ute-nicht.html).

Aber das führt in dieser XP-Usermanager-Diskussion nun auch allmählich zu weit.

[Codehunter]

Zitat von Delphi-Laie:

Also, ich bin ja in Programmierdingen Pragmatiker (paßt das zur Delphi-Praxis?) und vereinfache deshalb immer soweit wie möglich.

Die zu 64 Bit nicht compilierbare Assembler-Funktion (ja, ich weiß, das wurde ja inzwischen umschifft) wird nur einmal im Projekt aufgerufen, nämlich in der Datei "mputools.pas" in der Zeile 1725. Entfernt man diese Funktion (bzw. kommentiert man sie aus, nichts soll schließlich verlorengehen), und man ändert in besagter Datei in der besagter Zeile den Ausdruck

StrIComp(Info.szCSDVersion, 'Service Pack 6') = 0 zu

Info.szCSDVersion = 'Service Pack 6' , dann compiliert es wieder anstandslos, jedenfalls unter 32 Bit (Delphi 7). Hoffentlich ist das auch inhaltlich korrekt.

Nur mal so laienhaft gefragt: Warum prüft ihr die SP-Version über Stringvergleiche ab? Das geht doch eleganter. Siehe mein good old DelphiWorks 1.5 und dort in der dwWinSystem.pas die Funktion "dwNTServicePackMajorVersion" bzw. "dwNTServicePackMinorVersion"