Feststellen, ob man "root" ist?

[pickelrobert]

Wie stelle ich programmtechnisch fest, ob ich "root" bin? Ich dachte da z.B. an:

Code: Alles auswählen

werbinch.s=whoami_()

[TomS]

Wie wär's wenn du versuchst eine Datei zu öffnen ( ReadFile() oder LoadFile() ), auf die man nur als root zugreifen kann?

[ts-soft]

Code: Alles auswählen

Procedure I_Am_Root()
  Protected.s HomeDir = GetHomeDirectory()
  If StringField(HomeDir,  CountString(HomeDir, "/"), "/") = "root"
    ProcedureReturn #True
  EndIf
  ProcedureReturn #False 
EndProcedure

Debug I_Am_Root()

Geht bestimmt auch eleganter

Gruß
Thomas

[Marvin]

Code: Alles auswählen

If geteuid_()=0
    ;root!
Else
    ;Nicht root!
EndIf

EDIT: geteuid_() ist besser, das hilft auch, wenn das Sticky-Bit gesetzt ist.

[ts-soft]

EDIT: geteuid_() ist besser, das hilft auch, wenn das Sticky-Bit gesetzt ist.

Hab auf die schnelle nichts gefunden um die $UID festzustellen, habs deshalb mal ohne API gemacht
Ich denke mal, die API ist geeigneter.

Gruß
Thomas

[pickelrobert]

Klappt, danke.