使用VB6，如何在Windows XP上獲取當前用戶和域？

Question

我需要當前用戶和域。我正在使用VB 6應用程序。

感謝

Answer 1

一種方法是問環境：

Dim UserName As String 
Dim UserDomain As String 
UserName = Environ("USERNAME") 
UserDomain = Environ("USERDOMAIN") 

Answer 2

這個什麼（在Windows NT工程和僅佔明顯。）？

Private Function IsAdmin() As Boolean 
Dim groups As Object 
Dim user As Object 

Set groups = GetObject("WinNT://./administrators") 

For Each user In groups.members 

If UCase(Environ("USERNAME")) = UCase(user.Name) Then 
IsAdmin = True 
End If 

Next user 

End Function 

Answer 3

基本上你需要進行Windows API調用。 正在搜索vbnet.mvps.org我得到以下答案。

• get domain name
• get thread user name (run as)
• get logged on user

Answer 4

和API版本：

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

Declare Function LookupAccountName Lib "advapi32.dll" Alias "LookupAccountNameA" (lpSystemName As String, ByVal lpAccountName As String, sid As Any, cbSid As Long, ByVal ReferencedDomainName As String, cbReferencedDomainName As Long, peUse As Long) As Long 

Private Sub Form_Load() 
    Dim sDomainName As String * 255 
    Dim lDomainNameLength As Long  
    Dim sUserName as String 
    Dim bUserSid(255) As Byte  
    Dim lSIDType As Long 

    Rem Create a buffer 
    sUserName = String(100, Chr$(0)) 

    Rem Get the username 
    GetUserName sUserName, 100 

    Rem strip the rest of the buffer 
    sUserName = Left$(sUserName, InStr(sUserName, Chr$(0)) - 1) 

    rem Show the temppath and the username 
    MsgBox "Hello " + strUserName 

    lResult = LookupAccountName(vbNullString, sUserName, bUserSid(0), 255, sDomainName, lDomainNameLength, _ 
    lSIDType) 
    if lResult <>0 then 
     msgbox sDomainName 
    end if 
end sub 

Answer 5

使用WshNetwork對象，引用後可用下列方法您的項目中的Windows腳本宿主對象模型：

Dim Network As WshNetwork 
Set Network = New WshNetwork 

Debug.Print "ComputerName: " & Network.ComputerName 
Debug.Print "UserDomain: " & Network.UserDomain 
Debug.Print "UserName: " & Network.UserName 

爲了保持一致性，我將結果轉換爲大寫或小寫，但這些都是您需要的方法。

請注意，在沒有登錄到域的計算機上運行時，ComputerName和UserDomain都返回相同的東西 - 計算機名稱。