'VBS Script To Send A Remote Machines Hot Fix Information To Excel


'VBS Script To Send A Remote Machines Hot Fix Information To Excel
strComputer = InputBox ("Enter Machine Name")   Set objExcel = CreateObject("Excel.Application") objExcel.Visible = True objExcel.Workbooks.Add intRow = 2   objExcel.Cells(1, 1).Value = "Machine Name" objExcel.Cells(1, 2).Value = "Hot Fix ID" objExcel.Cells(1, 3).Value = "Description" objExcel.Cells(1, 4).Value = "Install Date"   Set objWMIService = GetObject("winmgmts:" & strComputer & "rootcimv2") Set colItems = objWMIService.ExecQuery("Select * from Win32_QuickFixEngineering Where HotFixID <> 'File 1'") For Each objItem In colItems objExcel.Cells(intRow, 1).Value = UCase(strComputer) objExcel.Cells(intRow, 2).Value = objItem.HotFixId objExcel.Cells(intRow, 3).Value = objItem.Description objExcel.Cells(intRow, 4).Value = objItem.InstalledOn   intRow = intRow + 1 Next   objExcel.Range("A1:D1").Select objExcel.Selection.Interior.ColorIndex = 19 objExcel.Selection.Font.ColorIndex = 11 objExcel.Selection.Font.Bold = True objExcel.Cells.EntireColumn.AutoFit   MsgBox "Done"  

Leave a Comment