How to use WMI to list remote users on a terminal server

arrComputers = Array("computername")
For Each strComputer In arrComputers
 
 
Set objWbemLocator = CreateObject("WbemScripting.SWbemLocator")
Set objWMIService = objwbemLocator.ConnectServer _
    (strComputer, strNamespace, strUser, strPassword)
 
objWMIService.Security_.authenticationLevel = WbemAuthenticationLevelPktPrivacy
 
   
 Set colItems = objWMIService.ExecQuery("Select * from Win32_LogonSession where logontype=10")
 
 If colItems.count = 0 then
 
 WScript.Echo "No Remote Users Logged in"
 
 else
 
 WScript.Echo "Count: " & colItems.count
 
 if MsgBox(" You have " &   colItems.count & " remote users logged in, loop?",4) = vbyes then
 
 
For Each objItem In colItems
 
strLogonID = objItem.LogonID
 
 
  Set colListUser = objWMIService.ExecQuery("Associators of {Win32_LogonSession.LogonId=" & "'" & strLogonID & "'" & "} WHERE AssocClass = Win32_LoggedOnUser Role=Dependent")
      
    For Each objItemUser in colListUser
      WScript.Echo "blah "
       WScript.Echo "User: " & objItemUser.Name
       WScript.Echo "Domain: " & objItemUser.Domain
     
    Next
     
     Wscript.Echo "Session start time: " & objItem.StartTime  & "|" & objItem.Status
     
  
next
 
end if
end if
next