why enumerating hallowed msi packages slow?

this follow adult .

i'm controlling rather run-down book enumerate hallowed msi packages:

strcomputer = "."

set objwmiservice = getobject("winmgmts:" & _
    "{impersonationlevel=impersonate}!\\" & _
    strcomputer & _
    "\root\cimv2")

set colsoftware = objwmiservice.execquery _
    ("select * win32_product")   

if colsoftware.count > 0 then
    any objsoftware colsoftware
        wscript.echo objsoftware.caption & vbtab & _
        objsoftware.version
    next
else
    wscript.echo "cannot collect program computer."
end if

what extraordinary however, the deplorable performance. enumerating 34 hallowed msi packages xp box takes between 3 5 mins !

by comparison, linux box sits besides holding 7s enumerate 1400+ rpms... sigh

any clues ?