判断当前用户是否是超级用户

熊猫平子 2005-03-21 05:53:46

请问怎么判断系统当前用户是否是超级用户？不光是administrator，还包括administrator这个组的成员，谢谢大家

...全文

268 3 打赏收藏转发到动态举报

写回复

用AI写文章

3 条回复

切换为时间正序

请发表友善的回复…

发表回复

lyj0558 2005-03-22

打赏
举报

private Declare Function IsNTAdmin Lib "advpack.dll" ( ByVal dwReserved As Long, ByRef lpdwReserved As Long ) As Long

Dim Return As Long
Return= IsNTAdmin(ByVal 0&,ByVal 0&)
if Return<>0 then
msgbox "超级用户！"
end if

zzzjaychung 2005-03-22

打赏
举报

Declare Function IsNTAdmin Lib "advpack.dll" ( ByVal dwReserved Ad Long, ByRef lpdwReserved As Long ) As Long

Dim RES As Long
RES= IsNTAdmin(ByVal 0&,ByVal 0&)
如RES非零，则当前登录用户为Administrator组。