管理者権限のチェック          <TOP>

現在のユーザがWindows2000、WindowsXPにおける管理者権限をチェックします。

IsNTAdmin 管理者権限チェック
権限がある場合｢0｣以外を返します。

　

左：WindowsXP    中：Windows2000

 

下：Windows98で実行した例

　

'================================================================
'= 管理者権限のチェック
'=    (IsNTAdmin.bas)
'================================================================

' 管理者権限チェック
Declare Function Api_IsNTAdmin& Lib "advpack" Alias "IsNTAdmin" (ByVal dwReserved&, ByVal lpdwReserved&)

Var Ret As Long

Ret = Api_IsNTAdmin(ByVal 0, ByVal 0)

If Ret Then
    Print "管理者(Administrator)ですか？" & "はい"
Else
    Print "管理者(Administrator)ですか？" & "いいえ"
End If

Stop
End