Boa Tarde,
Alguém poderia me ajudar estou tendo um problema para listar máquinas que não foram instalado o patch KB958644, eu não consigo fazer com que o script retorne uma resposta caso a máquina não tenha o hotfix.
Segue o codigo abaixo.
on error resume next
Dim oNet, Computers, Lercomp, Arquivos
Public Sub Grava(lercomp)
Const ForAppending = 8
arq_ext = "VerifyPatch.log"
Set fso = CreateObject("Scripting.FileSystemObject")
Set arq_int = fso.OpenTextFile(arq_ext , ForAppending, true)
data = now()
arq_int.write (lercomp & vbcrlf)
arq_int.close
End Sub
Set arquivos = CreateObject("Scripting.FileSystemObject")
Set Computers = arquivos.OpenTextFile("Computers.txt")
Do Until computers.AtEndOfStream
Lercomp = Computers.ReadLine
Set objWMIService = GetObject("winmgmts:" & "{impersonationLevel=impersonate}!\\" & lercomp & "\root\cimv2")
'Set colQuickFixes = objWMIService.ExecQuery ("Select * from Win32_QuickFixEngineering WHERE HotfixID <> 'File 1' and HotFixID = 'KB958644'")
WScript.Echo(Lercomp & "----------"& Err.Number)
For Each objeto In colQuickFixes
If objeto.HotFixId <> "KB958644" Then
WScript.Echo(objeto.HotFixId)
End if
Next
'If ColQuickFixes = "" Then
' Grava(Lercomp & ";" & "Não Instalado")
'Else
' Grava(Lercomp & ";" & "Instalado")
'End If
Loop
Computers.Close
