Function GetMSTSUserProcesses($TSName, $SessionID)
	Dim $winmgmts, $ExecQuery, $Processes, $Process, $Index

	$winmgmts = "winmgmts:{impersonationLevel=impersonate}!//" + $TSName
	$ExecQuery = "select * from Win32_Process Where SessionID=" + $SessionID
	$Processes = GetObject($winmgmts).ExecQuery($ExecQuery)

	For Each $process in $processes
		$Index = $Index + 1
	Next

	Dim $temparray[$Index]

	For $Index = 0 to UBound($Processes)
		$temparray[$Index] = $Processes[$Index]
	Next

	$Index = 0
	For Each $Process in $Processes
		$temparray[$Index] = $Process.name
		$Index = $Index + 1
	Next

	$GetMSTSUserProcesses = $temparray
EndFunction

$sessionid = "21"
$tsname = "MSTermServer01"

$processes = GetMSTSUserProcesses($tsname, $sessionid)
If UBound($processes) > 0
	? "The user with session ID: " + $sessionid " is working on: " + $tsname + "."
	? "This user has started " + UBound($processes)  + " processes."
	? "Processes started by this users are: "
	For Each $process in $processes
		? $process
	Next
Else
	? "There is no user with session ID: " + $sessionid + " on " + $tsname + "."
EndIf

Sleep 5