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

熊猫平子 2005-03-21 05:53:46
请问怎么判断系统当前用户是否是超级用户?不光是administrator,还包括administrator这个组的成员,谢谢大家
...全文
234 3 打赏 收藏 转发到动态 举报
AI 作业
写回复
用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组。
daisy8675 2005-03-21
  • 打赏
  • 举报
回复
http://www.applevb.com/sourcecode/getallserveronnet.zip

参考这个代码进行改写一下

7,785

社区成员

发帖
与我相关
我的任务
社区描述
VB 基础类
社区管理员
  • VB基础类社区
加入社区
  • 近7日
  • 近30日
  • 至今
社区公告
暂无公告

试试用AI创作助手写篇文章吧