list of software installed in a machine

The list of software installed in a machine is easier to find if you have a single system. In case of several servers for any project / application, i needs a automatic tool to generate the report. It can be embedded into your daily dashboard or monthly health check reports.

We can achieve this through two ways. One through VB script and another through PsTools executable.

Vb Script for finding installed software in the machine. We can edit the contents to make the output in required format for the consumption.

  1. Option Explicit   
  2. Const HKLM = &H80000002 'HKEY_LOCAL_MACHINE   
  3. Dim strComputer, strKey, CurrentDirectory, Filepath  
  4. strComputer = "."   
  5. strKey = "SOFTWARE\Microsoft\Windows\CurrentVersion\Uninstall\"   
  6. 'Get script current folder  
  7. CurrentDirectory = left(WScript.ScriptFullName,(Len(WScript.ScriptFullName))-(len(WScript.ScriptName)))  
  8. 'set result file path   
  9. Filepath = CurrentDirectory & "\InstalledSoftware.txt"  
  10. Dim FSO, TextFile, objReg, strSubkey, arrSubkeys   
  11. 'create filesystem object   
  12. Set FSO = CreateObject("scripting.FileSystemObject")  
  13. 'Create new text file   
  14. Set TextFile = FSO.CreateTextFile(Filepath)  
  15. 'Get WMI object   
  16. Set objReg = GetObject("winmgmts://" & strComputer & "/root/default:StdRegProv")   
  17. objReg.EnumKey HKLM, strKey, arrSubkeys   
  18. Textfile.WriteLine  "Installed Applications: "   
  19. Textfile.WriteLine  
  20. 'Loop registry key.  
  21. Dim DisplayName,DisplayVersion, InstallDate, EstimatedSize, UninstallString  
  22. For Each strSubkey In arrSubkeys   
  23.   objReg.GetStringValue HKLM, strKey & strSubkey, "DisplayName" , DisplayName  
  24.   If DisplayName <> "" Then   
  25.   Textfile.WriteLine  "Display Name  : " & DisplayName  
  26.   objReg.GetStringValue HKLM, strKey & strSubkey, "DisplayVersion" , DisplayVersion  
  27.   Textfile.WriteLine  "Version       : " & DisplayVersion  
  28.   objReg.GetStringValue HKLM, strKey & strSubkey, "InstallDate", InstallDate  
  29.   Textfile.WriteLine  "InstallDate   : " & InstallDate   
  30.   objReg.GetDWORDValue HKLM, strKey & strSubkey, "EstimatedSize" , EstimatedSize  
  31.   If  EstimatedSize <> "" Then   
  32.   Textfile.WriteLine  "Estimated Size: " & Round(EstimatedSize/1024, 3) & " megabytes"   
  33.   Else   
  34.   Textfile.WriteLine  "Estimated Size: "   
  35.   End If   
  36.   objReg.GetStringValue HKLM, strKey & strSubkey, "UninstallString", UninstallString  
  37.   Textfile.WriteLine  "Uninstall     :" & UninstallString  
  38.   Textfile.Writeline  
  39.   End If   
  40. Next   
  41.   
  42.   
  43. TextFile.Close   
  44. WScript.Echo "Generate 'InstalledSoftware.txt' successfully."  

Apart from VBScript, we can use psinfo.exe to get the list. It is available as an exe from microsoft website to use.
Ex: psinfo -s --> Lists the software installed in the local machine..

Comments

Post a Comment

Popular posts from this blog

Base 64 encoding and decoding

Encoding and decoding of BASE64 format strings for Apache Tomcat web server.  java -cp /usr/tcServer-6.0/tomcat-6.0.33.B.RELEASE/lib/tcServer.jar:/usr/tcServer-6.0/tomcat-6.0.33.B.RELEASE/bin/tomcat-juli.jar:/usr/tcServer-6.0/tomcat-6.0.33.B.RELEASE/lib/tomcat-coyote.jar com.springsource.tcserver.security.PropertyDecoder -encode / -decode base64 <password>
Read more

LINQ Queries with GROUP BY, INNER JOIN, COUNT and SUM: Examples

Examples of different LINQ queries in C#: GROUP BY, INNER JOIN, COUNT and SUM Setup the LINQPad against the Northwind database. 1. LINQ query with GROUP BY, JOIN and SUM.     Find the quantities required for each product to fulfill all the orders.     Here the tables we have to use are Products and Order Details. Both of these tables can be joined on    ProductID key and grouped by Product Name to make sure that the Quantity is calculated against a named product instead of ID.     The SQL query for the above requirement is :        s elect A.ProductName,sum(B.Quantity)         from Products P join "Order Details" OD         on A.ProductID=B.ProductID         group by A.ProductName     The equivalent LINQ query for the above is:                 from p in Products         join od in OrderDetails         on p.ProductID equals od.ProductID         group od by p.ProductName into g         select new { ProductName=g.Key, Quanti=g.Sum(a => a.Quantity)}      2. LIN
Read more

How to write Custom delete Confirmation Modal for Kendo Grid in MVC:

How to write Custom delete Confirmation Modal for Kendo Grid in MVC: For the above task, we need to add custom command for delete operation.For the Click, the argument is the javascript function name. .Columns(columns =>columns.Command(command => { command.Custom("Delete").Click("deleteRow"));  Later, you need to tell the kendo Grid that you want to suppress the default behavior for the Delete Action. .Editable(editable => editable.DisplayDeleteConfirmation(false)) Need to remove the destroy property for the datasource mapping to grid. Like .Destroy for the DataSource has to be removed. We are handling this server side work through script logic. Now, write the modal window markup for the Delete pop-up. <div id="modalWindow">     <h2>Are you sure to Delete?</h2>     <span class="k-label">Reason For Deletion</span> <input id="txtReasonForChange" class="k-textbox" />    
Read more