none
Script VBS remover Teamviewer RRS feed

  • Pergunta

  • Prezados,

    Estou com uma demanda aqui, no qual preciso remover todos os teamviewer instalados nas maquinas.

    Tentei criar um script VBS para rodar através do PSEXEC, mas não está funcionando.

    Retorna erro dizendo que  não encontrou o caminho especificado.

    O caminho do uninstaler é este:

    programfiles(x86)%\TeamViewer\uninstall.exe /S

    Segue o código:

    Set objWshShell = WScript.CreateObject("WScript.Shell")
    Set objFSO = CreateObject("Scripting.FileSystemObject")

    strProgramFiles = objWshShell.ExpandEnvironmentStrings("%PROGRAMFILES%")
    strProgramFiles86 = objWshShell.ExpandEnvironmentStrings("%programfiles(x86)%")

    If objFSO.FileExists (strProgramFiles86 & "\TeamViewer\uninstall.exe") Then
    strUninstall = strProgramFiles86 & "\TeamViewer\uninstall.exe"" /S"
    WScript.Echo strUninstall
    objWshShell.Run strUninstall,0,false
    End If

    Alguem poderia me ajudar?


    Sou Livre !

    quinta-feira, 28 de abril de 2016 14:00

Respostas

  • Consegui resolver o problema.

    Peguei o script em um site.

    Segue o script funcionando:

    Dim objShell
    Set objShell = WScript.CreateObject( "WScript.Shell" )
    objShell.Run "taskkill /im teamviewer.exe", , True
    Teamviewer
    Sub Teamviewer()
        On Error Resume Next
        objShell.Run("""%programfiles(x86)%\TeamViewer\Version6\uninstall.exe"" /S")
        objShell.Run("""%programfiles(x86)%\TeamViewer\Version7\uninstall.exe"" /S")
        objShell.Run("""%programfiles(x86)%\TeamViewer\Version8\uninstall.exe"" /S")
        objShell.Run("""%programfiles(x86)%\TeamViewer\Version9\uninstall.exe"" /S")
    objShell.Run("""%programfiles(x86)%\TeamViewer\uninstall.exe"" /S")
    End Sub


    Sou Livre !

    • Marcado como Resposta ricardoclaus segunda-feira, 2 de maio de 2016 19:06
    segunda-feira, 2 de maio de 2016 19:06

Todas as Respostas

  • Consegui resolver o problema.

    Peguei o script em um site.

    Segue o script funcionando:

    Dim objShell
    Set objShell = WScript.CreateObject( "WScript.Shell" )
    objShell.Run "taskkill /im teamviewer.exe", , True
    Teamviewer
    Sub Teamviewer()
        On Error Resume Next
        objShell.Run("""%programfiles(x86)%\TeamViewer\Version6\uninstall.exe"" /S")
        objShell.Run("""%programfiles(x86)%\TeamViewer\Version7\uninstall.exe"" /S")
        objShell.Run("""%programfiles(x86)%\TeamViewer\Version8\uninstall.exe"" /S")
        objShell.Run("""%programfiles(x86)%\TeamViewer\Version9\uninstall.exe"" /S")
    objShell.Run("""%programfiles(x86)%\TeamViewer\uninstall.exe"" /S")
    End Sub


    Sou Livre !

    • Marcado como Resposta ricardoclaus segunda-feira, 2 de maio de 2016 19:06
    segunda-feira, 2 de maio de 2016 19:06
  • thanks alot, ive tested a few scripts online but youre was the only one that is actually working without errors 

    thannks!

    quinta-feira, 26 de setembro de 2019 06:02