Заблокировать порт UDP без брандмауэра с помощью VBScript

Я тестирую приложение, которое обменивается данными с сервером через порт UDP, и мне нужно заблокировать этот порт, чтобы убедиться, что приложение может его обработать. Проблемы:
1. Это должно быть выполнено в автоматическом тесте (который контролируется сценариями VBS) .
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

но это не сработало.