none
VBS para adicionar item ao path e um item ao registro RRS feed

 > 

  • Pergunta

  • Question
    Entrar para Votar
    0
    Entrar para Votar
    Srs. Boa tarde,

    Pesquisei no forum e não encontrei, poderiam  me informar  um modelo de script ou uma referencia  para adicionar um item ao path do windows e depois executar um arquivo .reg.

    obrigado antecipadamente.
    terça-feira, 19 de dezembro de 2006 16:14
    |

Respostas

  • Question
    Entrar para Votar
    0
    Entrar para Votar

     

    Roanito,

    Segue um exemplo para adicionar um caminho a variavel path e por ultimo adicionar entradas no registro.

     

    Set WSHShell = CreateObject("Wscript.Shell")

     

    'alterando o Path +++++++++++++++++++
    Set objVarAmbiente = WSHShell.Environment("USER") 'Poderia ser SYSTEM,VOLATILE ou PROCESS ou USER(vou estar alterando o path somente deste usuário, para todos deve-se usar o SYSTEM-depende de permissão apropriada)

    strAddPath="c:\"

    strAddPath=lcase(strAddPath) & ";"


    if instr(lcase(objVarAmbiente("Path")),strAddPath)=0 then 'Verifica se não existe no Path
     objVarAmbiente("Path")=objVarAmbiente("Path") & strAddPath
    end if

    '++++++++++++++++++

    'Escrevendo no registro

    'Metodo 1 - (como o seu arquivo .reg deve ter várias entradas então vc teria que colocar uma linha para cada entrada)
    WSHShell.RegWrite "HKLM\Software\Teste\DataNasc","01/01/1980"

    'Metodo 2
    WSHShell.Run "regedit /s c:\seu.reg",0

    quarta-feira, 20 de dezembro de 2006 13:31
    |
    Moderador

Todas as Respostas

  • Question
    Entrar para Votar
    0
    Entrar para Votar

     

    Roanito,

    Segue um exemplo para adicionar um caminho a variavel path e por ultimo adicionar entradas no registro.

     

    Set WSHShell = CreateObject("Wscript.Shell")

     

    'alterando o Path +++++++++++++++++++
    Set objVarAmbiente = WSHShell.Environment("USER") 'Poderia ser SYSTEM,VOLATILE ou PROCESS ou USER(vou estar alterando o path somente deste usuário, para todos deve-se usar o SYSTEM-depende de permissão apropriada)

    strAddPath="c:\"

    strAddPath=lcase(strAddPath) & ";"


    if instr(lcase(objVarAmbiente("Path")),strAddPath)=0 then 'Verifica se não existe no Path
     objVarAmbiente("Path")=objVarAmbiente("Path") & strAddPath
    end if

    '++++++++++++++++++

    'Escrevendo no registro

    'Metodo 1 - (como o seu arquivo .reg deve ter várias entradas então vc teria que colocar uma linha para cada entrada)
    WSHShell.RegWrite "HKLM\Software\Teste\DataNasc","01/01/1980"

    'Metodo 2
    WSHShell.Run "regedit /s c:\seu.reg",0

    quarta-feira, 20 de dezembro de 2006 13:31
    |
    Moderador
  • Question
    Entrar para Votar
    0
    Entrar para Votar
    Amigo muito  obrigado foi muito util.
    Não estava encontrando a propriedade de adicionar a variavel de ambiente...

    Ficou otimo


    Boas festas
    quarta-feira, 20 de dezembro de 2006 15:54
    |