环境（“用户名”）与 advapi32.dll

发布于 2024-12-28 19:11:19 字数 447 浏览 4 评论 0原文

我知道至少有两种方法可以在 Access 应用程序中检索用户名。

您可以使用environ函数：

environ("username")

并且您可以在advapi32.dll中使用GetUsername

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

s = String(l, Chr(32))
GetUserName s, l
username = Left$(s, l - 1)

上述哪一种方法使用起来最安全？为什么？

也许有一些背景信息，这些应用程序既可以在本地计算机上使用，也可以在远程桌面上使用。

原文

I know there are at least 2 ways of retrieving the username in an Access application.

You can use the environ function:

environ("username")

And you can use GetUsername in advapi32.dll

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

s = String(l, Chr(32))
GetUserName s, l
username = Left$(s, l - 1)

Which one of the above methods is the safest to use? And why?

Perhaps some background info, the applications are used both on the local computers and remote desktops.

分享到QQ

分享到微博

如果你对这篇内容有疑问，欢迎到本站社区发帖提问参与讨论，获取更多帮助，或者扫码二维码加入 Web 技术交流群。

发布评论

需要登录才能够评论，你可以免费注册一个本站的账号。

救星 2025-01-04 19:11:19

正如 Simon 所说，环境变量可以进行操作，但是有些人也喜欢避免 api 调用，如果是这种情况，那么这是一个简单易行的替代方案：

Public Function GetUser() As String

    Dim WNet As Object

    Set WNet = CreateObject("WScript.Network")

    GetUser = WNet.UserName

    Set WNet = Nothing

End Function

As Simon has said, Environ variables are open to manipulation, however some people also like to avoid the api calls, if this is the case then this is a simple to follow alternative:

Public Function GetUser() As String

    Dim WNet As Object

    Set WNet = CreateObject("WScript.Network")

    GetUser = WNet.UserName

    Set WNet = Nothing

End Function

回复收藏 0 原文