23 lines
504 B
Plaintext
23 lines
504 B
Plaintext
|
; isuseradmin.pb
|
||
|
|
; ------------------------------------------------------------
|
||
|
|
; this tool checks for admin rights and returns:
|
||
|
|
; 0 = is ADMIN
|
||
|
|
; 1 = NOT an admin
|
||
|
|
; LICENSE : GPL
|
||
|
|
; AUTHOR : Michael H.G. Schmidt
|
||
|
|
; EMAIL : michael@schmidt2.de
|
||
|
|
; DATE : 20221227
|
||
|
|
; ------------------------------------------------------------
|
||
|
|
;
|
||
|
|
|
||
|
|
OpenConsole()
|
||
|
|
|
||
|
|
If IsUserAdmin_()
|
||
|
|
End 0
|
||
|
|
Else
|
||
|
|
End 1
|
||
|
|
EndIf
|
||
|
|
|
||
|
|
; IDE Options = PureBasic 5.73 LTS (Windows - x64)
|
||
|
|
; CursorPosition = 17
|
||
|
|
; EnableXP
|