devxlogo

WIN NT User ID

WIN NT User ID

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

devx-admin

Share the Post: