none
alterar variáveis de ambiente RRS feed

Respostas

  • Olá,

    Segue abaixo o script:

         Set objShell = WScript.CreateObject("WScript.Shell")
         Set objFSO = CreateObject("Scripting.FileSystemObject")
        
         Set objFolder = objFSO.CreateFolder("C:\temp")    
        
         ' PARA CRIAR VARIAVEI DE USUARIO
         Set colSystemEnvVars = objShell.Environment("User")     
         colSystemEnvVars("Variavel") = "c:\temp"
         
         ' PARA CRIAR VARIAVEL DE SISTEMA
         Set colSystemEnvVars = objShell.Environment("system")     
         colSystemEnvVars("Variavel") = "c:\temp"


    Faça os testes e nos retorne.

    Até mais,

    Jesiel

    Obs.: Se útil, classifique
    quarta-feira, 8 de abril de 2009 20:23

Todas as Respostas

  • Olá,

    Segue abaixo o script:

         Set objShell = WScript.CreateObject("WScript.Shell")
         Set objFSO = CreateObject("Scripting.FileSystemObject")
        
         Set objFolder = objFSO.CreateFolder("C:\temp")    
        
         ' PARA CRIAR VARIAVEI DE USUARIO
         Set colSystemEnvVars = objShell.Environment("User")     
         colSystemEnvVars("Variavel") = "c:\temp"
         
         ' PARA CRIAR VARIAVEL DE SISTEMA
         Set colSystemEnvVars = objShell.Environment("system")     
         colSystemEnvVars("Variavel") = "c:\temp"


    Faça os testes e nos retorne.

    Até mais,

    Jesiel

    Obs.: Se útil, classifique
    quarta-feira, 8 de abril de 2009 20:23
  • Gostaria de saber, se tem algum script que crie a pasta c:\temp e altere as variáveis de ambiente para esse caminho.

    Legal era isso que eu precisava mesmo, só que assim, se já tiver a pasta c:\temp, dá uma mensagem que a pasta já existe e não altera as varia'veis, preciso colocar antes um comando para deletar a pasta temp.
    quinta-feira, 9 de abril de 2009 12:12
  • Legal era isso que eu precisava mesmo, só que assim, se já tiver a pasta c:\temp, dá uma mensagem que a pasta já existe e não altera as varia'veis, preciso colocar antes um comando para deletar a pasta temp.
    quinta-feira, 9 de abril de 2009 12:13
  • Olá,

    Desculpe, eu não validei se a pasta existe. Segue agora corrigido:

         Set objShell = WScript.CreateObject("WScript.Shell")
         Set objFSO = CreateObject("Scripting.FileSystemObject")
         If (objFSO.FolderExists("c:\temp") = False) Then
            Set objFolder = objFSO.CreateFolder("C:\temp") 
         End if 
       
         ' PARA CRIAR VARIAVEI DE USUARIO
         Set colSystemEnvVars = objShell.Environment("User")    
         colSystemEnvVars("Variavel") = "c:\temp"
        
         ' PARA CRIAR VARIAVEL DE SISTEMA
         Set colSystemEnvVars = objShell.Environment("system")    
         colSystemEnvVars("Variavel") = "c:\temp"


    Até mais,

    Jesiel

    Obs.: Se útil, classifique
    quinta-feira, 9 de abril de 2009 12:24
  • legal agora funcionou perfeito
    Muito obrigado amigo
    quinta-feira, 9 de abril de 2009 14:09
  • Bacana...

    Precisando estamos aí.

    Até mais,

    Jesiel
    quinta-feira, 9 de abril de 2009 14:12
  • Olá,

    Desculpe, eu não validei se a pasta existe. Segue agora corrigido:

         Set objShell = WScript.CreateObject("WScript.Shell")
         Set objFSO = CreateObject("Scripting.FileSystemObject")
         If (objFSO.FolderExists("c:\temp") = False) Then
            Set objFolder = objFSO.CreateFolder("C:\temp") 
         End if 
       
         ' PARA CRIAR VARIAVEI DE USUARIO
         Set colSystemEnvVars = objShell.Environment("User")    
         colSystemEnvVars("Variavel") = "c:\temp"
        
         ' PARA CRIAR VARIAVEL DE SISTEMA
         Set colSystemEnvVars = objShell.Environment("system")    
         colSystemEnvVars("Variavel") = "c:\temp"


    Até mais,

    Jesiel

    Obs.: Se útil, classifique


    Olá,

    Sem querer abusar da boa vontade, existe alguma maneira de criar essa pasta como oculta?

     

    Agradeço desde já

    segunda-feira, 22 de março de 2010 13:05
  • Olá,

    Para ocultar a pasta utilize:

     


    Set objFolder = objFSO.GetFolder("C:\temp")

    If objFolder.Attributes = objFolder.Attributes AND 2 Then
        objFolder.Attributes = objFolder.Attributes XOR 2
    End If

     

    Até mais,

    Jesiel

    Obs.: Se útil, classifique

     

     

    terça-feira, 23 de março de 2010 15:03
  • Olá Jesiel,

     

    Funcionou direitinho... 

    Muito obrigado mais uma vez, já está classificado

    quarta-feira, 7 de abril de 2010 16:42
  • Olá Jesiel,

     

    Funcionou direitinho... 

    Muito obrigado mais uma vez, já está classificado.

    quarta-feira, 7 de abril de 2010 16:42