Cómo leer una variable de entorno de usuario /sistema mediante VBScript

Al programar con VBScript, puede que tenga que leer una variable de entorno . Esto se puede lograr mediante el acceso a la Windows Script Host utilizando VBScript y haciendo uso del objeto cáscara . La mejor manera de aprender cómo acceder a variables de entorno es un ejemplo del mundo real que le guiará por los pasos. Cosas que necesitará
equipo con Windows ( 98 o superior)
Ver Más instrucciones
1

Crear una variable de entorno de usuario . Haga clic en el orbe de Windows en la esquina inferior izquierda de su escritorio para abrir el menú Inicio. Haga clic derecho en "Equipo" y luego haga clic en " Propiedades del Sistema ". Haga clic en " Configuración avanzada del sistema . " Una ventana de diálogo se abre. Haga clic en el botón " Variables de entorno " en la esquina inferior derecha. Haga clic en " Nuevo" justo debajo de Variables de usuario . Escriba "test" en el campo " Nombre de variable " "y escriba su nombre en el campo" Valor de variable " . Haga clic en el botón " OK" en la parte inferior de la ventana.
2

Abrir Bloc de notas , haga clic en "Inicio" y escriba " notepad" en el buscador . Haga clic en la aplicación que aparece en los resultados de búsqueda anteriores. Crear un nuevo documento y guardarlo como "C: \\ Temp \\ ReadEnvVar.vbs " .
3

Copia y pega el siguiente código en el Bloc de notas :

Opción explícita

'Declarar VariablesDim WshShl , Shell , USERVAR

' Set objectsSet WshShl = WScript.CreateObject ( " WScript.Shell ") Set Shell = WshShl.Environment ("Usuario" )

' Leer variableUserVar = Shell ( "Test" )

' valor de salida para msgboxWScript.Echo " Su nombre es" & USERVAR & " ! "

' Cleanup ObjectsSet WshShl = NothingSet Shell = Nothing

' ScriptWScript.Quit Salir ()
4

Guarde el archivo y salga el Bloc de notas .
5

Run el guión. Vaya a "C: \\ Temp \\ ReadEnvVar.vbs " y haga doble clic en el archivo . Un cuadro de mensaje debería aparecer mostrando su nombre . Seleccione " Aceptar".
6

Leer una variable de entorno del sistema mediante la sustitución de esta línea en su script -Set Shell = WshShl.Environment ("Usuario ") - con la siguiente línea :

Set Shell = WshShl.Environment ( "Sistema")

Reemplace esta línea - USERVAR = Shell ( "Test" ) - con:

SysVar = Shell ( " Insertar variable de sistema que desea leer aquí " )

Finalmente , reemplace esta línea - WScript.Echo " Su nombre es "& SysVar &" " - con lo siguiente :

WScript.Echo USERVAR
7

Guardar la secuencia de comandos y salida Bloc de notas. Ahora tiene un VBScript capaz de leer un usuario o una variable de entorno del sistema .