Script to Get Microsoft Product's Installed on Your Machine With Version Number

Jawed Mohammed
12y
84.1k
0
1

Article

A few days back I was working on the build machine. Or you can say I needed to release a new build machine installed with some specific software.

To achieve this I wrote a few bat files to install specific software silently.

But to verify that software or an application has been installed I needed to check this through the Control Panel. It was rather a manual process.

So to avoid this manual process I came across a bat file and VBScript file which will list all Microsoft products with version number installed on that particular machine.

First we will write our bat file which we will call our VBScript to list out all the product names with version number. We will say bat file as getListOfMicSoft.bat code would be as below:

 

echo CompanyName            SoftwareInstalled       VersionNumber>ListOfMicroSoftware.txt
echo ================================================>>ListOfMicroSoftware.txt
rem location of the vb script file.

cscript //nologo D:\Jawed\GetListOfSoft.vbs >>ListOfMicroSoftware.txt

Now here is the logic written in VBScript file[GetListOfSoft.vbs] to get all the product details and note down in text file ListOfMicroSoftware.txt.

 

On Error Resume Next

On Error Resume Next
Const strComputerName = "."
Const 
HKLM        = &H80000002
Const strKeyPath  = "SOFTWARE\Microsoft\Windows\CurrentVersion\Uninstall"
Dim oReg, arrSubKeys, strProduct, 
strDisplayName, strVersion

Set oReg = GetObject("winmgmts:{impersonationLevel=impersonate}!\\" & _ strComputerName & "\root\default:StdRegProv")


				
				
				
				
				' Enumerate the 
				subkeys of the Uninstall key

				
				
				oReg.EnumKey HKLM, 
				strKeyPath, arrSubKeys

				
				
				For
				Each 
				strProduct In 
				arrSubKeys

				  ' Get 
				the product's display name

				  oReg.GetStringValue HKLM, strKeyPath &
				"\" & 
				strProduct, "DisplayName", 
				strDisplayName

				  ' Only 
				contain 'Microsoft'

				  If 
				InStr(1, strDisplayName,
				"Microsoft", 
				vbTextCompare) > 0 
				Then

				   
				' Get 
				display version

				    oReg.GetStringValue HKLM, strKeyPath &
				"\" & 
				strProduct, "DisplayVersion", 
				strVersion

WScript.Echo strDisplayName &"======"& vbTab &"===========================================" & strVersion End If Next

Click on bat file and it will generate the text file [ListOfMicroSoftware.txt] with all products with version number; the following is the snapshot of that.

Feel free to provide your comments and feedback.