Logoff RDP Session mit VBScript?

Hallo Zusammen,

ich hoffe ihr könnt mir bei folgendem Problem weiterhelfen.

Ich möchte via Task Scheduler und VBscript ein zeitgesteuertes Logoff aller RDP Sessions vornehmen.

Über den Befehl

C:\>qwinsta /server:localhost
SESSIONNAME USERNAME ID STATE TYPE DEVICE
console user1 0 Active wdcon
rdp-tcp 65536 Listen rdpwd
rdp-tcp#18 user2 1 Active rdpwd

werden mir die angemeldeten Benutzer aufgelistet.

mit dem Befehl rwinsta /server:localhost <ID> können diese dann beendet werden.
Jedoch würde ich dies gerne per VBScript durchführen ohne den rwinsta Befehl zu benutzen. Somit stellt sich mir die Frage über welche Klasse / welches Objekt ich das in VBScript (evetuell über WMI) realisieren kann?
Die WMI Klassen die ich bisher ausprobiert habe geben mir nur die Filesystem Sessions wieder (Computerverwaltung->Freigegebene Ordner->Sitzungen).

Grüße

Michael

@echo off
setlocal
:: SERVERNAME ANGEBEN!!!
set RDPSERVER=CITRIX2
:: Zum Abmelden von allen Sitzungen (auch Citrix) nur nach "#" suchen lassen!) 
set "SUCHESITZUNGSTYP=rdp-tcp#"  

echo !!!ACHTUNG! VORSICHT!!!
echo Alle Sitzungen vom Typ "%SUCHESITZUNGSTYP%" werden jetzt vom Server "%RDPSERVER%" abgemeldet!!!  
echo Zum Abbrechen STRG+C druecken!!
pause

For /F "usebackq tokens=1,2,3,4,5 delims= " %%i IN (`qwinsta /SERVER:%RDPSERVER% ^| find "%SUCHESITZUNGSTYP%"`) DO call :process %%k %%l %%m %%n %%o  
pause
goto eof

:process
@rem Die Sitzungsnummer steht immer 2 Spalten vor dem Connectiontyp
if "%5" EQU "rdpwd" set sitzungsnummer=%3  
if "%4" EQU "rdpwd" set sitzungsnummer=%2  
if "%3" EQU "rdpwd" set sitzungsnummer=%1  
@rem if "%sitzungsnummer%" NEQ "" echo %sitzungsnummer%  
if "%sitzungsnummer%" NEQ "" rwinsta %SITZUNGSNUMMER% /SERVER:%RDPSERVER%  
set SITZUNGSNUMMER=

set fs = CreateObject("Scripting.FilesystemObject")  
scriptname = Wscript.ScriptFullName
scriptpath = fs.getparentfoldername(scriptname)
set fs = Nothing
Set WshShell = WScript.CreateObject("WScript.Shell")  
WshShell.Run chr(34) &  scriptpath & "\shot.bat" & chr(34), 0, True  
Set WshShell = Nothing

WshShell.Run chr(34) &  scriptpath & "\shot.bat" & chr(34), 1, True  

strComputer = "."  

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

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

If colSessions.Count <> 0 then
   For Each objSession in colSessions
     If objSession.LogonType = 2 Then
       WScript.Echo "Console"  
     Else
       WScript.Echo "RDP/Terminal Server"  
     End If
     Set colList = objWMI.ExecQuery("Associators of " & "{Win32_LogonSession.LogonId=" & objSession.LogonId & "} " & "Where AssocClass=Win32_LoggedOnUser Role=Dependent" )  

     For Each objItem in colList
       WScript.Echo "User: " & objItem.Name  
       WScript.Echo "FullName: " & objItem.FullName  
       WScript.Echo "Domain: " & objItem.Domain  
     Next
   Next
End If