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

[Loner]

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.

/U

[Jon]

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

<font size="1" face="Verdana, Arial, Helvetica, sans-serif">Kod:[/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[/kod]

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...