VB à l'aide de WMI - get utilisateurs enregistrés

Comment puis-je utiliser un script VB avec WMI pour obtenir le nombre d'utilisateurs connectés. Mon installation ne peut avoir qu'un seul utilisateur connecté et les besoins pour signaler une erreur si plus d'un utilisateur est connecté (via les services terminal server à l'aide de Citrix). Je ne connais pas bien les propos de Citrix mais la Win32_LogonSession avec LogonType = 10 semble renvoyer toutes sortes de cochonneries (ports de sessions, etc.). J'ai juste besoin des utilisateurs...existe-il des appels WMI que je peux obtenir le nombre d'utilisateurs connectés dans Citrix? Ci-dessous est une capture de mon code VB:

Set objWMIService = _
    GetObject("winmgmts:" & "{impersonationLevel=impersonate}!\\" & _
    strComputer & "\root\cimv2") 
Set colComputer = _
    objWMIService.ExecQuery("Select * from Win32_LogonSession Where LogonType = 10")

Merci!
-jp

OriginalL'auteur | 2009-05-22

  1. 3

    Le code suivant devrait vous aider (utiliser strComputer="." pour ordinateur local ou strComputer="MachineName"):

    strComputer = "."   
Set objWMI = GetObject("winmgmts:" _ 
              & "{impersonationLevel=impersonate}!\\" _ 
              & strComputer & "\root\cimv2") 


Set colSessions = objWMI.ExecQuery _ 
    ("Select * from Win32_LogonSession Where LogonType = 10") 


If colSessions.Count = 0 Then 
   Wscript.Echo "No interactive users found" 
Else 
   WScript.Echo "RDP Sessions:"
   For Each objSession in colSessions 

     Set colList = objWMI.ExecQuery("Associators of " _ 
         & "{Win32_LogonSession.LogonId=" & objSession.LogonId & "} " _ 
         & "Where AssocClass=Win32_LoggedOnUser Role=Dependent" ) 
     For Each objItem in colList 
       WScript.Echo "Username: " & objItem.Name & " FullName: " & objItem.FullName 
     Next 
   Next 
End If

    Le code d'origine est ici:

    Comment faire pour afficher les utilisateurs connectés? (Tek-Conseils Des Forums)

    Cela ne fonctionne avec Windows 2003, je ne peux pas vous donner aucune garantie à propos de la dernière version.

    Cela ne fonctionne pas vraiment, du moins pas dans Win7 ou 2008 R2. Le code fonctionne très bien, mais il revient plusieurs instances d'un même compte, et il signale les comptes qui avaient peut-être connecté, il y a longtemps, mais ne sont pas connecté à présent.
    cette réponse a été écrit en 2009, et compte tenu de la date originale de la source de l'article lié à ce qui était en 2006, il probablement ne fonctionne qu'avec Windows 2000/2003. Je ferai cela plus clair dans ma réponse.

    OriginalL'auteur Kev