Porque acho que o PowerShell não está habilitado, eu não sou ADM da máquina.
Eu fiz em VBScript mas estou com a seguinte dificuldade:
Esse é o Vbs que fiz
***************************************************************************************
Const ForReading = 1
Const ForWriting = 2
Set oShell = CreateObject("WScript.Shell")
Set objFSO = CreateObject("Scripting.FileSystemObject")
Set objServers = objFSO.OpenTextFile(".\computer.txt", ForReading)
Set objHotfix = objFSO.OpenTextFile(".\computer\Kbs.txt", ForReading)
Set objFile = objFSO.OpenTextFile (".\computer\log.txt", ForWriting)
Do While objServers.AtEndOfStream <> True
strServer = objServers.Readline
Set objWMIService = GetObject("winmgmts:{impersonationLevel=impersonate}!\\" & strServer & "\root\cimv2")
Set colQuickFixes = objWMIService.ExecQuery ("SELECT * FROM Win32_QuickFixEngineering")
strHotfix = objHotfix.Readline
For Each objQuickFix in colQuickFixes
If objQuickFix.HotFixID = strHotfix then
objFile.WriteLine "O Servidor " & strServer & " possui o " & objQuickFix.HotFixID
End If
Next
Loop
Wscript.Echo "FIM"
***************************************************************************************
Ele até me mostra os hotfix instalados, o problema é que para isso eu preciso deixar os arquivos computer.txt e kbs.txt da seguinte maneira:
computer.txt kbs.txt
pc1 kb1
pc1 kb2
pc2 kb1
pc2 kb2
Para cada hotfix procurado eu tenho que especificar o computador, linha a linha, se eu quiser procurar 100 hotfix preciso repetir 100 vezes o nome no computador, isso para cada hofix procurado.
***************************************************************************************
E o que eu preciso seria assim
computer.txt kbs.txt
pc1 kb1
pc2 kb2
pc3 kb3
pc4 kb4
Para cada entrada no arquivo computer.txt o script tem que pesquisar todos os do kb.txt
Obrigado mais uma vez!
ledneh
