VBA Get User Name?

[Andresig]

I need to retrieve the user name of the computer, does somebody help me how to do this in VBA?

Thank you,

[gile]

Hi,

 

Do you mean the LOGINNAME sysvar ?

[Andresig]

Hi Gile,

 

LOGINNAME will help me, but is in LISP and I need to retrieve it in VBA

Do you know how to retrieve it in VBA?

[Andresig]

Thanks Gile!

I look the Variable "LOGINNAME" and now I know how to get the user name...

  
Sub GetUserName() 
Dim UserName As String
   
UserName = ThisDrawing.GetVariable("LOGINNAME")

MsgBox UserName
End Sub

[gile]

LOGINNAME isn't a LISP function, it's an AutoCAD system variable.

 

I don't know much about VBA, but I think the equivalent of the (getvar "LOGINNAME") LISP expression should be something like :

 

Application.GetVariable("LOGINNAME")

 

[bkm]

If you are after the computer name, you can get it by reading it's Windows environment variable as follows.

 

 
Sub GetComputerName()
Dim strComputer As String
strComputer = Environ("COMPUTERNAME")
MsgBox strComputer
End Sub

[Andresig]

Thank you bkm, that will help me also.