2744
社区成员
19.7w+
社区内容
- 主页
判断当前用户是否是超级用户
请问怎么判断系统当前用户是否是超级用户？不光是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
参考这个代码进行改写一下
参考这个代码进行改写一下