none
Criando script para desativar firewall do windows 7 32/64bits RRS feed

 > 

  • Pergunta

  • Question
    Entrar para Votar
    0
    Entrar para Votar

    Boa noite, pessoal gostaria de uma ajuda estou criando um script VBS para desabilitar o firewall do windows 7 para poder instalar alguns programas que o sistema bloqueia, não precisando abrir o painel de controle abaixo segue o código que criei e o erro que acontece ao executar o procedimento.

    Set oShell = WScript.CreateObject("WScript.Shell")

    'Para o Serviço MpsSvc

    oShell.Run ("cmd /c Net stop MpsSvc")

    'Desabilita o serviço MpsSvc

    oShell.Run ("cmd /c sc config ""MpsSvc"" start= disabled") msgbox "feito"

    Erro ao executar

    script C:\Users\e-machines\Desktop\Desable-firewall.vbs

    Linha: 9

    Caract: 60

    Erro: Fim da instrução esperado

    Código 800A0401

    Origem: Erro de compilação do Microsft VBScript

    domingo, 10 de novembro de 2013 00:11
    |

Respostas

  • Question
    Entrar para Votar
    0
    Entrar para Votar

    Na sua última linha tem dois comandos na mesma linha, tente assim:

    Set oShell = WScript.CreateObject("WScript.Shell")

'Para o Serviço MpsSvc
oShell.Run ("cmd /c Net stop MpsSvc")

'Desabilita o serviço MpsSvc
oShell.Run ("cmd /c sc config ""MpsSvc"" start= disabled")

msgbox "feito"

    Fábio de Paula Junior

    domingo, 10 de novembro de 2013 23:06
    |
    Moderador
  • Question
    Entrar para Votar
    0
    Entrar para Votar

    Boa tarde, Fabio funcionou os dois só fiquei com um problema o de desabilitar o Firewall não deixa habilitar novamente mudeis os parâmetro de desabilited coloquei active porem não funcionou aguardo resposta.

    • Marcado como Resposta Ribamar28 sexta-feira, 15 de novembro de 2013 03:32
    quinta-feira, 14 de novembro de 2013 18:48
    |

Todas as Respostas

  • Question
    Entrar para Votar
    0
    Entrar para Votar

    Na sua última linha tem dois comandos na mesma linha, tente assim:

    Set oShell = WScript.CreateObject("WScript.Shell")

'Para o Serviço MpsSvc
oShell.Run ("cmd /c Net stop MpsSvc")

'Desabilita o serviço MpsSvc
oShell.Run ("cmd /c sc config ""MpsSvc"" start= disabled")

msgbox "feito"

    Fábio de Paula Junior

    domingo, 10 de novembro de 2013 23:06
    |
    Moderador
  • Question
    Entrar para Votar
    0
    Entrar para Votar

    Boa tarde, Fabio funcionou os dois só fiquei com um problema o de desabilitar o Firewall não deixa habilitar novamente mudeis os parâmetro de desabilited coloquei active porem não funcionou aguardo resposta.

    • Marcado como Resposta Ribamar28 sexta-feira, 15 de novembro de 2013 03:32
    quinta-feira, 14 de novembro de 2013 18:48
    |
  • Question
    Entrar para Votar
    0
    Entrar para Votar
    Não entendi.

    Fábio de Paula Junior

    quinta-feira, 14 de novembro de 2013 19:28
    |
    Moderador