Installed Software List on Remote Machine using WMI

Public Sub SoftwareInformationVBS(ByVal strComputer As String, ByVal strUserName As String, ByVal strPwd As String)

        Dim objWMIService, objFSO, objTextFile, colSoftware, objSoftware, objSWbemLocator

        Try

            objFSO = CreateObject("Scripting.FileSystemObject")
            objTextFile = objFSO.CreateTextFile("c:\software.txt", True)

            objSWbemLocator = CreateObject("WbemScripting.SWbemLocator")

            If (strComputer = Environment.MachineName.ToString) Then

                objWMIService = objSWbemLocator.ConnectServer(strComputer, "root\cimv2")
            Else
                objWMIService = objSWbemLocator.ConnectServer(strComputer, "root\cimv2", strUserName, strPwd)
            End If

            objWMIService.Security_.ImpersonationLevel = 3

            colSoftware = objWMIService.ExecQuery("Select * from Win32_Product")
            objTextFile.WriteLine("Caption" & vbTab & _
                "Description" & vbTab & "Identifying Number" & vbTab & _
                "Install Date" & vbTab & "Install Location" & vbTab & _
                "Install State" & vbTab & "Name" & vbTab & _
                "Package Cache" & vbTab & "SKU Number" & vbTab & "Vendor" & vbTab _
                    & "Version")
            For Each objSoftware In colSoftware
                objTextFile.WriteLine(objSoftware.Caption & vbTab & _
                objSoftware.Description & vbTab & _
                objSoftware.IdentifyingNumber & vbTab & _
                objSoftware.InstallDate2 & vbTab & _
                objSoftware.InstallLocation & vbTab & _
                objSoftware.InstallState & vbTab & _
                objSoftware.Name & vbTab & _
                objSoftware.PackageCache & vbTab & _
                objSoftware.SKUNumber & vbTab & _
                objSoftware.Vendor & vbTab & _
                objSoftware.Version)
            Next
            objTextFile.Close()

        Catch ex As Exception

        End Try
        
End Sub

Related Posts by Categories



Stumble This Fav This With Technorati Add To Del.icio.us Digg This Add To Reddit Add To Facebook Add To Yahoo

0 comments:

Post a Comment