Windows Brasil
Nenhum resultado foi localizado
Ver todos os resultados
  • Home
  • Azure
  • Exchange
  • Microsoft Windows
    • Todos
    • Windows 10
    • Windows 7 e Windows 8
    • Windows Server 2008 e R2
    • Windows Server 2012
    • Windows Server 2016
    • Windows Update
    Windows Brasil - Menu Windows Server Core

    Como atualizar o Windows Server Core 2016

    Storage Spaces Direct Calculator

    Windows Brasil

    Aprenda a trocar o servidor DNS para melhorar sua conexão ou contornar hackers

    Flickr

    Novo DNS público promete acelerar à Internet

    Windows Brasil | Appcmd List Backup

    Erro hresult:80070005 usando Appcmd restore backup

    Windows Brasil | Windows 10

    Windows 10 no Snapdragon, bom consumo, mas desempenho decepcionante

    Windows Brasil | Windows 10 Spring Creators

    A instalação do Windows 10 Spring Creators Update levará meia hora

    Windows Brasil

    Erro 0x8004ff01 ao instalar System Center Endpoint Protection

    Windows 10 – Instalando o SSH client

    Windows 10 – Instalando o SSH client

  • Office 365
  • How To
    • Todos
    • Office 365
    • SQL Server
    • Windows
    Instalar module powershell e conectar para o Microsoft Teams

    Adicionar uma segunda conta para o Teams Mobile App

    Sessões do Microsoft Ignite 2018

    OFFICE 365 ROADMAP – De 03-09/02

    Office 365 – Deletando e-mail de todas as mailboxes usando o Content Search

    Office 365 – Restaurando e-mail usando o PowerShell

    Office 365 – Deletando e-mail de todas as mailboxes usando o Content Search

    Office 365 – Deletando e-mail de todas as mailboxes usando o Content Search

    Windows Brasil | SQL Server 2017 no Linux

    Tutorial: Instalando SQL Server 2017 no Ubuntu 16

    Windows Brasil

    Aprenda a trocar o servidor DNS para melhorar sua conexão ou contornar hackers

    Como desativar as alterações de assinatura de e-mail no Outlook Web App

    Como desativar as alterações de assinatura de e-mail no Outlook Web App

    Office 365 configurar restrições de tamanho para enviar e receber mensagens 100 mb

    Office 365 configurar restrições de tamanho para enviar e receber mensagens 100 mb

    Serviço de Análise de Segurança do Office 365

AO VIVO
  • Home
  • Azure
  • Exchange
  • Microsoft Windows
    • Todos
    • Windows 10
    • Windows 7 e Windows 8
    • Windows Server 2008 e R2
    • Windows Server 2012
    • Windows Server 2016
    • Windows Update
    Windows Brasil - Menu Windows Server Core

    Como atualizar o Windows Server Core 2016

    Storage Spaces Direct Calculator

    Windows Brasil

    Aprenda a trocar o servidor DNS para melhorar sua conexão ou contornar hackers

    Flickr

    Novo DNS público promete acelerar à Internet

    Windows Brasil | Appcmd List Backup

    Erro hresult:80070005 usando Appcmd restore backup

    Windows Brasil | Windows 10

    Windows 10 no Snapdragon, bom consumo, mas desempenho decepcionante

    Windows Brasil | Windows 10 Spring Creators

    A instalação do Windows 10 Spring Creators Update levará meia hora

    Windows Brasil

    Erro 0x8004ff01 ao instalar System Center Endpoint Protection

    Windows 10 – Instalando o SSH client

    Windows 10 – Instalando o SSH client

  • Office 365
  • How To
    • Todos
    • Office 365
    • SQL Server
    • Windows
    Instalar module powershell e conectar para o Microsoft Teams

    Adicionar uma segunda conta para o Teams Mobile App

    Sessões do Microsoft Ignite 2018

    OFFICE 365 ROADMAP – De 03-09/02

    Office 365 – Deletando e-mail de todas as mailboxes usando o Content Search

    Office 365 – Restaurando e-mail usando o PowerShell

    Office 365 – Deletando e-mail de todas as mailboxes usando o Content Search

    Office 365 – Deletando e-mail de todas as mailboxes usando o Content Search

    Windows Brasil | SQL Server 2017 no Linux

    Tutorial: Instalando SQL Server 2017 no Ubuntu 16

    Windows Brasil

    Aprenda a trocar o servidor DNS para melhorar sua conexão ou contornar hackers

    Como desativar as alterações de assinatura de e-mail no Outlook Web App

    Como desativar as alterações de assinatura de e-mail no Outlook Web App

    Office 365 configurar restrições de tamanho para enviar e receber mensagens 100 mb

    Office 365 configurar restrições de tamanho para enviar e receber mensagens 100 mb

    Serviço de Análise de Segurança do Office 365

Nenhum resultado foi localizado
Ver todos os resultados
Windows Brasil
Nenhum resultado foi localizado
Ver todos os resultados
Home Scripts

Script – Removendo aplicações por VBS

Marco Antonio por Marco Antonio
05/08/2014
em Scripts
2 min para leitura
0
0
COMPARTILHAMENTOS
1
VISUALIZAÇÕES
Compartilhe no FacebookCompartilhe no Twitter

Olá pessoal,

 

Segue uma dica de como utilizar um script (VBS) para remover uma aplicação.

const HKEY_LOCAL_MACHINE = &H80000002
strComputer = “.”
Set oShell = WScript.CreateObject(“WScript.Shell”)
Set StdOut = WScript.StdOut

Set oReg=GetObject(“winmgmts:{impersonationLevel=impersonate}!\” & strComputer & “rootdefault:StdRegProv”)
strKeyPath = “SoftwareMicrosoftWindowsCurrentVersionUninstall”
err.Clear
oReg.EnumKey HKEY_LOCAL_MACHINE, strKeyPath, arrSubKeys
If err.Number <> 0 Then
StdOut.WriteLine strKeyPath & ” is not a valid registry key path.”
WScript.Quit
End If
For Each subkey In arrSubKeys
strSubKeyPath = strKeyPath & “” & subkey
oReg.EnumValues HKEY_LOCAL_MACHINE, strSubKeyPath, arrValueNames, arrValueTypes
If IsArray(arrValueNames) Then
For Each strValue In arrValueNames
If strValue = “DisplayName” Then
err.Clear
GetValueStatus = oReg.GetExpandedStringValue(HKEY_LOCAL_MACHINE, strSubKeyPath, strValue, strDisplayName)
If (GetValueStatus <> 0) and (err.Number <> 0) Then
StdOut.WriteLine “Key Name: ” & subkey
StdOut.WriteLine ” Error retrieving value data.”
Else
If (InStr(1, strDisplayName, “Microsoft Online Services Sign-in Assistant“, 1) <> 0) AND (InStr(1, strDisplayName, “Microsoft Online Services Sign-in Assistant“, 1) <> 0) Then
StdOut.WriteLine “Key Name: ” & subkey
StdOut.WriteLine ” Application Name: ” & strDisplayName
GetValueStatus = oReg.GetExpandedStringValue _
(HKEY_LOCAL_MACHINE, strSubKeyPath, “DisplayVersion” , strDisplayVersion)
arrAppVersion = Split(strDisplayVersion, “.”)
If arrAppVersion(0) < 8 Then
GetValueStatus = oReg.GetExpandedStringValue _
(HKEY_LOCAL_MACHINE, strSubKeyPath, “UninstallString” , strUninstallString)
If InStr(1, strUninstallString, “msiexec”, 1) <> 0 Then
If InStr(1, strUninstallString, “/I”, 1) <> 0 Then
strUninstallString = Replace(strUninstallString, “/I”, “/X”)
End If
If InStr(1, strUninstallString, “/q”, 1) = 0 Then
strUninstallString = strUninstallString & ” /qn”
End If
If InStr(1, strUninstallString, “restart”, 1) = 0 Then
strUninstallString = strUninstallString & ” /norestart”
End If
End If
StdOut.WriteLine ” Uninstall String: ” & strUninstallString
oShell.Run strUninstallString, 1, True
Else
StdOut.WriteLine ” Current Version Installed.”
End If
End If
End If
End If
Next
End If
Next

 

Microsoft Online Services Sign-in Assistant = Nome do aplicativo para ser removido.

 

Até a próxima,

 

Marco Antonio (Mada)

CompartilharTweetCompartilhar
Artigo anterior

Exchange 2013: Erro -2144108212,PSSessionOpenFailed ao abrir EMS

Próximo artigo

Exibindo pastas ocultas após remover virus.

Relacionados Artigos

Windows Brasil
Scripts

Erro 0x8004ff01 ao instalar System Center Endpoint Protection

19/01/2018
Powershell para ativar Proteção de exclusão acidental em todas OU´s
Scripts

Powershell – Script para testar autenticação by Rodrigo Bonfim

03/03/2017
Powershell para ativar Proteção de exclusão acidental em todas OU´s
Artigos

Powershell para ativar Proteção de exclusão acidental em todas OU´s

20/01/2017
Scripts

[Script] – Resgatando o KEY no Windows Server 2008 R2

10/05/2016
Dicas

WMI Fixer Tool

31/10/2014
Dicas

PowerShell: Exportar lista de grupos para qual um determinado usuário pertence (MemberOf)

27/10/2014
Próximo artigo

Exibindo pastas ocultas após remover virus.

  • 215.8M Fan

Recomendamos

  • All
  • Office 365
  • Office 365
  • Tutoriais
  • Exchange
  • Azure

Download Accelerator Plus: velocidade dos downloads em até 400%

23/03/2009

Microsoft anuncia plano de construir lojas físicas com sua marca

13/02/2009

Office para Notebook

05/03/2009

Faturamento da IBM cresce 10% no 4º tri

16/01/2008

Netbook 2100 da Dell para colégio

20/05/2009

Microsoft atualiza ferramenta para evitar ataques persistentes de worm

15/01/2009
  • Sobre nós
  • Anuncie
  • Política & Privacidade
  • Contato
Nenhum resultado foi localizado
Ver todos os resultados
  • Homepages
    • Home – Layout 1

© 2019 Windows Brasil - Loucos por Tecnologia - Todos os direitos reservados.

Entre na sua conta abaixo

Esqueceu sua Senha? Inscrever-se

Preencha os campos abaixo para se cadastrar

Todos os campos são necessários. Entrar

Recupere sua senha

Por favor, digite seu nome de usuário ou endereço de e-mail para redefinir sua senha.

Entrar
Este site usa cookies. Ao continuar a usar este site, você está dando consentimento para que os cookies sejam usados. Visite nossa Política de Privacidade e Cookies .