管理者権限の有無を判断          <TOP>


IsUserAnAdmin 管理者権限の有無を取得 (Windows2K以降)

 

'================================================================
'= 管理者権限の有無を判断
'================================================================

' 管理者権限があるかどうかを判断
Declare Function Api_IsUserAnAdmin& Lib "shell32" Alias "IsUserAnAdmin" ()

Var Ret As Long

Ret = Api_IsUserAnAdmin()

If Ret = 1 Then
    Print "管理者権限あり!"
Else
    Print "管理者権限なし!"
End If

Stop
End