Dim jo As JavaObject = srvr
Dim connectors() As Object = jo.GetFieldJO("server").RunMethod("getConnectors", Null)
Dim timeout As Long = SessionMaxInactiveIntervalSeconds*1000 ' <------------ change this accordingly
For Each c As JavaObject In connectors
c.RunMethod("setIdleTimeout", Array(timeout))
Next