Código: Selecionar todos
' ==============================================================================
' Script para aplicar GPUPDATE /sync /force sem a intervenção do usuário
' Script retirado do fórum Itbr.org - www.itbr.org
' ==============================================================================
Set objFSO = CreateObject("Scripting.FileSystemObject")
Set objShell = CreateObject("WScript.Shell")
strInputFile = Replace(WScript.ScriptFullName, WScript.ScriptName, "") & "input.txt"
Set objInputFile = objFSO.CreateTextFile(strInputFile, True)
objInputFile.WriteLine "n"
objInputFile.WriteLine "n"
objInputFile.Close
Set objInputFile = Nothing
' Para testar utilize /k e 1, após relizar os testes use /c e 0
strInputFile = objFSO.GetFile(strInputFile).ShortPath
strCommand = "cmd /k gpupdate /sync /force < " & strInputFile objShell.Run strCommand, 1, True objFSO.DeleteFile strInputFile, True Set objFSO = Nothing Set objShell = Nothing
' Esta linha pode ser removida para rodar silenciosamente
MsgBox "Politicas de grupo atualizadas com sucesso."