Consegui apos algumas adaptacoes, mas ele retorna somente o nome do micro verificado, a versao do framework nao retorna
alguem tem alguma sugestao ?
on error resume next
strLog = "log.txt"
Dim strComputer, objFSO, ArqLog, GetObject, objWMIService
Const ForReading = 1
Set objFSO = CreateObject("Scripting.FileSystemObject")
Set objTextFile = objFSO.OpenTextFile _
("c:\scripts\computadores.txt", ForReading)
set FSo = CreateObject("Scripting.FileSystemObject")
Set ArqLog = FSO.OpenTextFile(strLog, 8, True, 0)
Do Until objTextFile.AtEndOfStream
strNextLine = objTextFile.Readline
arrServiceList = Split(strNextLine , ",")
strComputer = arrServiceList(0)
Set objWMIService = GetObject("winmgmts:" _
& "{impersonationLevel=impersonate}!\\" & strComputer & "\root\cimv2")
Set colFeatures = objWMIService.ExecQuery _
("Select * from Win32_SoftwareFeature")
ArqLog.WriteLine "======================================================================"
ArqLog.WriteLine "SOFTWARES LISTADOS EM: " & now
strFrame = ""
For Each objFeature in colfeatures
if instr(UCASE(objFeature.ProductName),"FRAMEWORK") Then
strFrame = "" & objFeature.ProductName & " | " & "Versão: " & objFeature.Version
End if
Next
ArqLog.WriteLine "MICRO = " & strComputer
ArqLog.WriteLine "FRAMEWORK = " & strFrame
Loop
Joseph Life Style
