How to check if software has been deployed to all clients

  • Thread starter Thread starter Rolf Rettinger
  • Start date Start date
R

Rolf Rettinger

Hi,

how can I check if the application I specified for deployment using GPO has
been installed on all clients?

Thanks

Rolf
 
Hi Steven,
thanks for your answer, but how can I check if the application is installed
on each clients without walking around? I would like to check if the
application has been installed on a couple of hundred clients. Do you know
how to do this?

Thanks

Rolf
 
Hello Rolf,

To check the installation status, you can check the Application log in
Event Viewer. Event source is MsiInstaller

You can also enable Windows Installer Logging with Group Policies; and then
check the log files in the client computers. For related information, check
the articles below.

223300 How to Enable Windows Installer Logging
http://support.microsoft.com/?id=223300

250842 Troubleshooting Group Policy Application Problems
http://support.microsoft.com/?id=250842

Thanks.


Sincerely,

Vivien Wu
MCSA, MCSE2000 and MCDBA2000
Microsoft Partner Online Support


Get Secure! - www.microsoft.com/security

====================================================
When responding to posts, please Reply to Group via your newsreader so
that others may learn and benefit from your issue.
====================================================
This posting is provided AS IS with no warranties, and confers no rights.
 
This script will display software details that are installed on client that
runs this script.
I am sure you can edit it to mask the required on and act on information.
Regards
Don


Set WshNetwork = CreateObject("WScript.Network")
Set objFSO = CreateObject("Scripting.FileSystemObject")
' GetInstalledSoftware.vbs
' VBScript program to return all applications installed.
'
' ----------------------------------------------------------------------

Set objTextFile = objFSO.CreateTextFile(".\Installed Software.csv", True)

strComputer = WshNetwork.ComputerName
Set objWMIService = GetObject("winmgmts:" _
& "{impersonationLevel=impersonate}!\\" & strComputer & "\root\cimv2")
Set colSoftware = objWMIService.ExecQuery _
("Select * from Win32_Product")
objTextFile.WriteLine "Computer" & "," & "Caption" & "," & _
"Description" & "," & "Identifying Number" & "," & _
"Install Date" & "," & "Install Location" & "," & _
"Install State" & "," & "Name" & "," & _
"Package Cache" & "," & "SKU Number" & "," & "Vendor" & "," _
& "Version"
On Error Resume next

For Each objSoftware in colSoftware
Err.Clear
sInstallDate = Mid(cstr(objSoftware.InstallDate2), 7, 2) _
& "/" & Mid(cstr(objSoftware.InstallDate2), 5, 2) _
& "/" & Left(cstr(objSoftware.InstallDate2), 4)

If Err.Number <> 0 Then
sInstallDate = Mid(cstr(objSoftware.InstallDate), 7, 2) _
& "/" & Mid(cstr(objSoftware.InstallDate), 5, 2) _
& "/" & Left(cstr(objSoftware.InstallDate), 4)
End If

objTextFile.WriteLine strComputer & "," & _
objSoftware.Caption & "," & _
Replace(objSoftware.Description,","," ") & "," & _
objSoftware.IdentifyingNumber & "," & _
cdate(sInstallDate) & "," & _
objSoftware.InstallLocation & "," & _
objSoftware.InstallState & "," & _
objSoftware.Name & "," & _
objSoftware.PackageCache & "," & _
objSoftware.SKUNumber & "," & _
Replace(objSoftware.Vendor,","," ") & "," & _
objSoftware.Version
Next
objTextFile.Close
 
Back
Top