Contributed By: Craig Massey
This is a script to refresh all packages assigned to a distribution point.

The technique works, but the code may need adapting to suit SMS topologies.

sitecode = "Your 3 character Sitecode"

Set loc = CreateObject("WbemScripting.SWbemLocator")
Dim WbemServices

Set WbemServices = loc.ConnectServer( , "root\SMS\site_The 3 letter code of your primary site")

Set DPs = wbemServices.ExecQuery("Select * From SMS_DistributionPoint WHERE SiteCode='" & sitecode & "'")
For Each DP In DPs
   DP.RefreshNow = True
   DP.Put_
Next