none
Verificar softwares 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:07

Respostas

Todas as Respostas

  • olá Dênis,

    você ja abriu um tópico com este mesmo assunto e já foi respondido,tente a solução do nosso amigo e centralize seus comentários no mesmo para manter a organização no fórum

    http://social.technet.microsoft.com/Forums/pt-BR/winvistapt/thread/8dd350ee-fa53-448f-8634-bd952ecc84a8/

     

    abs

    • Marcado como Resposta Richard Juhasz quarta-feira, 16 de março de 2011 14:27
    segunda-feira, 14 de março de 2011 17:13
    Moderador
  • Denis,

     

    Vc pode usar o psinfo - sysinternals ... Usando no cmd psinfo -h

    http://technet.microsoft.com/en-us/sysinternals/bb897550 - Aqui vc vai encontrar as explicações para usar e criar os scripts.

     

    Qualquer duvida posta para ajudarmos 

     

    Abs


    _______________________________________________________ Se for util, vote. Assim você ajuda a manter o fórum organizado e ajuda outros a acharem as respostas http://robsonfr.wordpress.com
    • Marcado como Resposta Richard Juhasz quarta-feira, 16 de março de 2011 14:27
    segunda-feira, 14 de março de 2011 17:25
  • 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