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

  • Pergunta

  • 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

  •  

    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

  •  

    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
  • 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