Ao programar com VBScript, você pode precisar de ler uma variável de ambiente . Isso pode ser feito acessando o host de scripts do Windows usando o VBScript e fazendo uso do objeto shell. A melhor maneira de saber como acessar as variáveis ​​de ambiente é com um exemplo do mundo real que orienta os passos . Coisas que você precisa
Computer Fotografia (Windows 98 ou mais recente)
Show Mais instruções
1

Crie uma variável de ambiente do usuário. Clique no orbe do Windows no canto inferior esquerdo da sua área de trabalho para abrir o menu Iniciar. Clique com o botão direito do mouse em "Computador" e clique em " Propriedades do Sistema ". Clique em " Configurações avançadas do sistema ". Uma janela de diálogo será aberta. Clique no botão " Variáveis ​​de ambiente " no canto inferior direito. Clique em " Novo" , logo abaixo Variáveis ​​de usuário . Digite "teste" no campo " Nome da variável " " e digite seu nome no campo" Valor da variável " . Clique no botão " OK " na parte inferior da janela.
2

bloco de notas aberto , clicando em " Iniciar" e digite " notepad" na caixa de pesquisa . Clique no aplicativo quando ele aparece nos resultados de busca acima. Crie um novo documento e salvá-lo como "C: \\ temp \\ ReadEnvVar.vbs " .
3

Copie e cole o seguinte código no bloco de notas :

opção explícita

'Declare VariablesDim WshShl , Shell, USERVAR

' Definir objectsSet WshShl = WScript.CreateObject ( " WScript.Shell" ) Set Shell = WshShl.Environment ("Usuário" )

' Ler variableUserVar = Shell ( "Test")

' valor de saída para msgboxWScript.Echo "Seu nome é " & USERVAR & " ! "

' Limpeza ObjectsSet WshShl = NothingSet Shell = Nada

' Exit ScriptWScript.Quit ()
4

Salve o arquivo e saia do Notepad .
5

Run o script. Navegue até "C: \\ temp \\ ReadEnvVar.vbs " e clique duas vezes no arquivo. Uma caixa de mensagem deve aparecer exibindo o seu nome. Selecione "OK".
6

Leia uma variável de ambiente do sistema , substituindo esta linha em seu script -Set Shell = WshShl.Environment ("Usuário" ) - com a seguinte linha: < br >

Set Shell = WshShl.Environment ( "Sistema" )

Substitua esta linha - USERVAR = Shell ( "Teste" ) - com :

SysVar = Shell ( " inserir variável de sistema que você quer ler aqui " )

Finalmente, substituir esta linha - WScript.Echo" seu nome é "& SysVar &" " - com o seguinte :

WScript.Echo USERVAR
7

Salve o script e saia do Notepad . Agora você tem um VBScript capaz de ler um usuário ou variável de ambiente do sistema.