User Name and Domain Name

[abdullauthan]

Is there any way to get the User Name and NT Domain name using API? [sig][/sig]

 

[dsi]

I am not sure how to get the domain name, but you can get the user with this.

Declare Function GetUserName Lib "advapi32.dll" Alias "GetUserNameA" (ByVal lpBuffer As String, nSize As Long) As Long

Dim lpBuff As String * 25
Dim ret As Long, sUserName As String

ret = GetUserName(lpBuff, 25)
sUserName = Left(lpBuff, InStr(lpBuff, Chr(0)) - 1)
sUserName = UCase(sUserName)


[sig][/sig]

 

[edge2000]

Try here for domain name function

http://www5.50megs.com/andreavb/

Dave [sig]<p>Dave<br><a href=mailto:dab@completebs.com>dab@completebs.com</a><br><a href=

http://www.completebs.com>Complete

Bsuiness Systems</a><br>See website for more info but we can develop most things for most people.[/sig]