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 |