; 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