VBA获取用户名？

Andresig · 发表于 2022-7-6 12:04:02

我需要检索计算机的用户名，有人帮我如何在VBA中这样做吗？
非常感谢。

gile · 发表于 2022-7-6 12:22:28

你好

你是说LOGINNAME系统变量吗？

Andresig · 发表于 2022-7-6 12:33:34

嗨，吉尔，

LOGINNAME将帮助我，但在LISP中，我需要在VBA中检索它
你知道如何在VBA中检索它吗？

Andresig · 发表于 2022-7-6 12:36:04

谢谢Gile！
我查看变量“LOGINNAME”，现在我知道如何获取用户名。。。

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

gile · 发表于 2022-7-6 12:48:05

LOGINNAME不是LISP函数，它是AutoCAD系统变量。

我对VBA了解不多，但我认为（getvar“LOGINNAME”）LISP表达式的等价物应该类似于：

应用GetVariable（“LOGINNAME”）

bkm · 发表于 2022-7-6 13:00:11

如果您在计算机名之后，可以通过读取其Windows环境变量来获取它，如下所示。

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

Andresig · 发表于 2022-7-6 13:04:14

谢谢你，bkm，这也会帮助我。

[编程交流] VBA获取用户名？