Kalau untuk connect ke Active directory, Bagaimana caranya ... dan apa saja yg bisa didapat yach ??
rbs harry 2010/6/3 Harry siswanto <[email protected]> > ini untuk mendapatlan User LoginName maksudnya ?? > > 2010/6/3 Ivan Leonardo <[email protected]> > > >> >> 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 >> >> ---------------------------------------------------------- >> This message contains confidential information and is intended only for >> the individual named. If you are not the named addressee you should not >> disseminate, distribute or copy this e-mail. Please notify the sender >> immediately by e-mail if you have received this e-mail by mistake and delete >> this e-mail from your system. E-mail transmission cannot be guaranteed to be >> secure or error-free as information could be intercepted, corrupted, lost, >> destroyed, arrive late or incomplete, or contain viruses. The sender >> therefore does not accept liability for any errors or omissions in the >> contents of this message, which arise as a result of e-mail transmission. If >> verification is required please request a hard-copy version. >> >> >> > > > > -- > Harry Siswanto > Email: [email protected] > http://www.facebook.com/harry.siswanto > http://harry-siswanto.blogspot.com/ > > > -- Harry Siswanto Email: [email protected] http://www.facebook.com/harry.siswanto http://harry-siswanto.blogspot.com/
