Hallo,
bin als Domänenbenutzer an meinem Rechner angemeldet und habe ausprobiert:
Delphi-Quellcode:
ShowMessage(RunningOnServerOrWorkstation(GetEnvironmentVariable('USERDOMAIN')));
ShowMessage(RunningOnServerOrWorkstation(GetEnvironmentVariable('USERDNSDOMAIN')));
Das erste ShowMessage liefert mir "Der Netzwerkpfad wurde nicht gefunden."
Das zweite ShowMessage liefert mir "This is a Server."
Das kannst Du auch auf der Dosebene per Ping prüfen:
Delphi-Quellcode:
ping %USERDNSDOMAIN%
ping %USERDOMAIN%
Erste Variante liefert Dir die
IP des Domänservers, zweite variante kann Host nicht finden.
Stephan