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