Obtener el nombre del PC

Hace poco, el amigo Victor Fajardo, me planteaba una duda respecto a como se podía determinar el nombre de la máquina, es decir, el nombre del PC, que utiliza un usuario de una red (por ejemplo de la red de la oficina), al abrir un fichero de excel que es de uso compartido de todos los usuarios que forman parte de la red. Esta pregunta había surgido, al hilo del artículo donde explicaba como dar permisos a diferentes usuarios de un mismo fichero excel. La verdad es que no tenía ni idea de cómo determinar el nombre de la máquina (el nombre del usuario era bien sencillo), así que le dije la verdad: "Victor, no tengo la más remota idea de cómo determinar el nombre del equipo". Él, después de investigar en la red, al final dio con una solución, y me la hizo llegar por email.

Siento no poder deciros quien es el autor de esta rutina que os presento, porque sinceramente desconozco quien es el autor, pero bueno, de todas formas, como es posible que os sea de utilidad, pues aquí os la dejo. La primera opción, es presentarla como una función:

Private Declare Function GetComputerName Lib "kernel32" _ Alias "GetComputerNameA" (ByVal lpBuffer As String, nSize As Long) As Long Public Declare Function GetUserName Lib "advapi32.dll" _ Alias "GetUserNameA" (ByVal lpBuffer As String, nSize As Long) As Long Function NombreComputadora() As String Dim rString As String * 255, sLen As Long, tString As String tString = "" On Error Resume Next sLen = GetComputerName(rString, 255) sLen = InStr(1, rString, Chr(0)) If sLen > 0 Then tString = Left(rString, sLen - 1) Else tString = rString End If On Error GoTo 0 NombreComputadora = UCase(Trim(tString)) End Function

Podemos llamar a la función desde excel, escribiendo esto en cualquier celda:

=NombreComputadora()

Y nos aparecerá el nombre del PC que ha ejecutado esa función personalizada. También podemos llamar a la función desde un macro, por ejemplo, de la siguiente forma:

Sub NombredelPC() 'Mostramos un mensaje MsgBox ("El nombre del PC es: " & NombreComputadora) End Sub

Al ejecutar ese macro, nos aparecerá un bonito MsgBox que nos informará del nombre de la máquina que está ejecutando ese macro.

Si lo preferimos, podemos usar esta rutina como un macro convencional, en lugar de usarlo como una función, modificando ligeramente el código, y añadiendo al final del mismo, la línea correspondiente al MsgBox:

Private Declare Function GetComputerName Lib "kernel32" _ Alias "GetComputerNameA" (ByVal lpBuffer As String, nSize As Long) As Long Public Declare Function GetUserName Lib "advapi32.dll" _ Alias "GetUserNameA" (ByVal lpBuffer As String, nSize As Long) As Long Sub NombreComputadora() Dim rString As String * 255, sLen As Long, tString As String tString = "" On Error Resume Next sLen = GetComputerName(rString, 255) sLen = InStr(1, rString, Chr(0)) If sLen > 0 Then tString = Left(rString, sLen - 1) Else tString = rString End If On Error GoTo 0 nombrePC = UCase(Trim(tString)) MsgBox ("El nombre del PC es: " & nombrePC) End Sub

Con esta utilidad, ya tenemos las dos cosas básicas para determinar el usuario que está trabajando con el fichero compartido:

a) El nombre del PC que está trabajando con el fichero de excel, y que se determina con el código que hemos visto en este artículo.

b) El nombre del usuario de la red, es decir, el nombre con el que el usuario hace login en el dominio de la red. Esto está explicado en el artículo que mencionaba en el enlace incluido al principio de estE artículo, y que te recomiendo leer. Si no te apetece leerlo, prueba esta sencilla rutina:

Sub NombreDelUsuario() 'Mostramos un mensaje MsgBox ("El nombre del usuario de la red es: " & Application.UserName) End Sub

Una observación final: Si estás ejecutando estos dos macros (nombre del PC y nombre del usuario), en modo monopuesto (sin estar "logueado" en una red), es muy probable que obtengas el mismo nombre de máquina y de usuario.