none
Alterar Script para gerar log com sucesso ou não. RRS feed

  • Pergunta

  • Pessoal,

     

    Peço a ajuda para adaptar o script abaixo, estou tentando configurá-lo para gerar um log em uma unidade de rede, para que eu possa acompanhar o andamento ao invés de exibir a mensagem na tela, porém as linhas em negrito estão gerando erro.

     

    Esse script que eu achei aqui no forum , desativa a Restauração de Sistema esta funcionando, só preciso melhorar o log.

    Obrigado.


    strComputer = "."
    set objWmi = GetObject("winmgmts://" & strComputer & _
    "/root/default:SystemRestore")
    objWmi.Disable("")
    'WScript.Echo "System Restore disabled"

    Set objFSO = CreateObject("Scripting.FileSystemObject")

    Set objFile = objFSO.CreateTextFile("\\servidor\log$\System_Restore \"& strComputador & "_" & strUsername & ".txt", ForWriting)

     

    quarta-feira, 28 de abril de 2010 18:22

Respostas

  • Segue o script.


    Set ObjFSO = CreateObject("Scripting.FileSystemObject")
    Set WshNetwork = WScript.CreateObject("WScript.Network")
    Dim strLogPath

    strComputer = "."
    set objWmi = GetObject("winmgmts://" & strComputer & "/root/default:SystemRestore")

    errResults = objWmi.Disable("")


    strLogPath = "\\servidor\logs$\System_Restore\" & WshNetwork.UserName & "_" & WshNetwork.ComputerName & ".txt"
    Set ObjFileAppending = ObjFSO.opentextfile(strLogPath, 8, True)
    If errResults <> 0 Then
       ObjFileAppending.WriteLine "Não foi desabilitado"
    Else
       ObjFileAppending.WriteLine "Desabilitado"
    End If

     

    Se for útil vote e qualquer dúvida poste.

    Abraço.


    Gabriel Nascimento MCP / MCSA / CCNA http://gabrielnascimentoit.spaces.live.com -- Se for útil vote.
    • Marcado como Resposta Edson S Freitas quinta-feira, 29 de abril de 2010 14:58
    quarta-feira, 28 de abril de 2010 18:56

Todas as Respostas

  • Segue o script.


    Set ObjFSO = CreateObject("Scripting.FileSystemObject")
    Set WshNetwork = WScript.CreateObject("WScript.Network")
    Dim strLogPath

    strComputer = "."
    set objWmi = GetObject("winmgmts://" & strComputer & "/root/default:SystemRestore")

    errResults = objWmi.Disable("")


    strLogPath = "\\servidor\logs$\System_Restore\" & WshNetwork.UserName & "_" & WshNetwork.ComputerName & ".txt"
    Set ObjFileAppending = ObjFSO.opentextfile(strLogPath, 8, True)
    If errResults <> 0 Then
       ObjFileAppending.WriteLine "Não foi desabilitado"
    Else
       ObjFileAppending.WriteLine "Desabilitado"
    End If

     

    Se for útil vote e qualquer dúvida poste.

    Abraço.


    Gabriel Nascimento MCP / MCSA / CCNA http://gabrielnascimentoit.spaces.live.com -- Se for útil vote.
    • Marcado como Resposta Edson S Freitas quinta-feira, 29 de abril de 2010 14:58
    quarta-feira, 28 de abril de 2010 18:56
  • Gabriel,

     

    Ficou excelente, muito grato pela ajuda.

     

    Testado e aprovado.

    quinta-feira, 29 de abril de 2010 14:58