Jow, da. Gør så'n her:
1. Tilføj et "Module" til dit VB projekt.
2. Tilføj følgende declaration i toppen af dit module:
Declare Function GetUserName Lib "advapi32.dll" Alias "GetUserNameA" (ByVal lpBuffer As String, nSize As Long) As Long
3. Tilføj følgende funktion til dit module:
public function getUser () as string
Dim Buffer As String
Dim Length As Long
Dim Dummy As Integer
Buffer$ = Space$(255)
Length = Len(Buffer$)
Dummy = GetUserName(Buffer$, Length)
getUser = Left$(Buffer$, Length)
end function
4. I din form kan du nu kalde funktionen, f.eks. med:
"msgBox getUser"
...så skulle den p.t. påloggede bruger gerne poppe op.
Held og lykke,
Jeppe