Bloquer le port UDP sans pare-feu en utilisant VBScript

Question

Je teste une application qui communique avec un serveur via un port UDP, et j'ai besoin de bloquer ce port pour m'assurer que l'application puisse le gérer. Les problèmes:
1. Il doit être fait dans un test automatisé (qui est contrôlé par VBScripts).
2. Il doit être fait dans Windows XP, sans utiliser de pare-feu.

J'ai essayé:

Set objFirewall = CreateObject("HNetCfg.FwMgr") 
Set objPolicy = objFirewall.LocalPolicy.CurrentProfile 
Set colPorts = objPolicy.GloballyOpenPorts 

Set objPort = colPorts.Item(9999,6) 
objPort.Enabled = FALSE 

mais cela n'a pas fonctionné.

Answer 1

Cela peut intéresser: Comment bloquer les protocoles réseau et ports spécifiques en utilisant IPSec http://support.microsoft.com/kb/813878