none
Verificar programas e versões RRS feed

  • Pergunta

  • Boa Tarde!

    Estou com um trabalho que tenho que saber todos programas instalados nas estações de trabalho da rede e a versão de cada programa.

    vocês conhecem algum programa ou script para verificar isso?

    As estações clientes possuem S.O Windows XP Professional ou Windows 7 ou Windows Vista.

    Obrigado. 

    segunda-feira, 14 de março de 2011 16:06

Respostas

  • Solução

    Utilizamos o MAP (Microsoft Assessment and Planning), que ajudou com a plataforma microsoft e o System Center Manager 2007.

    Att.

    • Marcado como Resposta Dênis Júnio domingo, 10 de abril de 2011 02:55
    domingo, 10 de abril de 2011 02:55

Todas as Respostas

  • Ola Denis,

    Você pode utilizar o System Center Configuration Manager 2007, o qual necessita de uma infraestrutura dedicada.

    Pode utilizar o software AIDA http://www.aida64.com/

    E o Microsoft Assessment and Planning http://technet.microsoft.com/en-us/solutionaccelerators/dd537566

    Abraços


    Emerson Gomes - http://itchannelbr.wordpress.com/
    • Sugerido como Resposta Emersong terça-feira, 15 de março de 2011 17:15
    • Marcado como Resposta Richard Juhasz quarta-feira, 16 de março de 2011 13:37
    • Não Marcado como Resposta Dênis Júnio domingo, 10 de abril de 2011 02:54
    segunda-feira, 14 de março de 2011 16:19
  • Denis segue o script.

     

    Vc pode colocar para rodar via GPO e mudar o local do relatorio para um arquivo compartilhado

     

    ---------------

    on error resume next
     
    Const HKLM = &H80000002 'HKEY_LOCAL_MACHINE
    Set objNetwork = CreateObject("Wscript.Network")
    strComputer = objNetwork.ComputerName
     
    Set objFSO = CreateObject("Scripting.FileSystemObject")
    Set objTextFile = objFSO.CreateTextFile("c:\" & strcomputer & ".txt", True)
     
    strKey = "SOFTWARE\Microsoft\Windows\CurrentVersion\Uninstall\"
    strEntry1a = "DisplayName"
    strEntry1b = "QuietDisplayName"
     
    Set objReg = GetObject("winmgmts://" & strComputer & _
     "/root/default:StdRegProv")
    objReg.EnumKey HKLM, strKey, arrSubkeys
     
    For Each strSubkey In arrSubkeys
      intRet1 = objReg.GetStringValue(HKLM, strKey & strSubkey, _
       strEntry1a, strValue1)
      If intRet1 <> 0 Then
        objReg.GetStringValue HKLM, strKey & strSubkey, _
         strEntry1b, strValue1
      End If
      If strValue1 <> "" Then
    objTextFile.WriteLine strValue1 & "¿ " & strcomputer & "¿"
      End If
    Next
     
    strKey2 = "SOFTWARE\Wow6432Node\Microsoft\Windows\CurrentVersion\Uninstall\"
    strEntry2a = "DisplayName"
    strEntry2b = "QuietDisplayName"
     
    Set objReg = GetObject("winmgmts://" & strComputer & _
     "/root/default:StdRegProv")
    objReg.EnumKey HKLM, strKey2, arrSubkeys
     
    For Each strSubkey In arrSubkeys
      intRet2 = objReg.GetStringValue(HKLM, strKey2 & strSubkey, _
       strEntry2a, strValue2)
      If intRet2 <> 0 Then
        objReg.GetStringValue HKLM, strKey & strSubkey, _
         strEntry2b, strValue2
      End If
      If strValue2 <> "" Then
    objTextFile.WriteLine strValue2 & "¿ " & strcomputer & "¿"
      End If
    Next
     
    objTextFile.Close


    David Dellacenta http://https://daviddellacenta.wordpress.com||
    sexta-feira, 18 de março de 2011 17:01
  • Solução

    Utilizamos o MAP (Microsoft Assessment and Planning), que ajudou com a plataforma microsoft e o System Center Manager 2007.

    Att.

    • Marcado como Resposta Dênis Júnio domingo, 10 de abril de 2011 02:55
    domingo, 10 de abril de 2011 02:55