Set WinXP to use Microsoft Update

Ever wanted to know how to modify the Windows Update shortcut (in Windows XP) to use Microsoft Update online (which includes Windows and Office software) instead of Windows Update online (which is only Windows software)?  This is particularly useful if technicians will use the Windows Update process for troubleshooting – it forces them to all use the newer site.  Use the following VBScript to have the WUA client make the changes.  Note that you may need to install a newer WUA version in order for this script to work.

' Script from MSDN
 ' Requires a version of WUA that is installed on the computer is version 7.0.6000 or a later version
 ' More information @ http://msdn.microsoft.com/en-us/library/aa826676(VS.85).aspx

Set ServiceManager = CreateObject("Microsoft.Update.ServiceManager")
 ServiceManager.ClientApplicationID = "My App"

'add the Microsoft Update Service, GUID
 Set NewUpdateService = ServiceManager.AddService2("7971f918-a847-4430-9279-4a52d1efe18d",7,"")