thanks for allowing me to join this forum<\/p>\n
the given below a vbs script which i googled and got which will take input from a text file compare with wmi for patches and gives output whether patches are installed or not…<\/p>\n
now i want to make some modifications in the script:-<\/p>\n
(a) the PCs hostname should me taken automatically from host commad and user no need to enter hostname
\n(b) Instead of showing output in open exel file, i want the output to be redirected to some csv file.<\/p>\n
thanks in advance<\/p>\n
the script follows :-<\/p>\n
<\/p>\n
strComputer = InputBox (“Enter Machine Name”)<\/p>\n
<\/p>\n
Set objExcel = CreateObject(“Excel.Application”)<\/p>\n
objExcel.Visible = True<\/p>\n
objExcel.Workbooks.Add<\/p>\n
intRow = 2<\/p>\n
<\/p>\n
objExcel.Cells(1, 1).Value = “HotFix”<\/p>\n
objExcel.Cells(1, 2).Value = strHotFixId & ” Install Date”<\/p>\n
<\/p>\n
Set Fso = CreateObject(“Scripting.FileSystemObject”)<\/p>\n
Set InputFile = fso.OpenTextFile(“patches.Txt”)<\/p>\n
Do While Not (InputFile.atEndOfStream)<\/p>\n
strHotFixId = InputFile.ReadLine<\/p>\n
<\/p>\n
Set objWMIService = GetObject(“winmgmts:\\\\” & strComputer & “\\root\\cimv2”)
\nSet colItems = objWMIService.ExecQuery( _
\n“Select * from Win32_QuickFixEngineering Where HotFixID ='” & strHotFixId & “‘”)<\/p>\n
<\/p>\n
<\/p>\n
If colItems.Count > 0 Then<\/p>\n
For Each objItem In colItems<\/p>\n
objExcel.Cells(intRow, 1).Value = strHotFixId<\/p>\n
objExcel.Cells(intRow, 2).Value = objItem.InstalledOn<\/p>\n
Next<\/p>\n
Else<\/p>\n
objExcel.Cells(intRow, 1).Value = strHotFixId<\/p>\n
objExcel.Cells(intRow, 2).Value = “Not Installed”<\/p>\n
If objExcel.Cells(intRow, 2).Value = “Not Installed” Then<\/p>\n
objExcel.Cells(intRow, 1).Font.ColorIndex = 3<\/p>\n
objExcel.Cells(intRow, 2).Font.ColorIndex = 3<\/p>\n
Else<\/p>\n
End If<\/p>\n
End If<\/p>\n
<\/p>\n
intRow = intRow + 1<\/p>\n
Loop<\/p>\n
objExcel.Range(“A1:B1”).Select<\/p>\n
objExcel.Cells.HorizontalAlignment = 2<\/p>\n
objExcel.Selection.Interior.ColorIndex = 19<\/p>\n
objExcel.Selection.Font.ColorIndex = 11<\/p>\n
objExcel.Selection.Font.Bold = True<\/p>\n
objExcel.Cells.EntireColumn.AutoFit<\/p>\n
<\/p>\n
MsgBox “Done”<\/p>\n","protected":false},"author":5,"featured_media":0,"comment_status":"closed","ping_status":"closed","template":"","meta":{"inline_featured_image":false,"iawp_total_views":1},"question-category":[55],"question_tags":[],"class_list":["post-7528","question","type-question","status-publish","hentry","question-category-programming"],"jetpack_sharing_enabled":true,"_links":{"self":[{"href":"https:\/\/computing.net\/answers\/wp-json\/wp\/v2\/question\/7528","targetHints":{"allow":["GET"]}}],"collection":[{"href":"https:\/\/computing.net\/answers\/wp-json\/wp\/v2\/question"}],"about":[{"href":"https:\/\/computing.net\/answers\/wp-json\/wp\/v2\/types\/question"}],"author":[{"embeddable":true,"href":"https:\/\/computing.net\/answers\/wp-json\/wp\/v2\/users\/5"}],"replies":[{"embeddable":true,"href":"https:\/\/computing.net\/answers\/wp-json\/wp\/v2\/comments?post=7528"}],"wp:attachment":[{"href":"https:\/\/computing.net\/answers\/wp-json\/wp\/v2\/media?parent=7528"}],"wp:term":[{"taxonomy":"question-category","embeddable":true,"href":"https:\/\/computing.net\/answers\/wp-json\/wp\/v2\/question-category?post=7528"},{"taxonomy":"question_tags","embeddable":true,"href":"https:\/\/computing.net\/answers\/wp-json\/wp\/v2\/question_tags?post=7528"}],"curies":[{"name":"wp","href":"https:\/\/api.w.org\/{rel}","templated":true}]}}