Firewall Exceptions

I am trying to run the script below. It only works if the remote XP
firewall is turned off. What exceptions do I need to allow this to run ? - I
have already allowed remote administration exceptions via group policy - it
did not help.


strComputer = inputbox("Enter a computer name to run WUA detectnow","Invoke
detectnow")
if strComputer = "" then wscript.quit
on error goto 0
Set autoUpdateClient =
CreateObject("Microsoft.Update.AutoUpdate",strComputer)
AutoUpdateClient.detectnow()
wscript.echo "All done."