none
Script de limpeza RRS feed

  • Pergunta

  • Ba Galera

    Achei esse script abaixo aqui no forum passado pelo Grande Jesiel, porem mesmo passando para True todos os itens abaixo, parece que quando inicia o aplicativo, ele não limpa as coisas por exemplo arquivo na pasta temp nao estao sendo apagadas, tb nem sei heheh se teria que apagar, os arquivos temporarios de internet, tb nada nao são apagados, o que eu teria que alterar ou o que ele realmente apagaria hehe valeu galera.


    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) = False
    arrItens(15,1) = False
    arrItens(16,1) = False
    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
    quinta-feira, 27 de agosto de 2009 02:24

Respostas

  • Olá,

    Marcelo, oque você precisa validar??? Fiz o teste aqui... e aparentemente está funcionando...

    Para testar, você terá que executar um por um... e verificar.


    Até mais,

    Jesiel

    Obs.: Se útil, classifique


    • Marcado como Resposta Marcelo TI quinta-feira, 3 de setembro de 2009 09:41
    segunda-feira, 31 de agosto de 2009 14:38

Todas as Respostas

  • Ba galera..

    Alguem tem alguma ideia.
    sexta-feira, 28 de agosto de 2009 01:58
  • Ba Galera.

    Bom dia a todos..

    Alguem tem alguma ideia, ou melhor como validar que ele realmente esta limpando que deveria limpar...
    segunda-feira, 31 de agosto de 2009 10:56
  • Olá,

    Marcelo, oque você precisa validar??? Fiz o teste aqui... e aparentemente está funcionando...

    Para testar, você terá que executar um por um... e verificar.


    Até mais,

    Jesiel

    Obs.: Se útil, classifique


    • Marcado como Resposta Marcelo TI quinta-feira, 3 de setembro de 2009 09:41
    segunda-feira, 31 de agosto de 2009 14:38
  • Ok Jesiel

    Ele roda sem problema, o validar que eu comento é por exemplo um diretorio que o mesmo deveria limpar...
    E eu tenho que deixar como False mesmo ou com True

    Obrigado.
    segunda-feira, 31 de agosto de 2009 16:44