none
Script para chave de registro e arquivo RRS feed

  • Pergunta

  • Boa tarde,

    estou tentando fazer um script vbs para deletar algumas chaves de registro e no mesmo script deletar 2 arquivos de dentro da pasta windows, alguem teria alguma sugestão?

    Para tentar deletar a chave estou usando o script abaixo mas ele não deleta, consigo fazer isto com reg delete via uma bat, mas queria fazer isto via um vbs.

    set objShell = WScript.CreateObject("Wscript.Shell")
    Err.Clear
     On Error Resume Next
    objShell.RegDelete "HKEY_LOCAL_MACHINE\SOFTWARE\Classes\CLSID\{BB4C402F-882A-4526-8C08-51278EA437C1}"
    objShell.RegDelete "HKEY_LOCAL_MACHINE\SOFTWARE\Classes\CLSID\{BB4C402F-882A-8C08-4526-51278EA437C1}"
    objShell.RegDelete "HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\CurrentVersion\Explorer\ShellExecuteHooks\{BB4C402F-882A-4526-8C08-51278EA437C1}"

    Abraço
    Paul
    quinta-feira, 9 de julho de 2009 19:23

Respostas

  • Olá,

    Faça o teste usando o script abaixo:


    Const HKEY_LOCAL_MACHINE = &H80000002

    strComputer = "."
     
    Set oReg=GetObject("winmgmts:{impersonationLevel=impersonate}!\\" & _
        strComputer & "\root\default:StdRegProv")
     
    strKeyPath1 = "SOFTWARE\Classes\CLSID\{BB4C402F-882A-4526-8C08-51278EA437C1}"
    strKeyPath2 = "SOFTWARE\Classes\CLSID\{BB4C402F-882A-8C08-4526-51278EA437C1}"
    strKeyPath3 = "SOFTWARE\Microsoft\Windows\CurrentVersion\Explorer\ShellExecuteHooks\{BB4C402F-882A-4526-8C08-51278EA437C1}"
     

    oReg.DeleteKey HKEY_LOCAL_MACHINE, strKeyPath1
    oReg.DeleteKey HKEY_LOCAL_MACHINE, strKeyPath2
    oReg.DeleteKey HKEY_LOCAL_MACHINE, strKeyPath3


    Faça os testes e nos retorne.

    Até mais,

    Jesiel

    Obs.: Se útil, classifique
    • Marcado como Resposta Paul Dhb terça-feira, 14 de julho de 2009 16:31
    sexta-feira, 10 de julho de 2009 13:23

Todas as Respostas

  • Olá,

    Faça o teste usando o script abaixo:


    Const HKEY_LOCAL_MACHINE = &H80000002

    strComputer = "."
     
    Set oReg=GetObject("winmgmts:{impersonationLevel=impersonate}!\\" & _
        strComputer & "\root\default:StdRegProv")
     
    strKeyPath1 = "SOFTWARE\Classes\CLSID\{BB4C402F-882A-4526-8C08-51278EA437C1}"
    strKeyPath2 = "SOFTWARE\Classes\CLSID\{BB4C402F-882A-8C08-4526-51278EA437C1}"
    strKeyPath3 = "SOFTWARE\Microsoft\Windows\CurrentVersion\Explorer\ShellExecuteHooks\{BB4C402F-882A-4526-8C08-51278EA437C1}"
     

    oReg.DeleteKey HKEY_LOCAL_MACHINE, strKeyPath1
    oReg.DeleteKey HKEY_LOCAL_MACHINE, strKeyPath2
    oReg.DeleteKey HKEY_LOCAL_MACHINE, strKeyPath3


    Faça os testes e nos retorne.

    Até mais,

    Jesiel

    Obs.: Se útil, classifique
    • Marcado como Resposta Paul Dhb terça-feira, 14 de julho de 2009 16:31
    sexta-feira, 10 de julho de 2009 13:23
  • Beleza esta funcionando
    Paul
    terça-feira, 14 de julho de 2009 16:29