none
Limpeza de Disco VBS + Shutdown RRS feed

  • Pergunta

  • Prezados, boa tarde.

    Como ficaria um script de limpeza de disco após  termino da limpeza o pc desligar ou reiniciar ?

    terça-feira, 8 de janeiro de 2019 17:37

Todas as Respostas

  • Boa tarde,

    Faz um teste com script abaixo

    Set FSo = CreateObject("Scripting.FileSystemObject")
    
    sPasta="D:\Directory"
    
    If FSo.FolderExists(sPasta) Then
    	Apagar_Arquivos(sPasta)
    end if
    
    
    Sub Apagar_Arquivos(Pasta)
    	Set folder = FSO.getFolder(Pasta)
    		For each SubFolder in folder.Subfolders
    			Apagar_Arquivos SubFolder 
    		Next
    		Folder.delete true
    
    End Sub
    
    Dim objShell
    Set objShell = WScript.CreateObject("WScript.Shell")
        objShell.Run "C:\WINDOWS\system32\shutdown.exe -r -t 0", 0, True

    terça-feira, 8 de janeiro de 2019 20:19
  • sPasta="D:\Directory" ? aqui eu posso alterar ?

    Esse script é igual ao do comando cleanmgr ?

    Ele ja vem setado todas as caixa do que eu desejo excluir ?

    quarta-feira, 9 de janeiro de 2019 13:39
  • sPasta="D:\Directory" ? aqui eu posso alterar ?

    Isso é só alterar para o diretório desejado

    quarta-feira, 9 de janeiro de 2019 15:56
  • Carlos, boa tarde.

    Obrigado pela ajuda, consegue pegar o código de Shutdown em vbs .

    Como ficaria o código de limpeza de disco do windows em VBS ? aquele que você marca as caxinhas. 


    quarta-feira, 9 de janeiro de 2019 18:00
  • Oi,

    O script esta em vbs, para testar é só copiar o script para o arquivo em txt e mudar a extensão para VBS.

    A parte da limpeza do disco do windows, não entendi muito bem sua pergunta

    quarta-feira, 9 de janeiro de 2019 18:04
  • Teve uma pergunta semelhante a sua aqui no fórum

    verifica se ajuda o link abaixo

    https://social.technet.microsoft.com/Forums/pt-BR/a0867aea-32a0-4568-86c5-eb45dc191e22/criar-script-para-fazer-limpeza-de-disco-e-deletar-as-atualizacoes-do-windowscwindows-no?forum=winsrv2003pt

     
    quarta-feira, 9 de janeiro de 2019 18:07
  • Vamos lá como ficaria .

    um VBS. assim:

    >> o cogido VBS chama um arquivo .BAT que dentro dele está o comando de limpeza de disco do windows.

    CLEANMGR /sagerun:64

    e após a conclusão da limpeza de disco ele reinicia o pc . 

    quarta-feira, 9 de janeiro de 2019 18:18
  • Dim objShell

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

    objShell.Run"SeuArquivobat.bat" ' Nesta parte do código você informa o bat

    objShell.Run "C:\WINDOWS\system32\shutdown.exe -r -t 0", 0, True 'Nesta parte desliga a maquina

    quarta-feira, 9 de janeiro de 2019 18:38
  • Show amigo.

    montei assim;

    Dim objShell

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

          objShell.Run"cleanmgr /sagerun:64"  ' Nesta parte do código você informa o bat 

          objShell.Run "C:\WINDOWS\system32\shutdown.exe -r -t 0", 0, True  'Nesta parte desliga a maquina

    No comando em negrito é o que executa a limpeza de disco qu eu defini.

    agora como eu coloco um comando que ele somente reiniciar o computador após ele acabar o procedimento de limpeza de disco .

    quarta-feira, 9 de janeiro de 2019 19:15
  • Realizei uns ajuste no script, agora ele vai consultar se processo de limpeza esta ativo, que estiver fechado ele vai desligar a maquina.

    Dim objShell
    
    Set objShell = WScript.CreateObject("WScript.Shell")
    objShell.Run"cleanmgr /sagerun:64" 
    
    strComputer = "."
    
    Processo_Existe = True
    
    While Processo_Existe = True 
         Processo_Existe = ConsultarProcesso()
    Wend 
    
    Function ConsultarProcesso()
       Processo_Existe = False
        
    Set objWMIService = GetObject("winmgmts:" _
    	& "{impersonationLevel=impersonate}!\\" _
    	& strComputer & "\root\cimv2")
    
    Set colProcess = objWMIService.ExecQuery _
    	("Select * from Win32_Process where Name='cleanmgr.exe'")
    		
    	For Each objProcess in colProcess
    		Processo_Existe = True
    		exit for
    	Next
    		
    	If Processo_Existe Then
    	  ConsultarProcesso = True
    	End If 
    
    End Function 
    
    
    objShell.Run "C:\WINDOWS\system32\shutdown.exe -r -t 0", 0, True

    quinta-feira, 10 de janeiro de 2019 03:37
  • Conseguiu validar?
    sábado, 12 de janeiro de 2019 14:07