none
Acrescentar linhas no fim de arquivos .txt RRS feed

  • Pergunta

  • Senhores,

    Tenho um vbs que coleta algumas informações de máquinas e as salva em uma planilha excel, porém em algumas máquinas não tém o office.

    Meu problema é; fazer um código que escreva esses dados em um arquivo txt, sendo que eu tenho que, em cada máquina que eu rodar o script ele acrescente uma linha com os dados da mesma neste mesmo arquivo txt.

    Alguém pode me ajudar?

    Desde já agradeço.

     

     

     

    segunda-feira, 19 de setembro de 2011 02:35

Respostas

  • Eli,

    Segue comentários sobre o script:

    Const ForAppending = 8
    
    'Nome do computador onde está sendo executado o script
    Set wshNetwork = WScript.CreateObject( "WScript.Network" )
    strComputerName = wshNetwork.ComputerName
    
    Set objFSO = CreateObject("Scripting.FileSystemObject")
    Set objTextFile = objFSO.OpenTextFile(strComputerName & ".log", ForAppending, True)
    
    objTextFile.WriteLine strComputerName & vbtab & "Escreva as informações necessárias" & vbtab & now
    
    objTextFile.Close
    	
    


    A linha Set objTextFile = objFSO.OpenTextFile("\\seuserver\seushare\"&strComputerName & ".log", ForAppending, True) é a mais importante.

    Nela vc configura onde será salvo o arquivo no exemplo: "\\seuserver\seushare\"&strComputerName & ".log" , se não existir o arquivo ele cria e se ele existir ele vai adicionar linhas (devido ao parametro ForAppending).


    Fábio de Paula Junior
    • Marcado como Resposta Eli Manoel segunda-feira, 19 de setembro de 2011 20:16
    segunda-feira, 19 de setembro de 2011 11:37
    Moderador

Todas as Respostas

  • Eli,

    Segue comentários sobre o script:

    Const ForAppending = 8
    
    'Nome do computador onde está sendo executado o script
    Set wshNetwork = WScript.CreateObject( "WScript.Network" )
    strComputerName = wshNetwork.ComputerName
    
    Set objFSO = CreateObject("Scripting.FileSystemObject")
    Set objTextFile = objFSO.OpenTextFile(strComputerName & ".log", ForAppending, True)
    
    objTextFile.WriteLine strComputerName & vbtab & "Escreva as informações necessárias" & vbtab & now
    
    objTextFile.Close
    	
    


    A linha Set objTextFile = objFSO.OpenTextFile("\\seuserver\seushare\"&strComputerName & ".log", ForAppending, True) é a mais importante.

    Nela vc configura onde será salvo o arquivo no exemplo: "\\seuserver\seushare\"&strComputerName & ".log" , se não existir o arquivo ele cria e se ele existir ele vai adicionar linhas (devido ao parametro ForAppending).


    Fábio de Paula Junior
    • Marcado como Resposta Eli Manoel segunda-feira, 19 de setembro de 2011 20:16
    segunda-feira, 19 de setembro de 2011 11:37
    Moderador

  •  

    Eli,

    Segue comentários sobre o script:

    Const ForAppending = 8
    
    'Nome do computador onde está sendo executado o script
    Set wshNetwork = WScript.CreateObject( "WScript.Network" )
    strComputerName = wshNetwork.ComputerName
    
    Set objFSO = CreateObject("Scripting.FileSystemObject")
    Set objTextFile = objFSO.OpenTextFile(strComputerName & ".log", ForAppending, True)
    
    objTextFile.WriteLine strComputerName & vbtab & "Escreva as informações necessárias" & vbtab & now
    
    objTextFile.Close
    	
    


    A linha Set objTextFile = objFSO.OpenTextFile("\\seuserver\seushare\"&strComputerName & ".log", ForAppending, True) é a mais importante.

    Nela vc configura onde será salvo o arquivo no exemplo: "\\seuserver\seushare\"&strComputerName & ".log" , se não existir o arquivo ele cria e se ele existir ele vai adicionar linhas (devido ao parametro ForAppending).


    Fábio de Paula Junior

    Grande Fabio,

    Serviu perfeitamente. Fiz alguns teste em uma maquina local e funcionou perfeitamente, só precisarei agora adapta-lo ao meu script, mas era exatamente isso que eu precisava.

    Grande abraço.

    segunda-feira, 19 de setembro de 2011 20:19