Windows 64bits don't show softwares 64bits that is installed

Registered by Frederico Gendorf

With this vbs script above is possible read all softwares installed in a Windows 64bit. It's possibible put in next windows agent ?
on error resume next

Const HKLM = &H80000002 'HKEY_LOCAL_MACHINE
Set objNetwork = CreateObject("Wscript.Network")
strComputer = objNetwork.ComputerName

Set objFSO = CreateObject("Scripting.FileSystemObject")
Set objTextFile = objFSO.CreateTextFile("\\10.0.0.7\temp\" & strcomputer & ".txt", True)

strKey = "SOFTWARE\Microsoft\Windows\CurrentVersion\Uninstall\"
strEntry1a = "DisplayName"
strEntry1b = "QuietDisplayName"
strEntry1c = "DisplayVersion"

Set objReg = GetObject("winmgmts://" & strComputer & _
 "/root/default:StdRegProv")
objReg.EnumKey HKLM, strKey, arrSubkeys

For Each strSubkey In arrSubkeys
  intRet1 = objReg.GetStringValue(HKLM, strKey & strSubkey, _
   strEntry1a, strValue1)
  intVer1 = objReg.GetStringValue(HKLM, strKey & strSubkey, _
   strEntry1c, strValueV1)
  If intRet1 <> 0 Then
    objReg.GetStringValue HKLM, strKey & strSubkey, _
     strEntry1b, strValue1
  End If
  If strValue1 <> "" Then
objTextFile.WriteLine strValue1 & "|" & strValueV1 & "| " & strcomputer & "|"
  End If
Next

strKey2 = "SOFTWARE\Wow6432Node\Microsoft\Windows\CurrentVersion\Uninstall\"
strEntry2a = "DisplayName"
strEntry2b = "QuietDisplayName"
strEntry2c = "DisplayVersion"

Set objReg = GetObject("winmgmts://" & strComputer & _
 "/root/default:StdRegProv")
objReg.EnumKey HKLM, strKey2, arrSubkeys

For Each strSubkey In arrSubkeys
  intRet2 = objReg.GetStringValue(HKLM, strKey2 & strSubkey, _
   strEntry2a, strValue2)
  intVer2 = objReg.GetStringValue(HKLM, strKey2 & strSubkey, _
   strEntry2c, strValueV2)
  If intRet2 <> 0 Then
    objReg.GetStringValue HKLM, strKey & strSubkey, _
     strEntry2b, strValue2
  End If
  If strValue2 <> "" Then
objTextFile.WriteLine strValue2 & "|" & strValueV2 & "| " & strcomputer & "|"
  End If
Next

objTextFile.Close

Blueprint information

Status:
Complete
Approver:
None
Priority:
Essential
Drafter:
None
Direction:
Needs approval
Assignee:
Didier Liroulet
Definition:
Approved
Series goal:
Accepted for 2.x
Implementation:
Implemented
Milestone target:
None
Started by
Didier Liroulet
Completed by
Didier Liroulet

Related branches

Sprints

Whiteboard

2.X.X.X series support full 64 bits systems

(?)

Work Items

This blueprint contains Public information 
Everyone can see this information.

Subscribers

No subscribers.