Login | Register   
Twitter
RSS Feed
Download our iPhone app
TODAY'S HEADLINES  |   ARTICLE ARCHIVE  |   FORUMS  |   TIP BANK
Browse DevX
Sign up for e-mail newsletters from DevX


Tip of the Day
Language: NT
Expertise: Beginner
Apr 5, 1999

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 Long

Private 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 If
End Sub
DevX Pro
 
Comment and Contribute

 

 

 

 

 


(Maximum characters: 1200). You have 1200 characters left.

 

 

Sitemap