On Error Resume Next Dim objNetwork Set objNetwork = CreateObject("WScript.Network") Dim strName, strComputer strName = objNetwork.ComputerName strComputer = "." Dim objFSO, objTF Set objFSO = CreateObject("Scripting.FileSystemObject") Set objTF = objFSO.CreateTextFile(strName & ".csv") Dim objWMIService Dim colItems objTF.WriteLine objTF.WriteLine "*** Installierte Hotfixes ***" objTF.WriteLine Set objWMIService = GetObject("winmgmts:\\" & strComputer & "\root\cimv2") Set colItems = objWMIService.ExecQuery("SELECT * FROM Win32_QuickFixEngineering", , 48) objTF.WriteLine "HotFixID;" _ & "CSName;" _ & "InstalledBy;" _ & "InstalledOn;" _ & "ServicePackInEffect;" _ & "FixComments;" _ & "Description" For Each objItem in colItems objTF.WriteLine objItem.HotFixID & ";" _ & objItem.CSName & ";" _ & objItem.InstalledBy & ";" _ & objItem.InstalledOn & ";" _ & objItem.ServicePackInEffect & ";" _ & objItem.FixComments & ";" _ & Chr(34) & objItem.Description & Chr(34) Next objTF.WriteLine objTF.WriteLine "*** Installierte Software ***" objTF.WriteLine Set objWMIService = GetObject("winmgmts:\\" & strComputer & "\root\cimv2") Set colItems = objWMIService.ExecQuery("SELECT * FROM Win32_Product", , 48) objTF.WriteLine "Caption;" _ & "Description;" _ & "Vendor;" _ & "Name;" _ & "Version;" _ & "InstallLocation;" _ & "InstallDate;" _ & "InstallState;" _ & "PackageCache;" _ & "IdentifyingNumber" For Each objItem in colItems objTF.WriteLine objItem.Caption & ";" _ & objItem.Description & ";" _ & objItem.Vendor & ";" _ & objItem.Name & ";" _ & objItem.Version & ";" _ & objItem.InstallLocation & ";" _ & objItem.InstallDate & ";" _ & objItem.InstallState & ";" _ & objItem.PackageCache & ";" _ & objItem.IdentifyingNumber Next WScript.Echo "Fertig!"