VB utilisant WMI - connectez-vous aux utilisateurs

Question

Comment puis-je utiliser les scripts VB avec WMI pour obtenir le nombre d'utilisateurs connectés. Mon installation ne peut avoir qu'un seul utilisateur connecté et doit signaler une erreur si plus d'un utilisateur est connecté (via un service de terminal utilisant Citrix). Je ne sais pas grand-chose à propos de Citrix mais le Win32_LogonSession avec LogonType = 10 semble retourner toutes sortes de déchets (sessions de ports, etc.). J'ai juste besoin des utilisateurs ... y at-il des appels WMI que je peux juste obtenir le nombre d'utilisateurs connectés à Citrix? Voici un petit coup 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

Answer 1

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 original est ici:

How to show logged on users? (Tek-Tips Forums)

Ce collaboraient avec les Windows 2003, je ne peux pas faire de garantie sur la version ultérieure.