Using VB6, how do I get the current user and domain on Windows XP?

Question

I need the current user and the domain. I am using a VB 6 application.

Thanks

Answer 1

One way would be to ask the environment:

Dim UserName As String
Dim UserDomain As String
UserName   = Environ("USERNAME")
UserDomain = Environ("USERDOMAIN")

(Works on Windows NT and up only, obviously.)