Capture a User’s Domain\UserName
Environ 是Environment的简写,可以获取用户的资料
- 用于访问权限的限制.
- 记录用户访问记录
- 记录用户修改记录
- 对不同用户,发放个性化信息
Function getReturnUName()
getReturnUName = Environ(“UserDomain”) & “\” & Environ(“Username”)
End Function
getReturnUName = Environ(“UserDomain”) & “\” & Environ(“Username”)
End Function
| Variable | Typical value (May vary, depending on system) |
| Environ(“ALLUSERSPROFILE”) | C:\Documents and Settings\All Users |
| Environ(“COMPUTERNAME”) | {computername} |
| Environ(“HOMEDRIVE”) | C: |
| Environ(“HOMEPATH”) | \Documents and Settings\{username} |
| Environ(“PROGRAMFILES”) | Directory containing program files, usually C:\Program Files |
| Environ(“USERDOMAIN”) | {domain name} |
| Environ(“USERNAME”) | {username} |
| Environ(“USERPROFILE”) | C:\Documents and Settings\{username} |
Source: http://datapigtechnologies.com/blog/index.php/capture-a-users-domainusername/
Bonus:
Sub EnvironListing()
'Adapted from http://www.vbaexpress.com/kb/getarticle.php?kb_id=217
Dim I As Integer
'Creates a list of environ arguments, in the form ARGUMENT=EnvironString
I = 1
Do Until environ(I) = ""
Debug.Print environ(I)
I = I + 1
Loop
End Sub
'Adapted from http://www.vbaexpress.com/kb/getarticle.php?kb_id=217
Dim I As Integer
'Creates a list of environ arguments, in the form ARGUMENT=EnvironString
I = 1
Do Until environ(I) = ""
Debug.Print environ(I)
I = I + 1
Loop
End Sub
