Salve o codigo abaixo com a extensao .pyObs: E necessario tem o python instalado na maquina.#!/usr/bin/env pythonimport os;os.system("gpupdate /force");O codigo abaixo faz a mesma coisa porem utilizando o VBscript da Microsoft.Obs: Nao e necessario instalar o VBscript ele e nativo dos sistemas Windows.set Objescreve = createobject ("wscript.shell")objescreve.run "cmd.exe"wscript.sleep 200objescreve.sendkeys "gpupdate /force"objescreve.sendkeys "{enter}"Salve o arquivo com a extensao .vbsE isso ai pessoal, espero ter ajudado. egrep -v "^#|^$" squid.conf.original > squid.conf #!/bin/bash#Arquivo criado para deletar arquivos com a extensao .exe .cmd .bat .pif .aa .js .vbs .src .inf#Criado por Milton Caetano Filho deleta_software(){cd /home/software;rm -f [a-zA-Z0-9]*.exe *.cmd *.bat *.pif *.inf *.com *.src *.vbs *.js *.aa;}deleta_programacao(){cd /home/programacao;rm -f [a-zA-Z0-9]*.exe *.cmd *.bat *.pif *.inf *.com *.src *.vbs *.js *.aa;}deleta_softwaredeleta_programacao Option ExplicitDim objFSO, objLogFile, objNetwork, objShell, strText, intAns, strComputer, objWMIServiceDim intConstants, intTimeout, strTitle, intCount, blnLog, IPconfigSet, Ipconfig, IPDim strUserName, strComputerName, strIP, strShare, strLogFileDim fso, sf, StrNewConst ForAppending = 8Set fso = CreateObject("Scripting.FileSystemObject")strComputer = "."strShare = "\\SeuServidor\SuaPastaCompartilhada\"strLogFile = "logonoff.txt"intTimeout = 20Set objWMIService = GetObject("winmgmts:" _& "{impersonationLevel=impersonate}!\\" & strComputer & "\root\cimv2")Set objFSO = CreateObject("Scripting.FileSystemObject")Set objNetwork = CreateObject("Wscript.Network")Set objShell = CreateObject("Wscript.Shell")Set IPConfigSet = objWMIService.ExecQuery _("Select * from Win32_NetworkAdapterConfiguration Where IPEnabled=TRUE")strUserName = objNetwork.UserNamestrComputerName = objNetwork.ComputerName'For Each IPConfig in IPConfigSet' If Not IsNull(IPConfig.IPAddress) Then ' For i=LBound(IPConfig.IPAddress) to UBound(IPConfig.IPAddress)' IP = IPConfig.IPAddress(i) ' Next' End If'NextIf objFSO.FolderExists(strShare) ThenOn Error Resume NextSet objLogFile = objFSO.OpenTextFile(strShare & "\" & strLogFile, 8, True, 0)If Err.Number = 0 ThenintCount = 1blnLog = FalseDo Until intCount = 3objLogFile.WriteLine "Logon " & Now & " " & strComputerName & " " & strUserName '& " com o ip " & IP'If Err.Number = 0 ThenintCount = 3blnLog = TrueElseErr.ClearintCount = intCount + 1If Wscript.Version > 5 ThenWscript.Sleep 200End IfEnd IfLoop' On Error GoTo 0End IfEnd IfDim fa, fb, f, s, OpSysSet, iSet objFSO = NothingSet objNetwork = NothingSet objShell = NothingWscript.QuitPara capturar o logon salve o codigo acima com o nome logon.vbs e para logoff salve como logoff.vbsNa maquina local clica no menu: iniciar > executar: Em seguida digite:gpedit.mscLogo apos va em configuracoes de usuario e selecione Script de Logon/LogoffAo lado direito ira aparecer dois campos Logon/Logoff clica com o botao direito va em propriedades, em seguida selecione o script na pasta de Logon e Logon.Onde SeuServidor\SuaPastaCompartilhada deve ser substituido por uma pasta na rede compartilhada ou local.Obs: Altere a linha 44 referente A mensagem de gravacaopara Logoff. #!/bin/bash# AUTOR MILTON CAETANO FILHO# ESTE SCRIPT INCLUI UMA DETERMINADA SEQUENCIA DE ENDERECOS IPS NO ARQUIVO DE BLOQUEIO DO SQUID# O MESMO FACILITA A INCLUSAO AUTOMATICA SEM QUE SEJA NECESSARIO DIGITAR MANUALMENTE# CONSTANTES DO SISTEMA DEVEM SER ALTERADAS DE ACORDO COM A SUA NECESSIDADE# NESTE CASO PRECISAMOS ISOLAR O IP 167.3.1.243 ATE O IP 167.3.2.26, OS DEMAIS IP NAO DEVEM CONSTAR NA LISTA DE BLOQUEIOIPS (){# IP INICIAL 167.3.1.242 IP FINAL 167.3.2.26ip="167.3.1.";ip2="167.3.2.";x=242;y=12;x1=0;y1=26;INSERE; }INSERE (){for ((i=1;i<=y;i++)) do echo $ip$(($x+i)) >> /etc/squid/ips_bloqueados.txt;donefor ((j=1;j<=y1;j++)) do echo $ip2$(($x1+j)) >> /etc/squid/ips_bloqueados.txt; done }IPS; Este exemplo a conta admin para abrir o NotepadPara maiores informacoes consulte a sintaxe do comando runas "runas ?"Option explicitDim oShellset oShell= Wscript.CreateObject("WScript.Shell")oShell.Run "runas /noprofile /user:seudominio\seuusuario ""notepad"WScript.Sleep 100' Nao retire o til "~"oShell.Sendkeys "suasenha~"Wscript.QuitObs: Salve o arquivo com a extensao .vbs