मैं एक्सेस वीबीए में वर्तमान में लॉग-इन विंडोज उपयोगकर्ता कैसे प्राप्त कर सकता हूं?

Question

मैं गूगल के माध्यम से इस पाया: http://www.mvps.org/access/api/api0008.htm

'******************** Code Start ************************** 
' This code was originally written by Dev Ashish. 
' It is not to be altered or distributed, 
' except as part of an application. 
' You are free to use it in any application, 
' provided the copyright notice is left unchanged. 
' 
' Code Courtesy of 
' Dev Ashish 
' 
Private Declare Function apiGetUserName Lib "advapi32.dll" Alias _ 
    "GetUserNameA" (ByVal lpBuffer As String, nSize As Long) As Long 

Function fOSUserName() As String 
' Returns the network login name 
Dim lngLen As Long, lngX As Long 
Dim strUserName As String 
    strUserName = String$(254, 0) 
    lngLen = 255 
    lngX = apiGetUserName(strUserName, lngLen) 
    If (lngX > 0) Then 
     fOSUserName = Left$(strUserName, lngLen - 1) 
    Else 
     fOSUserName = vbNullString 
    End If 
End Function 
'******************** Code End ************************** 

इस यह करने के लिए सबसे अच्छा तरीका है?

Answer 1

आप पर्यावरण $ का भी उपयोग कर सकते हैं लेकिन प्रश्न द्वारा निर्दिष्ट विधि बेहतर है। उपयोगकर्ता/अनुप्रयोग पर्यावरण चर बदल सकते हैं।

Answer 2

Alternative way ऐसा करने के लिए - शायद आपके द्वारा उल्लेख किया गया एपीआई उपयोगकर्ता नाम प्राप्त करने का एक बेहतर तरीका है।

For Each strComputer In arrComputers 
    Set objWMIService = GetObject("winmgmts:\\" & strComputer & "\root\cimv2") 
    Set colItems = objWMIService.ExecQuery("Select * from Win32_ComputerSystem",,48) 
     For Each objItem in colItems 
     Wscript.Echo "UserName: " & objItem.UserName & " is logged in at computer " & strComputer 
Next 

Answer 3

तुम भी ऐसा कर सकता है:

Set WshNetwork = CreateObject("WScript.Network") 
Print WshNetwork.UserName 

यह भी एक UserDomain संपत्ति और अन्य चीजों का एक समूह है:

http://msdn.microsoft.com/en-us/library/907chf30(VS.85).aspx

Answer 4

मैं आम तौर पर VBA के भीतर से एक वातावरण का उपयोग जैसा कि निम्नलिखित में है। मुझे ऐसी समस्याएं नहीं हैं जिनके बारे में केन उल्लेख करता है।

Function UserNameWindows() As String 
    UserNameWindows = VBA.Environ("USERNAME") & "@" & VBA.Environ("USERDOMAIN") 
End Function 

Answer 5

अन्य पदों में वैकल्पिक तरीकों के बहुत सारे तरीके, लेकिन प्रश्न का उत्तर देने के लिए: हाँ यह करने का सबसे अच्छा तरीका है। COM ऑब्जेक्ट या WMI बनाने से तेज़, यदि आप चाहते हैं कि उपयोगकर्ता नाम है, और Win95 अप से विंडोज के सभी संस्करणों में उपलब्ध है।

Answer 6

डब्लूएमआई में वर्तमान लॉग इन उपयोगकर्ता नाम प्राप्त करने के बहुत सारे तरीके हैं। मेरा तरीका उपयोगकर्ता नाम के माध्यम से 'explorer.exe' की प्रक्रिया से प्राप्त करना है क्योंकि जब उपयोगकर्ता विंडो में लॉगिन करता है, तो वर्तमान उपयोगकर्ता के अनुसार इस फ़ाइल का उपयोग।
http://msdn.microsoft.com/en-us/library/aa394599%28v=vs.85%29.aspx