Re: lista zainstalowanych programow

Tomasz F. log:
> Witam!
> W mojej firmie potrzebuje zrobić na kazdym komputerze liste
> zainstalowanego oprogramowania (w formie pliku gotowego do
> wydrukowania)
> Czy znacie jakies programy, ktore ulatwily by takie zadanie?
> Szukalem na Google, ale nie moglem niczego znalezc...
> Pozdrawiam
Hi!
-----
Set objFSO = CreateObject("Scripting.FileSystemObject")
Set objTextFile = objFSO.CreateTextFile("X:\installsoft.txt", True)

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

objTextFile.WriteLine "Caption" & vbtab & _
    "Install Date"

For Each objSoftware in colSoftware
    objTextFile.WriteLine objSoftware.Caption & vbtab & _
    objSoftware.InstallDate
Next
objTextFile.Close
-----
GL&BE
Received on Thu Mar 30 01:50:07 2006