none
Modo de Escrita de Levantamento RRS feed

  • Pergunta

  • Ba Galera

    Boa noite

    Encontrei o script abaixo aqui na comunidade mais estou tentando fazer uma adaptação e não estou conseguindo, da forma que ele esta ele lista todos os programas instalados em um txt, programa sobre programa, eu gostaria que ele gravasse esta informação no texto, mais programa do lado de programa, desta forma, programa A; programa B; programa C; e assim vai.

    abraço galera.

    Script.

    strComputer = "."
    Set objWMIService = GetObject("winmgmts:" & _
        "{impersonationLevel=impersonate}!\\" & _
        strComputer & _
        "\root\cimv2")
    Set colSoftware = objWMIService.ExecQuery _
        ("SELECT * FROM Win32_Product")
    If colSoftware.Count > 0 Then
        Set objFSO = CreateObject("Scripting.FileSystemObject")   
        Set objTextFile = objFSO.CreateTextFile( _
                "c:\Softwarelog.txt", True)
        For Each objSoftware in colSoftware
                objTextFile.WriteLine objSoftware.Caption & vbtab & _       
                objSoftware.InstallDate   
        Next   
        objTextFile.Close
       
    Else   

    WScript.Echo "Cannot retrieve software from this computer."

    End If

    quinta-feira, 9 de fevereiro de 2012 21:51

Respostas

  • É simples, no seu script vc escreve a linha (objtextfile.writeline) dentro do loop, vc colocal ele depois do loop, e dentro do loop vc coloca uma váriavel que vai somando os textos, assim:

    strComputer = "."
    Set objWMIService = GetObject("winmgmts:" & _
        "{impersonationLevel=impersonate}!\\" & _
        strComputer & _
        "\root\cimv2")
    Set colSoftware = objWMIService.ExecQuery _
        ("SELECT * FROM Win32_Product")
    If colSoftware.Count > 0 Then
        Set objFSO = CreateObject("Scripting.FileSystemObject")    
        Set objTextFile = objFSO.CreateTextFile( _
                "c:\Softwarelog.txt", True)
        For Each objSoftware in colSoftware
                strProgramas = strProgramas & objSoftware.Caption & ";"  
        Next    
        objTextFile.WriteLine strProgramas
        objTextFile.Close
        
    Else   
    
    WScript.Echo "Cannot retrieve software from this computer."
    
    End If


    Fábio de Paula Junior

    • Sugerido como Resposta Fábio JrModerator sexta-feira, 10 de fevereiro de 2012 17:14
    • Marcado como Resposta Marcelo TI sexta-feira, 10 de fevereiro de 2012 17:22
    sexta-feira, 10 de fevereiro de 2012 00:50
    Moderador

Todas as Respostas

  • É simples, no seu script vc escreve a linha (objtextfile.writeline) dentro do loop, vc colocal ele depois do loop, e dentro do loop vc coloca uma váriavel que vai somando os textos, assim:

    strComputer = "."
    Set objWMIService = GetObject("winmgmts:" & _
        "{impersonationLevel=impersonate}!\\" & _
        strComputer & _
        "\root\cimv2")
    Set colSoftware = objWMIService.ExecQuery _
        ("SELECT * FROM Win32_Product")
    If colSoftware.Count > 0 Then
        Set objFSO = CreateObject("Scripting.FileSystemObject")    
        Set objTextFile = objFSO.CreateTextFile( _
                "c:\Softwarelog.txt", True)
        For Each objSoftware in colSoftware
                strProgramas = strProgramas & objSoftware.Caption & ";"  
        Next    
        objTextFile.WriteLine strProgramas
        objTextFile.Close
        
    Else   
    
    WScript.Echo "Cannot retrieve software from this computer."
    
    End If


    Fábio de Paula Junior

    • Sugerido como Resposta Fábio JrModerator sexta-feira, 10 de fevereiro de 2012 17:14
    • Marcado como Resposta Marcelo TI sexta-feira, 10 de fevereiro de 2012 17:22
    sexta-feira, 10 de fevereiro de 2012 00:50
    Moderador
  • Ba Fabio

    show. muito obrigado.

    sexta-feira, 10 de fevereiro de 2012 17:22