AGB  ·  Datenschutz  ·  Impressum  







Anmelden
Nützliche Links
Registrieren
Thema durchsuchen
Ansicht
Themen-Optionen

ersten Benutzer anlegen ?

Ein Thema von Hansa · begonnen am 21. Okt 2005 · letzter Beitrag vom 23. Okt 2005
Antwort Antwort
Hansa

Registriert seit: 9. Jun 2002
Ort: Saarland
7.554 Beiträge
 
Delphi 8 Professional
 
#1

ersten Benutzer anlegen ?

  Alt 21. Okt 2005, 22:33
Hi,

beim Hochfahren des Rechners soll ein bestimmter Benutzer angemeldet werden. Das ist nicht unbedingt derselbe (abhängig von Rechner). Wo wird das eingetragen ? In der BOOT.INI steht zumindest nichts. Damit zusammen hängt diese Frage : Kann man eine Datei anlegen, in der der Default-Benutzer vorsichtshalber drin steht und bei Bedarf geändert werden kann ?
Gruß
Hansa
  Mit Zitat antworten Zitat
Benutzerbild von Luckie
Luckie

Registriert seit: 29. Mai 2002
37.621 Beiträge
 
Delphi 2006 Professional
 
#2

Re: ersten Benutzer anlegen ?

  Alt 21. Okt 2005, 22:39
Also der Benutzer der automatisch eingeloggt wird, sthet in der Registry:
Delphi-Quellcode:
function SetAutoLogin(const Machine, User, PW: string): LongInt;
var
  MyReg : TMpuRegistry;
  ret : LongInt;
begin
  MyReg := TMpuRegistry.Create(Machine, HKEY_LOCAL_MACHINE);
  try
    with MyReg do
    begin
      ret := Connect;
      if ret = 0 then
      begin
        ret :=
          OpenKey('SOFTWARE\Microsoft\Windows NT\CurrentVersion\Winlogon',
          KEY_WRITE);
        if ret = 0 then
        begin
          WriteStringW('DefaultUsername', User);
          WriteStringW('DefaultPassword', PW);
          WriteStringW('AutoAdminLogon', '1');
        end;
      end;
    end;
  finally
    MyReg.Free;
  end;
  result := ret;
end;
Michael
Ein Teil meines Codes würde euch verunsichern.
  Mit Zitat antworten Zitat
Christian Seehase
(Co-Admin)

Registriert seit: 29. Mai 2002
Ort: Hamburg
11.116 Beiträge
 
Delphi 11 Alexandria
 
#3

Re: ersten Benutzer anlegen ?

  Alt 23. Okt 2005, 01:24
Moin Zusammen,

bliebe noch zu beachten, dass der Wert für AutoAdminLogon nach einer erfolgreichen Anmeldung zurückgesetzt wird, und für das nächste Mal neu gesetzt werden muss.
Tschüss Chris
Die drei Feinde des Programmierers: Sonne, Frischluft und dieses unerträgliche Gebrüll der Vögel.
Der Klügere gibt solange nach bis er der Dumme ist
  Mit Zitat antworten Zitat
Benutzerbild von mh166
mh166

Registriert seit: 14. Nov 2004
Ort: Chemnitz
443 Beiträge
 
Delphi 10.2 Tokyo Starter
 
#4

Re: ersten Benutzer anlegen ?

  Alt 23. Okt 2005, 13:39
@Chris: Ausgehend von der Tatsache, dass Luckie diesen Code sicher in seinem Usermanager verwendet muss ich deine Aussage verneinen. Ich habs über den UM von Luckie eingestellt, dass ich automatisch angemeldet werde. Und dass funzt immer, nich bloß einmal. Wäre ja sonst witzlos.

Ich könnte mir höchstens vorstellen, dass du diese Option beim Setup von XP meinst (in der Unattended.ini oder so) wo man das einstellen kann... Da könnte es sein, dass das nur für einen Logon gilt. Der Code den Luckie in seinem UM verwendet sorgt jedenfalls auf jeden dafür, dass es auch so bleibt

so far...
mfg, mh166
Tiefgründige Sätze unserer Zeit:
Zitat von Luckie:
Und diesen Token zur Laufzeit zu modifizieren würde bedeuten, dass du zur laufzeit das Token ändern musst.
  Mit Zitat antworten Zitat
Hansa

Registriert seit: 9. Jun 2002
Ort: Saarland
7.554 Beiträge
 
Delphi 8 Professional
 
#5

Re: ersten Benutzer anlegen ?

  Alt 23. Okt 2005, 14:50
Thx an Luckie. Das geht schon so und auch immer. Allerdings mußte ich eine Änderung vornehmen : was ist WriteStringW ? Es scheint nchts auszumachen, aber es compiliert nur wenn ich das letzte W weglassen.
Gruß
Hansa
  Mit Zitat antworten Zitat
Benutzerbild von Union
Union

Registriert seit: 18. Mär 2004
Ort: Luxembourg
3.492 Beiträge
 
Delphi 7 Enterprise
 
#6

Re: ersten Benutzer anlegen ?

  Alt 23. Okt 2005, 15:07
Luckie verwendet eine Variante TMpuRegistry. Diese unterstützt Widestrings.
Ibi fas ubi proxima merces
sudo /Developer/Library/uninstall-devtools --mode=all
  Mit Zitat antworten Zitat
Benutzerbild von Luckie
Luckie

Registriert seit: 29. Mai 2002
37.621 Beiträge
 
Delphi 2006 Professional
 
#7

Re: ersten Benutzer anlegen ?

  Alt 23. Okt 2005, 20:16
Zitat von Union:
Luckie verwendet eine Variante TMpuRegistry. Diese unterstützt Widestrings.
Ja, das habe ich vergessen zu erwähnen.
Michael
Ein Teil meines Codes würde euch verunsichern.
  Mit Zitat antworten Zitat
Antwort Antwort


Forumregeln

Es ist dir nicht erlaubt, neue Themen zu verfassen.
Es ist dir nicht erlaubt, auf Beiträge zu antworten.
Es ist dir nicht erlaubt, Anhänge hochzuladen.
Es ist dir nicht erlaubt, deine Beiträge zu bearbeiten.

BB-Code ist an.
Smileys sind an.
[IMG] Code ist an.
HTML-Code ist aus.
Trackbacks are an
Pingbacks are an
Refbacks are aus

Gehe zu:

Impressum · AGB · Datenschutz · Nach oben
Alle Zeitangaben in WEZ +1. Es ist jetzt 04:10 Uhr.
Powered by vBulletin® Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.
LinkBacks Enabled by vBSEO © 2011, Crawlability, Inc.
Delphi-PRAXiS (c) 2002 - 2023 by Daniel R. Wolf, 2024 by Thomas Breitkreuz