Список vbscript, зарегистрированный на сервере терминалов

Попробуйте перечислить зарегистрированных пользователей на сервер терминалов Windows в рабочей группе через vbscript.

У меня есть ниже, но он, похоже, не возвращает зарегистрированных пользователей?

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
1 ответ

Вы должны запустить его как Администратор! запустите CMD в качестве администратора и запустите команду CSCRIPT

licensed under cc by-sa 3.0 with attribution.