Usuário com melhor resposta
Verificar programas e versões

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.
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
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
-
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|| -
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