Getting Installed Applications

Here's the code that I got to get Installed applications in any PC (Window 7). This thing once worked on my side but when I execute it again I'm getting run time error '-2147217392 (80041010) - Automation Error. Anyone can help me? Thanks..

Sub test2()

x = 2
strComputer = "."
Set objWMIService = GetObject("winmgmts:" _
  & "{impersonationLevel=impersonate}!\\" & strComputer & "\root\cimv2")
Set colSoftware = objWMIService.ExecQuery("Select * from Win32reg_AddRemovePrograms64") 

For Each objSoftware In colSoftware '--> in this line the error comes up.
              
            ActiveWorkbook.Sheets("Sheet1").Cells(x, 4).Value = objSoftware.DisplayName 'needed
            ActiveWorkbook.Sheets("Sheet1").Cells(x, 5).Value = objSoftware.Version          
            x = x + 1
   Next
End Sub

arcesdiola,

Welcome to the forum.

I have added code tags to your post. As per forum rule 3, you need to use them whenever you put any code in your post. Please add them in future. If you need more information on how to use them, check my signature below this post.