Cómo obtener un identificador de LAN y dominio mediante VBA

Los administradores de sistemas utilizan el lenguaje VBA para automatizar tareas en los equipos de los usuarios. En lugar de configurar cada equipo individualmente , el administrador sólo tiene que ejecutar un archivo durante el proceso de inicio de sesión del usuario. Puede utilizar VBA para identificar el ID de LAN , que es el nombre del equipo , e identificar el nombre de dominio del ordenador. Instrucciones
1

Haga clic en el archivo de inicio de sesión VBA que desea editar y seleccione " Abrir con". Haga clic en " Bloc de notas " en la lista de programas para abrir el editor y el código VBA
2

Añada la siguiente línea de código para recuperar el ID de LAN en el equipo que ejecuta el script de VBA: .

lanid dévil como secuencia

landid = Environ ( " nombreDeEquipo " )
3

Recuperar el nombre completo del equipo y asignar la respuesta a una variable. El código siguiente recupera el nombre de dominio :

dominio Dim As String

domain = Environ ( " UserDomain ")
4

Imprimir los resultados en la pantalla . El código siguiente muestra el ID de LAN y el nombre de dominio en el símbolo del sistema cuando se ejecuta el código VBA :

Debug.Print dominio

Debug.Print lanid
5

Guarde el archivo y haga doble clic en el archivo guardado en el sistema. Haga doble clic en el archivo le permite ejecutar en su sistema para que pueda ver los resultados de los cambios en el código .