On Error Resume Next
set objFSO = CreateObject("Scripting.FileSystemObject")
set 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 = "."
set objWMIService = GetObject("winmgmts:" _
& "{impersonationLevel=impersonate}!\\" & strComputer & "\root\cimv2")
set 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
 
msgbox "Fertig!"

EALA FREYA FRESENA