bitte den Code nicht rauskopieren da manche Dekorationen fehlerhaft sind 1. Dim ports As INetFwOpenPorts
INetFwMgr