Lenguaje de programación Visual Basic Script
Os mostramos este código en Visual Basic Script (VBS) que obtiene el valor de las variables de entorno del sistema. Como ejemplo muestra:
* Username.
* windir.
* COMPUTERNAME.
* SystemDrive.
* USERPROFILE.
Para ejecutar este código es suficiente con copiarlo a un fichero de texto plano (sin formato) y ponerle como extensión "vbs". Haciendo doble clic sobre el fichero se compilará automáticamente.
Esto es válido para sistemas operativos Windows XP, Windows Vista, Windows 2000 Server, Windows Server 2003, Windows Server 2008.
Dim objShell
Dim objVariableEntorno
Set objShell = WScript.CreateObject("WScript.Shell")
Set objVariableEntorno = objShell.Environment("Process")
MsgBox "Nombre de usuario: " & objVariableEntorno("Username") & vbCrlf & _
"Carpeta sistema operativo: " & objVariableEntorno("windir") & vbCrlf & _
"Nombre equipo: " & objVariableEntorno("COMPUTERNAME") & vbCrlf & _
"Unidad del sistema: " & objVariableEntorno("SystemDrive") & vbCrlf & _
"Carpeta del perfil del usuario: " & objVariableEntorno("USERPROFILE")
Devolverá algo así:
---------------------------
---------------------------
Nombre de usuario: fernando alonso
Carpeta sistema operativo: C:\WINDOWS
Nombre equipo: XXX
Unidad del sistema: C:
Carpeta del perfil del usuario: C:\Documents and Settings\fernando alonso
---------------------------
Aceptar
---------------------------
Publicado el: 2008-10-29
