À l'aide de VB6, comment puis-je obtenir le courant de l'utilisateur et de domaine sur Windows XP?

J'ai besoin de l'utilisateur actuel et le domaine. Je suis l'aide d'une VB 6 application.

Grâce

InformationsquelleAutor Jedi Master Spooky | 2008-12-03

15

Une façon serait de demander à l'environnement:
```
Dim UserName As String
Dim UserDomain As String
UserName   = Environ("USERNAME")
UserDomain = Environ("USERDOMAIN")
```
(Fonctionne sur Windows NT et uniquement, évidemment.)
- C'est assez dangereux si vous avez besoin de procéder à des vérifications basées sur l'utilisateur actuel. Il suffit de modifier les variables d'environnement (utilisation SET USERNAME=pwned dans une invite de commande et exécutez l'application à partir de ce message).
- Le mot "insécurité" implique que c'est un risque de sécurité. Ce n'est pas du tout le cas. Bien sûr, l'ensemble de l'environnement d'un processus peut être écrit, mais c'est généralement le cas - et néanmoins, tous les types d'applications de lire leurs trucs de l'environnement. Si quelqu'un à des bases de tâches qui ont besoin d'une autorisation appropriée sur les valeurs qu'ils ont lu à partir de l'environnement alors que c'est entièrement de leur faute.
- Je voulais ajouter des informations supplémentaires au commentaire ci-dessus mais qui DONC m'a bloqué, hier, pour quelque raison que ce soit. Mon propos était de souligner que l'API-version posté par Stefan est un peu mieux à partir d'un point de vue sécurité, étant donné que le nom d'utilisateur est fourni à l'aide de l'API Win32 et ne peut pas être modifiée facilement que la variable env nom d'utilisateur/USERDOMAIN.
- Je comprends que. Mon point est que ce ne doit pas être utilisé pour les tâches relatives à la sécurité en premier lieu. Windows dispose d'une fonction intégrée de l'authentification et de la sécurité sociale: Le jeton de compte qui est lié au processus détermine vos droits d'accès, pas de chaînes de caractères que vous lisez à partir d'une fonction ou de l'autre.
InformationsquelleAutor Tomalak

Et API-version:

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

InformationsquelleAutor Stefan

4

D'utiliser les méthodes de l'objet WshNetwork, qui est disponible après que vous faites référence à Windows Script Host Object Model dans votre projet:
```
Dim Network As WshNetwork
Set Network = New WshNetwork

Debug.Print "ComputerName: " & Network.ComputerName
Debug.Print "UserDomain: " & Network.UserDomain
Debug.Print "UserName: " & Network.UserName
```
J'ai jeté les résultats en majuscules ou en minuscules pour des raisons de cohérence, mais ce sont les méthodes que vous avez besoin.

Noter que lorsqu'il est exécuté sur une machine qui n'est pas connecté à un domaine, à la fois ComputerName et UserDomain retour la même chose -- le nom de l'ordinateur.

InformationsquelleAutor JeffK
2

Fondamentalement, vous avez besoin de faire des appels d'API de Windows.
La recherche vbnet.mvps.org je reçois les réponses suivantes.
InformationsquelleAutor Will Rickards
0

Quoi à ce sujet?
```
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
```
- Ne peut pas recommander l'utilisation de cette mise en œuvre, même avec le but de déterminer si l'utilisateur a les droits d'administration. Tout d'abord, la valeur de retour par défaut n'est pas définie, même si elle est Fausse implicitement. Deuxièmement, vous devez sortir de la boucle une fois que les noms correspondent.
- le code peut être pas l'idéal, mais il n'répondre à la question à savoir Environ("USERNAME")
InformationsquelleAutor Saiyine

Vous devez vous connecter pour publier un commentaire.