none
Script para Suporte RRS feed

 > 

  • Pergunta

  • Question
    Entrar para Votar
    0
    Entrar para Votar
    Olá, pessoal!!!

    Gostaria de uma ajuda, minha empresa tem uma equipe de suporte que faz manutenção preventiva nas maquinas dos clientes semanalmente, essa manutenção preventiva engloba limpeza de disco, desfragmentação de disco (as vezes), excluir arquivos temporarios e fazer verificações de itens de inicialização (msconfig)...
    Esse procedimento é feito no perfil do usuario!

    Gostaria de criar um script que chamasse a limpeza de disco e que essa executasse, selecionasse todos os arquivos e limpasse automaticamente e no mesmo script rodar limpeza de arquivos temporarios...

    Estou tentando criar algo mas conto com a ajuda de vcs!

    Obrigado!
    quarta-feira, 27 de janeiro de 2010 12:19
    |

Respostas

  • Question
    Entrar para Votar
    0
    Entrar para Votar
    Olá,

    Verifique o script abaixo:


    Dim arrItens (17,2)

    arrItens(0,0)  = "Active Setup Temp Folders"
    arrItens(1,0)  = "Compress old files"
    arrItens(2,0)  = "Content Indexer Cleaner"
    arrItens(3,0)  = "Downloaded Program Files"
    arrItens(4,0)  = "Internet Cache Files"
    arrItens(5,0)  = "Memory Dump Files"
    arrItens(6,0) = "Microsoft Office Temp Files"
    arrItens(7,0) = "Offline Files"
    arrItens(8,0) = "Offline Pages Files"
    arrItens(9,0) = "Old ChkDsk Files"
    arrItens(10,0) = "Recycle Bin"
    arrItens(11,0) = "Remote Desktop Cache Files"
    arrItens(12,0) = "Setup Log Files"
    arrItens(13,0) = "System Restore"
    arrItens(14,0) = "Temporary Files"
    arrItens(15,0) = "Temporary Offline Files"
    arrItens(16,0) = "Temporary Sync Files"
    arrItens(17,0) = "WebClient and WebPublisher Cache"


    ' LIBERA A LIMPEZA DOS ITENS ACIMA

    arrItens(0,1)  = False
    arrItens(1,1)  = False
    arrItens(2,1)  = False
    arrItens(3,1)  = False
    arrItens(4,1)  = False
    arrItens(5,1)  = False
    arrItens(6,1) = False
    arrItens(7,1) = False
    arrItens(8,1) = False
    arrItens(9,1) = False
    arrItens(10,1) = True
    arrItens(11,1) = False
    arrItens(12,1) = False
    arrItens(13,1) = False
    arrItens(14,1) = True
    arrItens(15,1) = True
    arrItens(16,1) = True
    arrItens(17,1) = False


    strPath = "HKLM\Software\Microsoft\Windows\CurrentVersion\Explorer\VolumeCaches\"
    strSet = "stateFlags0500"

    set oShell = CreateObject("WScript.Shell")



    For x = 0 to UBOUND(arrItens)
       if arrItens(x,1) = True Then
          oShell.RegWrite strPath & arrItens(x,0) & "\" & strSet , "2", "REG_DWORD"
       Else
          oShell.RegWrite strPath & arrItens(x,0) & "\" & strSet , "0", "REG_DWORD"
       End if
    Next


    Set WSHShell = WScript.CreateObject("WScript.Shell")

    WSHShell.Run "cleanmgr.exe /d c: /sagerun:500", 1, true


    Até mais,

    Jesiel

    Obs.: Se útil, classifique




    quarta-feira, 27 de janeiro de 2010 13:17
    |