How to check if software has been deployed to all clients

[Rolf Rettinger]

Hi,

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

Thanks

Rolf

 

[steven]

HI

Try using msicuu.exe out of the 2k resource kit

 

[Rolf Rettinger]

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

 

[Vivien Wu [MSFT]]

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.

 

[Don Grover]

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