none
Limpeza de Disco VBS + Shutdown RRS feed

 > 

  • Pergunta

  • Question
    Entrar para Votar
    0
    Entrar para Votar

    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

  • Question
    Entrar para Votar
    0
    Entrar para Votar

    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
    |
  • Question
    Entrar para Votar
    0
    Entrar para Votar 
    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
    |
  • Question
    Entrar para Votar
    0
    Entrar para Votar

    sPasta="D:\Directory" ? aqui eu posso alterar ?

    Isso é só alterar para o diretório desejado

    quarta-feira, 9 de janeiro de 2019 15:56
    |
  • Question
    Entrar para Votar
    0
    Entrar para Votar

    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
    |
  • Question
    Entrar para Votar
    0
    Entrar para Votar

    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
    |
  • Question
    Entrar para Votar
    0
    Entrar para Votar

    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
    |
  • Question
    Entrar para Votar
    0
    Entrar para Votar

    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
    |
  • Question
    Entrar para Votar
    0
    Entrar para Votar 
    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
    |
  • Question
    Entrar para Votar
    0
    Entrar para Votar

    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
    |
  • Question
    Entrar para Votar
    0
    Entrar para Votar

    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
    |
  • Question
    Entrar para Votar
    0
    Entrar para Votar
    Conseguiu validar?
    sábado, 12 de janeiro de 2019 14:07
    |