Windows 64bits don't show softwares 64bits that is installed
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(
strComputer = objNetwork.
Set objFSO = CreateObject(
Set objTextFile = objFSO.
strKey = "SOFTWARE\
strEntry1a = "DisplayName"
strEntry1b = "QuietDisplayName"
strEntry1c = "DisplayVersion"
Set objReg = GetObject(
"/root/
objReg.EnumKey HKLM, strKey, arrSubkeys
For Each strSubkey In arrSubkeys
intRet1 = objReg.
strEntry1a, strValue1)
intVer1 = objReg.
strEntry1c, strValueV1)
If intRet1 <> 0 Then
objReg.
strEntry1b, strValue1
End If
If strValue1 <> "" Then
objTextFile.
End If
Next
strKey2 = "SOFTWARE\
strEntry2a = "DisplayName"
strEntry2b = "QuietDisplayName"
strEntry2c = "DisplayVersion"
Set objReg = GetObject(
"/root/
objReg.EnumKey HKLM, strKey2, arrSubkeys
For Each strSubkey In arrSubkeys
intRet2 = objReg.
strEntry2a, strValue2)
intVer2 = objReg.
strEntry2c, strValueV2)
If intRet2 <> 0 Then
objReg.
strEntry2b, strValue2
End If
If strValue2 <> "" Then
objTextFile.
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
Related bugs
Sprints
Whiteboard
2.X.X.X series support full 64 bits systems