[VB] username en/of context

[Verwijderd]

ik moet de username uit windows NT halen, het liefst ook de Novell context, weet iemand hoe dat moet?

[Biedzjee]

Op dinsdag 16 oktober 2001 14:28 schreef koely het volgende:
ik moet de username uit windows NT halen, het liefst ook de Novell context, weet iemand hoe dat moet?

Get user name

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

[Verwijderd]

dat ga ik even proberen, ik ben het namenlijk nog een beetje aan het leren, ik kan wel programmeren in C++, PHP en pascal, maar dit moet ik nog even onder de knie krijgen

[Verwijderd]

en dan iets als

declarations

Declare Function GetUserName Lib "advapi32.dll" Alias "GetUserNameA" (ByVal lpBuffer As String, nSize As Long) As Long
dim user as string


user = GetUserName(??????)
textvak.text = user

zoies?

[Biedzjee]

Hier staat een stuk code:

http://www.vbcad.com/showatip.asp?TIPID=3

[Mateyo]

Van http://www.vbapi.com/ref/g/getusername.html

code:

Declare Function GetUserName Lib "advapi32.dll" Alias "GetUserNameA" (ByVal lpBuffer As String, nSize As Long) As Long 
' Display the name of the user currently logged on.
Dim username As String  ' receives name of the user
Dim slength As Long  ' length of the string
Dim retval As Long  ' return value

' Create room in the buffer to receive the returned string.
username = Space(255)  ' room for 255 characters
slength = 255  ' initialize the size of the string
' Get the user's name and display it.
retval = GetUserName(username, slength)  ' slength is now the length of the returned string
username = Left(username, slength - 1)  ' extract the returned info from the buffer
' (We subtracted one because we don't want the null character in the trimmed string.)
Debug.Print "The name of the current user is "; username

Edit: 2min te laat

[Verwijderd]

Waarom een API gebruiken als Environ("UserName") ook werkt?

[Verwijderd]

is het niet mogelijk om de novell context eruit te krijgen?

[Verwijderd]

ik heb het zo ingevoerd:

Declare Function GetUserName Lib "advapi32.dll" Alias "GetUserNameA" (ByVal lpBuffer As String, nSize As Long) As Long
Dim username As String ' receives name of the user
Dim slength As Long ' length of the string
Dim retval As Long ' return value



Private Sub Form_Load()
' Create room in the buffer to receive the returned string.
username = Space(255) ' room for 255 characters
slength = 255 ' initialize the size of the string
' Get the user's name and display it.
retval = GetUserName(username, slength) ' slength is now the length of the returned string
username = Left(username, slength - 1) ' extract the returned info from the buffer
' (We subtracted one because we don't want the null character in the trimmed string.)
Debug.Print "The name of the current user is "; username

End Sub

en toch krijk ik errors, wat doe ik verkeerd?

[tus]

edit:

sorry wou nog wat verbeteren tijdens het Versturen dus ramde ik op de ESC knop en later bleek dat die al was gestuurd

[tus]

Komt omdat je een API in n form declaart. In n form mag je geen API's globaal declaren. Dus je moet voor de
Declare Function "Private" zetten.

[Verwijderd]

dan doe ik dit:

Dim username As String ' receives name of the user
Dim slength As Long ' length of the string
Dim retval As Long ' return value



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

' Create room in the buffer to receive the returned string.
username = Space(255) ' room for 255 characters
slength = 255 ' initialize the size of the string
' Get the user's name and display it.
retval = GetUserName(username, slength) ' slength is now the length of the returned string
username = Left(username, slength - 1) ' extract the returned info from the buffer
' (We subtracted one because we don't want the null character in the trimmed string.)
Debug.Print "The name of the current user is "; username

End Sub

en dan krijg ik nog een error:
compile error, only comments may appear after end sub, end function, or end property, ik weet echt niet hoe ik dat voor elkaar moet krijgen

[Verwijderd]

kan iemand me alsjeblieft vertellen wat ik verkeerd doe?

[tus]

Nee, zo dus:

code:

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

Private Sub Form_Load()
Dim username As String ' receives name of the user
Dim slength As Long ' length of the string
Dim retval As Long ' return value

' Create room in the buffer to receive the returned string.
username = Space(255) ' room for 255 characters
slength = 255 ' initialize the size of the string
' Get the user's name and display it.
retval = GetUserName(username, slength) ' slength is now the length of the returned string
username = Left(username, slength - 1) ' extract the returned info from the buffer
' (We subtracted one because we don't want the null character in the trimmed string.)
Debug.Print "The name of the current user is "; username

End Sub

[Verwijderd]

tnx, hier kan ik wat mee, bedankt

[Verwijderd]

bednankt, het werkt