Private Sub RemoveServerVersionFromResponses (Server As Server)
Dim jo As JavaObject = Server
jo = jo.GetField("server")
Dim connectors() As Object = jo.RunMethod("getConnectors", Null)
For Each co As JavaObject In connectors
Dim connections() As Object = co.RunMethodJO("getConnectionFactories", Null).RunMethod("toArray", Null)
For Each connection As JavaObject In connections
If GetType(connection) = "org.eclipse.jetty.server.HttpConnectionFactory" Then
Dim configuration As JavaObject = connection.RunMethod("getHttpConfiguration", Null)
configuration.RunMethod("setSendServerVersion", Array(False))
End If
Next
Next
End Sub