none
Tirar relatório detlhado RRS feed

  • Discussão Geral

  • OLá!

    Pessoal seguinte, preciso tirar um relatório que me mostre quais as estações de quais localidades instalaram uma atualização.

    Mandei via Wsus o KB970653 que é referente a atualização do horário de verão, porém quero saber quais as estações que já pegaram este KB.

    OS relatórios do Wsus são muito genéricos.

    Se alguém puder me ajudar eu agradeço.
    quinta-feira, 15 de outubro de 2009 19:16

Todas as Respostas

  • Olá Paulo Tudo Bem?

    O amigo Josiel postou no fórum de scripts recentemente um script que verifica se a estação tem o KB instalado e salva um arquivo txt de logo em um compartilhamento na rede que voce determina.
    Cria uma gpo colocando no start up do usuário e acredito que irá lhe ajudar e com certeza irá facilitar seu trabalho.

    O script;

    Set objFSO = CreateObject("Scripting.FileSystemObject")
    Set objNetwork = CreateObject("Wscript.Network")
    strUsuario = objNetwork.Username
    strComputador = objNetWork.ComputerName

    Set objSession = CreateObject("Microsoft.Update.Session")
    Set objSearcher = objSession.CreateUpdateSearcher
    intHistoryCount = objSearcher.GetTotalHistoryCount
    Set colHistory = objSearcher.QueryHistory(1, intHistoryCount)

    'NOME DO KB QUE ESTA PROCURANDO
    strKB = "KB970653"

    'NOME DO ARQUIVO DE LOG
    strLogFile = "\\server\compartilhamento\LOG-KB970653.txt"
    Set objLogFile = objFSO.OpenTextFile(strLogFile, 8, True, 0)

    lInstala = False

    For Each objEntry in colHistory
       if instr(objEntry.Title,strKB) then
          objLogFile.WriteLine now & " - COMPUTADOR : " & UCASE(strComputador) &  " -  USUARIO : " & UCASE(strUsuario) & " - KB INSTALADO EM : " & objEntry.Date
          lInstala = True
       End if
    Next

    if lInstala = False Then
       objLogFile.WriteLine now & " - COMPUTADOR : " & UCASE(strComputador) &  " - USUARIO : " & UCASE(strUsuario) & " - *** ATENCAO, " & strKB & " NAO INSTALADO *** "
    End if

    Post do Josiel: http://social.technet.microsoft.com/Forums/pt-BR/scriptadminpt/thread/0305deac-b4b5-4884-8c43-c5c569877236

    Qualquer dúvida que tiver, post novamente.

    []`s
    Thiago Pereira | http://thiagoinfrat.spaces.live.com | http://www.winsec.org
    quinta-feira, 15 de outubro de 2009 19:34
    Moderador
  • Olá,

     

    Estava lendo este post e verifiquei que faz muito tempo que ele não tem nenhuma atualização, espero que o problema tenha sido resolvido, mas mesmo assim quero deixar aqui algumas dicas.

     

    Sugestão, leia o ótimo artigo criado pelo meu amigo Luciano Lima:

     

    ·         Instalando e Configurando o WSUS 3.0

    http://www.guiamcse.com.br/artigos/Instalando_e_Configurando_o_WSUS_3_0.html

     

    ·         Se ainda estiver com alguma dúvida acesse a biblioteca do Windows Server Update Services (WSUS)

    http://technet.microsoft.com/en-us/library/cc706995(WS.10).aspx

     

    Espero que isso ajude,

    Abraço e boa sorte.

     

    Cleber Marques

    Microsoft MVP & MCT | Charter Member: SCVMM & MDOP
    Projeto MOF Brasil: Simplificando o Gerenciamento de Serviços de TI
    Meu Blog | MOF.com.br | CleberMarques.com | CanalSystemCenter.com.br
    sexta-feira, 5 de novembro de 2010 23:01
    Moderador
  • Estou alterando o status deste post para mantermos a organização deste fórum, por favor, se ainda tiver alguma dúvida relacionada ao tema abordado aqui abra um novo tópico.

     

    Atenciosamente,

     

    Cleber Marques

    Microsoft MVP & MCT | Charter Member: SCVMM & MDOP
    Projeto MOF Brasil: Simplificando o Gerenciamento de Serviços de TI
    Meu Blog | MOF.com.br | CleberMarques.com | CanalSystemCenter.com.br
    sexta-feira, 5 de novembro de 2010 23:03
    Moderador