7,785
社区成员
发帖
与我相关
我的任务
分享判断当前用户是否是超级用户
请问怎么判断系统当前用户是否是超级用户？不光是administrator，还包括administrator这个组的成员，谢谢大家
...全文
请发表友善的回复…
发表回复
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
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组。
Dim RES As Long
RES= IsNTAdmin(ByVal 0&,ByVal 0&)
如RES非零，则当前登录用户为Administrator组。
daisy8675 2005-03-21
- 打赏
- 举报
http://www.applevb.com/sourcecode/getallserveronnet.zip
参考这个代码进行改写一下
参考这个代码进行改写一下
