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

熊猫平子 上海德达医院 IT运维经理  2005-03-21 05:53:46
请问怎么判断系统当前用户是否是超级用户?不光是administrator,还包括administrator这个组的成员,谢谢大家
...全文
66 点赞 收藏 3
写回复
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组。
回复 点赞
daisy8675 2005年03月21日
http://www.applevb.com/sourcecode/getallserveronnet.zip

参考这个代码进行改写一下
回复 点赞
发动态
发帖子
VB基础类
创建于2007-09-28

2744

社区成员

19.7w+

社区内容

VB 基础类
社区公告
暂无公告