使用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

但它没有起作用。