none
Inventario para identificar versão do framework. RRS feed

  • Pergunta

  • Amigos,

    teriam um script para listar em todos micros da rede a versão do microsoft framework ?

    preciso de um script para listar quais micros tem o 2.0 e o 3.5. de preferencia salvar em um arquivo da seguinte forma de exemplo:

    micro01 - framework 2.0
    micro02 - framework 3.5
    micro03 - framework 2.0

    obrigado


    Joseph Life Style
    quinta-feira, 10 de fevereiro de 2011 20:06

Todas as Respostas

  • 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
    sexta-feira, 11 de fevereiro de 2011 12:08