Hent brugernavn!

not sure if this works in VB but try

YourVar = Environ("username")

you can also try

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

Function fOSUserName() As String
' Returns the network login name
Dim lngLen As Long, lngX As Long
Dim strUserName As String
    strUserName = String$(254, 0)
    lngLen = 255
    lngX = apiGetUserName(strUserName, lngLen)
    If ( lngX > 0 ) Then
        fOSUserName = Left$(strUserName, lngLen - 1)
    Else
        fOSUserName = vbNullString
    End If
End Function

Vil prøve, men man kan da ikke bruge Declare i vb 6.0 eller er det bare mig?

Option Explicit

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

Public Function bsGetUserID() As String
  Dim lAns As Long
  Dim sUser As String
 
  bsGetUserID = ""
  sUser = Space$(255)

  lAns = GetUserName(sUser, 255)

  If lAns <> 0 Then
    bsGetUserID = Left(sUser, InStr(sUser, Chr(0)) - 1)
  End If
End Function

actually there isnt much difference between your eample and the last I gave!

Eller

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

Public Function gstrGetLoggedInUser()
    Dim sBuff As String * 25
    Dim lRet As Long: Dim char_zero
    Dim sUserName As String: Dim GetLoggedInUser As String
    'Get the user name, remove NULLs, and trim trailing spaces.
    lRet = GetUserName(sBuff, 25)
    sUserName = Trim$(Left(sBuff, InStr(sBuff, Chr(char_zero)) - 1))
    'Return empty if no name is returned.
    If sUserName = vbNullString Then GetLoggedInUser = ""
    gstrGetLoggedInUser = sUserName
End Function

'Kald:
    Im = gstrGetLoggedInUser


Der er masser af svar på eksperten - søg og du skal finde....

YourVar = Environ("username") virkede uden problemer, så let men kun hvis man ved det :-)

tak :o)

Men tak for svarene, men lige for at sprørge igen man kan da ikke bruge Declare i vb 6.0

(så let men kun hvis man ved det) thats what programming is all about :o)

you should be able to use DECLARE