Ta reda på vem som är användare och vilka rättigheter han har.

LonerMedlem sedan feb. 200110 inlägg

Frågan13 sep. 2001 16:33#1

Hej!

Jag skulle vilja ha reda p hur man listar ut vem som är användare och vilka rättigheter han har.

Vissa funktioner i min applikation skall bara fungera när administratören är inloggad, men hur tar man reda på om han är det, eller om det är nån annan användare inloggad.

JonMedlem sedan juli 20011 304 inlägg

14 sep. 2001 07:16#2

Så här får du fram aktuell användare...

<font size="1" face="Verdana, Arial, Helvetica, sans-serif">Kod:<font size="1" face="Verdana, Arial, Helvetica, sans-serif" color="#666600">
Option Explicit

Private Const UNKNOWN = _
"(Value Unknown Because System Call Failed)"

Private Declare Function GetUserName Lib "advapi32.dll" _
Alias "GetUserNameA" (ByVal lpBuffer As String, nSize _
As Long) As Long

Public Function GetCurrentUserName() As String

Dim l As Long
Dim sUser As String

sUser = Space$(255)
l = GetUserName(sUser, 255)

'strip null terminator

If l <> 0 Then
GetCurrentUserName = Left(sUser, InStr(sUser, Chr(0)) - 1)
Else
Err.Raise Err.LastDllError, , _
"A system call returned an error code of " _
& Err.LastDllError
End If

End Function

Vet inte hur man ska få fram rättigheter... Fast det går att få fram grupptillhörighet om man användet NT/2000

------------------
Lysdexia: a peech imspediment we live to learn with...