管理者権限の有無を判断          <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