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 > Kategorien

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)
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)
certlogo
Small Business Specialist
Impressum  | Kontaktieren Sie uns  |