Anmelden

Navigationslinks überspringen
Unternehmen
Leistungen
Blog
Deutsche Seiten English Sites
Startet die SucheErweiterte Suche
Kategorien
SQL Server
Analyses Services
Coding
Reporting Services
Integration Services
Microsoft Access
Sonstiges
Sharepoint
Andere Blogs
Diese Liste enthält keine Elemente.
Hyperlinks
Fotos
Archiv
Archiv (Kalender)
Deutsch > Blog > Beiträge > installierte Software mittels WMI auflisten

27.05.2010

installierte Software mittels WMI auflisten
On Error Resume Next

objFSO = CreateObject("Scripting.FileSystemObject")

objTextFile = objFSO.CreateTextFile("c:\software.csv", True)

objDel = ";"

objTextFile.WriteLine("Caption" & objDel & "Description" & objDel & "Identifying Number" & objDel & "Install Date" & objDel & "Install Location" & objDel & _
"Install State" & objDel & "Name" & objDel & "Package Cache" & objDel & "SKU Number" & objDel & "Vendor" & objDel & "Version")
strComputer = "."
objWMIService = GetObject("winmgmts:\\" & strComputer & "\root\cimv2")
colItems = objWMIService.ExecQuery("Select * from Win32_Product", , 48)
For Each objItem In colItems
objTextFile.WriteLine(objItem.Caption & _
objDel & objItem.Description & _
objDel & objItem.IdentifyingNumber & _
objDel & objItem.InstallDate & _
objDel & objItem.InstallLocation & _
objDel & objItem.InstallState & _
objDel & objItem.Name & _
objDel & objItem.PackageCache & _
objDel & objItem.SKUNumber & _
objDel & objItem.Vendor & _
objDel & objItem.Version)
Next
Bereitgestellt um 13:52 von Andy Löwen | Kategorie: Sonstiges | Permalink | Diesen Beitrag per E-Mail senden | Kommentare (0)

Kommentare

Zu diesem Beitrag sind noch keine Kommentare vorhanden.
certlogo
Small Business Specialist
Impressum  | Kontaktieren Sie uns  |