VBA - Windows Script Host - Manipulando Configurações

Deixe um comentário, no fim do post

		Windows Script Host - Manipulando Configurações
Canal Qb

O Windows Script Host (WSH) é uma poderosa ferramenta que permite aos usuários automatizar tarefas no ambiente Windows por meio de scripts. Ele oferece a capacidade de criar scripts para executar uma variedade de ações, desde manipulação de arquivos até interações com o Registro do Windows. Hoje, vamos explorar um exemplo de script que demonstra como usar o WSH para manipular configurações do sistema.

O Script em Destaque: Manipulando Configurações

Vamos mergulhar no script que ilustra o uso prático do WSH para manipular configurações do sistema. Este exemplo assume que você possui um conhecimento básico sobre programação e sintaxe VBA.

Sub Manipular_Configuracoes_WSH()

   '... (o conteúdo do script apresentado anteriormente)

End Sub

Passo a Passo da Exploração:

1. Entendendo as Variáveis:

No script, você verá declarações de variáveis, como `wshNetwork`, `wshShell` e `wshEnvironment`. Essas variáveis são objetos que você pode usar para interagir com várias partes do sistema, como a rede, o ambiente e o Registro.

2. Obtendo Informações do Computador:

O script começa obtendo informações sobre o nome de usuário e o nome do computador por meio do objeto `wshNetwork`. Isso pode ser útil para rastrear o contexto em que o script é executado.

3. Adicionando uma Unidade de Rede: 

Se você estiver em uma rede, o script demonstra como adicionar uma unidade de rede utilizando o método `MapNetworkDrive` do objeto `wshNetwork`. Essa etapa pode ser útil para automatizar a conexão com recursos compartilhados em sua rede.

4. Encontrando a Pasta Temporária:

O objeto `wshShell` é utilizado para encontrar a localização da pasta temporária do sistema, que é frequentemente usada para armazenar arquivos temporários durante a execução de programas.

5. Manipulando o Registro: 

O script também demonstra como criar chaves e adicionar valores ao Registro do Windows. O objeto `wshShell` é utilizado para escrever e ler valores no Registro. Tenha em mente que a manipulação do Registro é uma ação delicada e requer cuidado para evitar problemas no sistema.

6. Comentários e Depuração: 

O script contém comentários que explicam as ações realizadas em cada parte do código. Além disso, algumas linhas estão comentadas para permitir a verificação dos resultados antes de realizar alterações permanentes no sistema.

Sub Manipular_Configuracoes_WSH()

   Dim wshNetwork         As Object

   Dim wshShell           As Object

   Dim wshEnvironment     As Object

   'Obter nome do computador e nome de usuário

   Set wshNetwork = CreateObject("WScript.Network")

   MsgBox "Nome de Usuário = " & wshNetwork.UserName

   MsgBox "Nome do Computador = " & wshNetwork.ComputerName

   Set wshNetwork = Nothing

   'Adicionar uma unidade de rede

   Set wshNetwork = CreateObject("WScript.Network")

   wshNetwork.MapNetworkDrive "M:", "\\MeuServidor\C$"

   Set wshNetwork = Nothing

   'Encontrar a pasta temporária

   Set wshShell = CreateObject("WScript.Shell")

   Set wshEnvironment = wshShell.Environment("System")

   MsgBox "A pasta temporária está localizada em " & _

           wshShell.ExpandEnvironmentStrings(wshEnvironment("TEMP"))

   Set wshEnvironment = Nothing

   Set wshShell = Nothing

   'Criar uma chave em HKEY_CURRENT_USER

   'Em seguida, adicionar um valor "Test1" à "MinhaChaveTeste"

   'E adicionar um valor "Test2" à "MinhaChaveTeste"

   Set wshShell = CreateObject("WScript.Shell")

   wshShell.RegWrite "HKCU\MinhaChaveTeste\", "valor inserido pela Chave", "REG_SZ"

   wshShell.RegWrite "HKCU\MinhaChaveTeste\Test1", "Este teste de exemplo funcionou", "REG_SZ"

   wshShell.RegWrite "HKCU\MinhaChaveTeste\Test2", 5, "REG_DWORD"

   

   MsgBox "Os dados do valor 'Padrão' da chave 'MinhaChaveTeste' = " & _

           wshShell.RegRead("HKCU\MinhaChaveTeste\")

   MsgBox "Os dados do valor 'Test1' = " & _

           wshShell.RegRead("HKCU\MinhaChaveTeste\Test1")

   MsgBox "Os dados do valor 'Test2' = " & _

           wshShell.RegRead("HKCU\MinhaChaveTeste\Test2")

   'As 3 linhas de código abaixo estão comentadas

   'para que você possa verificar que a chave, os valores e os dados do Registro foram adicionados.

   'Para excluir essas entradas programaticamente, descomente as 3 linhas

   'wshShell.RegDelete "HKCU\MinhaChaveTeste\Test1"

   'wshShell.RegDelete "HKCU\MinhaChaveTeste\Test2"

   'wshShell.RegDelete "HKCU\MinhaChaveTeste\"

   Set wshShell = Nothing

End Sub

Conclusão:

O exemplo acima é apenas uma pequena amostra das possibilidades que o Windows Script Host oferece. Ao criar seus próprios scripts, você pode automatizar tarefas repetitivas, personalizar configurações do sistema e realizar ações que normalmente exigiriam interações manuais. No entanto, lembre-se sempre de exercer cautela ao manipular configurações do sistema, para evitar problemas não desejados.

Aproveite o WSH para simplificar suas tarefas e aumentar sua produtividade no ambiente Windows. Se você quiser explorar mais a fundo o WSH, há uma ampla documentação disponível online para ajudá-lo a aprender e aprimorar suas habilidades de scripting.