none
modificar registro via vbs RRS feed

  • Pergunta

  • Gurus da info

    Ajudai este pobre mortal....

    A situação eh a seguinte: Gostaria de modificar uma chave de registro no Windows atravez de arquivo.vbs

    Hoje realizo via arquivo.reg utilizando o seguinte codigo :

    REGEDIT4

    [HKEY_LOCAL_MACHINE\Software\CIM-Team\E3.series\10.0\]
    "Language"="55"

    Como efetuar esse mesmo registro atraves de script

    Desde já agradeço a colaboração!

     

    quarta-feira, 5 de maio de 2010 17:48

Respostas

  • Segue script.

    Const HKEY_LOCAL_MACHINE = &H80000002

    strComputer = "."

    Set objRegistry = GetObject("winmgmts:\\" & strComputer & "\root\default:StdRegProv")

    strKeyPath = "Software\CIM-Team\E3.series\10.0\"

    strValueName = "Language"
    strValue = "55"
    objRegistry.SetStringValue HKEY_LOCAL_MACHINE, strKeyPath, strValueName, strValue

    Abraço.


    Gabriel Nascimento MCP / MCSA / CCNA http://gabrielnascimentoit.spaces.live.com -- Se for útil vote.
    • Marcado como Resposta jovir quarta-feira, 5 de maio de 2010 20:05
    quarta-feira, 5 de maio de 2010 20:01

Todas as Respostas

  • Faça o seguinte, salve esse seu arquivo como .reg, exemplo Language.Reg e salve esse código abaixo como .vbs.

    Set objShell = CreateObject("Wscript.Shell")
    objShell.Run "regedit /s \\servidor\share\Language.reg",hidden

    Se for útil vote e qualquer dúvida poste.

    Abraço.


    Gabriel Nascimento MCP / MCSA / CCNA http://gabrielnascimentoit.spaces.live.com -- Se for útil vote.
    quarta-feira, 5 de maio de 2010 17:53
  • Gabriel

    Blza?

    + vamos considerar q eu naum tenha o arquivo.reg. Vc saberia me dizer como realizar esta operação usando serviços do wvbs?

     

     

    quarta-feira, 5 de maio de 2010 17:59
  • Só confirme no regedit qual o tipo dessa entrada Language, se é DWORD, REG_SZ.

    Mas teste com esse script, deve funcionar.

    Const HKEY_LOCAL_MACHINE = &H80000002

    strKeyPath = "Software\CIM-Team\E3.series\10.0\"

    strValueName = "Language"
    strValue = "55"
    objRegistry.SetStringValue HKEY_LOCAL_MACHINE, strKeyPath, strValueName, strValue

    Abraço.


    Gabriel Nascimento MCP / MCSA / CCNA http://gabrielnascimentoit.spaces.live.com -- Se for útil vote.
    quarta-feira, 5 de maio de 2010 18:06
  • Gabriel

    Meu camaradinha...vamos esclarecer algumas informações...

    Primeiramente respondendo sua perguta: Tipo REG_SZ

    O script ñ rodou, deu erro de sintaxe

    Mais...esclare p mim....pq "& H80000002"?

    quarta-feira, 5 de maio de 2010 18:25
  • Cara, esse número hexa decimal está relacionado ao LOCAL_MACHINE, e para no script ficar mais fácil de entender criamos uma constante com o nome mais amigavel.

    Teste esse script, tinha esquecido de uma linha.

    Const HKEY_LOCAL_MACHINE = &H80000002

    Set objRegistry = GetObject("winmgmts:\\" & strComputer & "\root\default:StdRegProv")

    strKeyPath = "Software\CIM-Team\E3.series\10.0\"

    strValueName = "Language"
    strValue = "55"
    objRegistry.SetStringValue HKEY_LOCAL_MACHINE, strKeyPath, strValueName, strValue

    Abraço.


    Gabriel Nascimento MCP / MCSA / CCNA http://gabrielnascimentoit.spaces.live.com -- Se for útil vote.
    quarta-feira, 5 de maio de 2010 18:29
  • Cara naum rolou....alguma outra proposta?

     

    ERRO:

    Script:  C:\....

    Linha: 2

    Caract: 1

    Erro: 0x80041021

    Codigo: 80041021

    Origem: (null)

    quarta-feira, 5 de maio de 2010 19:46
  • Segue script.

    Const HKEY_LOCAL_MACHINE = &H80000002

    strComputer = "."

    Set objRegistry = GetObject("winmgmts:\\" & strComputer & "\root\default:StdRegProv")

    strKeyPath = "Software\CIM-Team\E3.series\10.0\"

    strValueName = "Language"
    strValue = "55"
    objRegistry.SetStringValue HKEY_LOCAL_MACHINE, strKeyPath, strValueName, strValue

    Abraço.


    Gabriel Nascimento MCP / MCSA / CCNA http://gabrielnascimentoit.spaces.live.com -- Se for útil vote.
    • Marcado como Resposta jovir quarta-feira, 5 de maio de 2010 20:05
    quarta-feira, 5 de maio de 2010 20:01
  • Agora SIM!

    Congratulations

    VLW MEU PARCEIRINHO!

    quarta-feira, 5 de maio de 2010 20:06
  • Olá, eu tenho a mesma necessidade, mas eu preciso editar 3 chaves e caso elas não existam ele crie-as.

    Podem me ajudar ?

    segunda-feira, 26 de outubro de 2015 16:28