Remote Installed Applications

[ltspock]

I am working on a WMI script that will pull all the installed
applications on a remote workstation. Currently, it uses an inputbox
to retrieve the strcomputer variable. The problem I am running into is
if I use a remote computer, it does not retrieve all of the installed
applications. If I run it locally (either with my computer name or "."
it works fine.


--------- part of the code that concerns the applications------------
Do
StrComputer = inputbox ( "Enter the name of the computer you
wish to query", "Input")
Loop Until strComputer <> ""

Set objWMIService = GetObject("winmgmts://" & strComputer)

Dim REG_SZ

strKeyPath = "SOFTWARE\Microsoft\Windows\CurrentVersion\Uninstall"
oReg.EnumKey HKLM, strKeyPath, arrSubKeys
REG_SZ = 1

For Each subkey In arrSubKeys
On Error Resume Next
strKey = "HKLM\" & strKeyPath & "\" & subkey

'Check to see if DisplayName is blank
If WshShell.RegRead(strKey & "\DisplayName") = "" Then
'If it's blank, Leave it and get the next key.
Else
' If it's not blank, then get the info we need then write
' the divider.

tf.Write Date() & Divider & Time() & Divider & strComputer &
Divider

---------------------------------------------------

I think that is all that is needed for that part. I have admin rights
on the other workstations. Two of the applications that it misses is
Acrobat 6.01 and Acrobat 6.02 Update.

Thanks for any assistance.