Inquiridor
Limpeza de Disco VBS + Shutdown

Pergunta
-
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
-
-
-
-
-
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
-
-
-
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 maquinaNo 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 .
-
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
-