Question:
Do you know where to locate the Windows NT user ID so that I can add the user to the Exchange Server?
Answer:
The following code works just fine:
Private Declare Function GetUserName _ Lib "advapi32.dll" Alias "GetUserNameA" _ (ByVal lpBuffer As String, _ nSize As Long) As LongPrivate Sub Command1_Click() Dim p_strBuffer As String Dim p_lngBufSize As Long' Retrieve the curent user's name from the ' operating system p_strBuffer = Space$(255) p_lngBufSize = Len(p_strBuffer) GetUserName p_strBuffer, p_lngBufSize ' If failed, then just put in a blank ' Otherwise, fill in user name on the form If p_lngBufSize > 0 Then Debug.Print "Name: " & Left$(p_strBuffer, p_lngBufSize) Else Debug.Print "Name: " & "Unknown" End IfEnd Sub
Charlie has over a decade of experience in website administration and technology management. As the site admin, he oversees all technical aspects of running a high-traffic online platform, ensuring optimal performance, security, and user experience.
