[belajar-access] Func. utk Capture Network Username

----- Original Message -----
From: "Ivan Leonardo" <ivan@pttdp.com>
To: <belajar-access@yahoogroups.com>
Sent: Thursday, June 03, 2010 9:59 AM
Subject: [belajar-access] Func. utk Capture Network Username

> Semoga bermanfaat
>
> Private Declare Function apiGetUserName _
> Lib "advapi32.dll" Alias "GetUserNameA" _
> (ByVal lpBuffer As String, nSize As Long) As
Long
>
> '-------------------------------------------------
> ' This code is used to retrieve the network user
> ' name by accessing the API apiGetUserName.
> ' Created by: Unknown (Found on Dev Ashish
> ' web site www.mvps.org/access/)
> ' This code has not been altered in anyway.
> ' Added to database: 27 dec 1999
> ' Added by: Richard Rensel
> '-------------------------------------------------
>
> Function fOSUserName() As String
> On Error GoTo fOSUserName_Err
>
> 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 = ""
> End If
>
>
> fOSUserName_Exit:
> Exit Function
>
> fOSUserName_Err:
> MsgBox Error$
> Resume fOSUserName_Exit
> End Function
>