使用VBScript在没有防火墙的情况下阻止UDP端口

我正在测试一个通过UDP端口与服务器通信的应用程序，我需要阻止此端口以确保应用程序能够处理它。
问题：
1.它必须在自动化测试中完成（由VBScript控制）。
2.必须在Windows XP中完成，而不使用防火墙。

我试过这个：

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

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

但它不起作用。

这可能会引起人们的兴趣： 如何使用IPSec阻止特定的网络协议和端口