How to get NT username in VB application ?

[snr]

Depending on the NT login I want to show the options in the VB form. How can I get the windows username. We are using Windows 2000 ?

thanks

 

[Guest_imported]

try the GetUserName API

 

[JohnYingling]

'Declarations - Public or Private
' Form Level, Module Level
Public Declare Function GetUserName Lib "advapi32.dll" Alias _
"GetUserNameA" (ByVal lpBuffer As String, _
nSize As Long) As Long

Public Function GetWindowsLoginUserID() As String
Dim rtn As Long
Dim sBuffer As String
Dim lSize As Long
Dim lngInstr As Long
sBuffer = String$(260, Chr$(0))
lSize = Len(sBuffer)
rtn = GetUserName(sBuffer, lSize)
If rtn <> 0 Then
sBuffer = Left$(sBuffer, lSize)
lngInstr = InStr(sBuffer, Chr$(0))
If lngInstr > 0 Then
sBuffer = _
Left$(sBuffer, lngInstr - 1)
End If
GetWindowsLoginUserID = sBuffer
Else
GetWindowsLoginUserID = &quot;&quot;
End If
End Function

http://www.VBCompare.com

Compare Code (Text)

http://www.VBSortGen.com

Generate Sort in VB or VBScript

 

[Alt255]

[tt]MsgBox Environ$(&quot;USERNAME&quot[/tt]

 

[snr]

Thanks a lot Alt255 !
It worked !!!!!!!!!

 

[strongm]

Good god...