Syntaks til Accessuser, NT user & computernavn

Svar løst i anden kategori, dog ikke spørgsmålet vedr. access useren!

Nogen der ved noget ?

Der er selvfølgelig stadig nogle point til den der kan give mig en løsning på det!

Lav en variabel. Tildel den værdien CurrentUser.

fx Bruger = CurrentUser

Så har du værdien og kan bruge den til hvad du vil.

' Access the GetUserNameA function in advapi32.dll and
    ' call the function GetUserName.
    Declare Function GetUserName Lib "advapi32.dll" Alias "GetUserNameA" _
    (ByVal lpBuffer As String, nSize As Long) As Long

Function Get_User_Name() As String

    ' Dimension variables
    Dim lpBuff As String * 25
    Dim ret As Long, Username As String

    ' Get the user name minus any trailing spaces found in the name.
    ret = GetUserName(lpBuff, 25)
    Username = Left(lpBuff, InStr(lpBuff, Chr(0)) - 1)

    ' Display the User Name
   
    Get_User_Name = Username
End Function

Giver windows username (ham der er logget på maskinen)

nIELS

Du finder maskine-navmet med denne kode (som skal anbringes i model):

Private Declare Function apiGetComputerName Lib "kernel32" Alias _
    "GetComputerNameA" (ByVal lpBuffer As String, nSize As Long) As Long

Function GetMachineName() As String
'Returns the computername
Dim lngLen As Long, lngX As Long
Dim strCompName As String
    lngLen = 16
    strCompName = String$(lngLen, 0)
    lngX = apiGetComputerName(strCompName, lngLen)
    If lngX <> 0 Then
        GetMachineName = Left$(strCompName, lngLen)
    Else
        GetMachineName = ""
    End If
End Function


Herefter bruger du den således:
Maskine = GetMachineName