ivan_lopes

Olá... Bom dia... Por gentileza gostaria de criar um arquivo; para automatizar os seguintes comandos no PowerShell: Get-AppxPackage *YourPhone* | Remove-AppxPackage Get-AppxPackage *Appinstaller* | Remove-AppxPackage Get-AppxPackage *StorePurchaseApp* | Remove-AppxPackage Get-AppxPackage *gethelp* | Remove-AppxPackage Get-AppxPackage *Print3D* | Remove-AppxPackage Get-AppxPackage *windowsmaps* | Remove-AppxPackage Get-AppxPackage *MicrosoftSolitaireCollection* | Remove-AppxPackage Get-AppxPackage *officehub* | Remove-AppxPackage Get-AppxPackage *bingweather* | Remove-AppxPackage Get-AppxPackage *Microsoft.SkypeApp* | Remove-AppxPackage Get-AppxPackage *Wallet* | Remove-AppxPackage Get-AppxPackage *ZuneMusic* | Remove-AppxPackage Get-AppxPackage *OneConnect* | Remove-AppxPackage Get-AppxPackage *WindowsAlarms* | Remove-AppxPackage Get-AppxPackage *windowscommunicationsapps* | Remove-AppxPackage Get-AppxPackage *WindowsCamera* | Remove-AppxPackage Get-AppxPackage *Messaging* | Remove-AppxPackage Get-AppxPackage *soundrecorder* | Remove-AppxPackage Get-AppxPackage *MSPaint* | Remove-AppxPackage Get-AppxPackage *OneNote* | Remove-AppxPackage Get-AppxPackage *WindowsFeedbackHub* | Remove-AppxPackage cls 'Exibir mensagem Aplicativos removidos com sucesso! pause exit Alguém poderia por gentileza me ajudar?

Boa tarde... Caros por gentileza, venho enfrentando dificuldades na implementação do código abaixo. Alguém poderia informar qual caminho devo proceder para reparar esse erro: Segue codigo: '=============================================================================== '=============================================================================== Dim BD As New ADODB.Connection Dim RS As New ADODB.Recordset Dim SQL As String Dim CS As String Dim VT As String Dim VP As String Dim VL As String Dim G As Worksheet Dim Tempo As Date Dim Data As Date Sub Inserir() With Application .DisplayAlerts = False .ScreenUpdating = False CS = "Provider=Microsoft.ACE.OLEDB.12.0;" & _ "Data Source = C:\Users\Anonymous\Documents\Gerenciamento de Risco\Banco de Dados\BD_Dados.accdb" Set G = Sheets("Gerenciamento") G.Select G.Unprotect Data = G.Range("U49").Value Tempo = Time VT = G.Range("K26").Value VP = G.Range("B25").Value VL = G.Range("U25").Value 'Código SQL para INSERIR dados no BD SQL = "INSERT Into BD_Dados (BD_Historico.Data, BD_Historico.Hora, BD_Historico.[Valor do Trader], " _ & "BD_Historico.[Valor da Perca], BD_Historico.[Valor do Lucro]) VALUES " & _ "(" & Format(Data, "mm/dd/yyyy") & ", " & _ " " & Format(Tempo, "hh:mm:ss") & ", " & _ " " & VT & ", " & _ " " & VP & ", " & _ " " & VL & "" Stop 'Abre a conexão BD.Open CS RS.Open SQL, BD 'Fecha todas as conexões Set RS = Nothing con.Close Set cn = Nothing Set G = Nothing End With End Sub '=========================================================================================================== '=========================================================================================================== Salientando: Na janela de verificação imediata me retorna os valores correspondentes as informações da planilha: ? sql INSERT Into BD_Dados (BD_Historico.Data, BD_Historico.Hora, BD_Historico.[Valor do Trader], BD_Historico.[Valor da Perca], BD_Historico.[Valor do Lucro]) VALUES (05/05/2020, 13:54:53, 10, 0, 0 Banco de Dados: BD_Dados Tabela: BD_Historico Desde já antecipo meus agradecimentos

Problema resolvido segue link do artigo detalhado: https://www.tecmundo.com.br/segurança/23796-windows-como-bloquear-sites-por-meio-do-arquivo-de-hosts.htm

Consegui bloquear o hostname alterando um arquivo chamado Host que se encontra em: C:\Windows\System32\drivers\etc Estou fazendo alguns teste... Se realmente funcionar, volto depois...

Navegante nesse link não ficou claro como bloquear o Host apenas como bloquear IP... E bloquear um IP normal consegui criar... não consigo criar uma regra para esse Host: eur-anubis-gsg023:44743...

Bom dia Navegante. Obrigado por sua atenção. No caso para fazer o bloqueio no S.O, Windows 10 como devo proceder, de quais informações vocês precisam?

Caros por gentileza alguém pode informar como posso criar uma regra para bloquear esse IP: eur-anubis-gsg023:44743 Certo de poder contar com sua eventual atenção. Antecipo meus agradecimentos. Atenciosamente; Ivan Lopes