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 Updates mittels WMI auflisten

27.05.2010

installierte Updates mittels WMI auflisten
On Error Resume Next
objFSO = CreateObject("Scripting.FileSystemObject")
objTextFile = objFSO.CreateTextFile("c:\Updates.csv", True)
objDel = ";"
objTextFile.WriteLine("Caption" & objDel & "CSName" & objDel & "Description" & objDel & "FixComments" & objDel & "HotFixID" & objDel & _
"InstallDate" & objDel & "Installedby" & objDel & "InstalledOn" & objDel & "Name" & objDel & "ServicePackInEffect" & objDel & "Status")
strComputer = "."
objWMIService = GetObject("winmgmts:" _
& "{impersonationLevel=impersonate}!\\" & strComputer & "\root\cimv2")
colQuickFixes = objWMIService.ExecQuery _
("Select * from Win32_QuickFixEngineering")
For Each objQuickFix In colQuickFixes
objTextFile.WriteLine(objQuickFix.Caption & _
objDel & objQuickFix.CSName & _
objDel & objQuickFix.Description & _
objDel & objQuickFix.FixComments & _
objDel & objQuickFix.HotFixID & _
objDel & objQuickFix.InstallDate & _
objDel & objQuickFix.InstalledBy & _
objDel & objQuickFix.InstalledOn & _
objDel & objQuickFix.Name & _
objDel & objQuickFix.ServicePackInEffect & _
objDel & objQuickFix.Status)
Next
Bereitgestellt um 13:54 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  |