** NORMAS DEL FORO **
Inicio del foro Inicio del foro > Access y VBA > Tus Funciones Favoritas & Aportaciones & Artí­culos
  Mensajes nuevos Mensajes nuevos RSS - VBA: Nombre Pc y Usuario
  Preguntas frecuentes Preguntas frecuentes  Buscar en el foro   Eventos   Registro Registro  Iniciar sesion Iniciar sesion

Tema cerradoVBA: Nombre Pc y Usuario

 Responder Responder
Autor
Mensaje
admin Ver desplegable
Administrador
Administrador
Avatar

Unido: 14/Agosto/2013
Localización: Cualquier lugar
Estado: Sin conexión
Puntos: 790
Enlace directo a este mensaje Tema: VBA: Nombre Pc y Usuario
    Enviado: 14/Agosto/2013 a las 14:06
Emilio Sancha y otros 2004

Hoy van dos por el precio de una Smile

Aquí tenéis como obtener el nombre de la máquina en que se está ejecutando el proceso y el del usuario con se ha abierto la sesión, ambas hechas con el nunca bien ponderado Visual Script

'********************************************************************************************

'* Devuelve el nombre del PC en que se está ejecutando

'* uso strNombre = NombrePC

'* ESH 18/12/02 15:06

'********************************************************************************************

 

 

Public Function NombrePC()

  Dim WS As Object

  Set WS = CreateObject("WScript.Network")

  NombrePC = WS.ComputerName

  Set WS = Nothing

End Function            ' NombrePC

 

'********************************************************************************************

'* Devuelve el nombre del usuario que está ejecutando la aplicación

'* uso strUsuario = Usuario

'* ESH 19/12/02 16:30

'********************************************************************************************

 

Public Function Usuario() As String

  Dim WS As Object

  Set WS = CreateObject("WScript.Network")

  Usuario = WS.UserName

  Set WS = Nothing

End Function            ' Usuario

 


Respecto a las funciones que posteas, tambien estas serían equivalentes (Entorno Win XP y similares)

Environ("USERNAME")
Environ("Computername")


Ver todas las funciones de ENVIRON

Option Compare Database

Option Explicit

 

Sub prueba()

  Dim EntCadena, Indice

  Indice = 1

  Do

    EntCadena = Environ(Indice)

    MsgBox EntCadena

    Indice = Indice + 1

  Loop Until EntCadena = ""

 

End Sub

Este codigo nos devolveria los usuarios del dominio

Sub UsuariosEnDominio

 

  Dim oComputer As Object, oUser As Object

  Dim Usuario As String

  Dim wshNetwork As Object 'New wshNetwork

  Dim strComputer As String

 

  Set wshNetwork = CreateObject("WScript.Network")

  Dominio = wshNetwork.UserDomain

 

  ' Nombre del ordenador

  strComputer = Dominio

 

  Set oComputer = GetObject("WinNT://" & strComputer)

 

  oComputer.Filter = Array("User")

 

  ' Leemos el nombre de las cuentas de usuario

  For Each oUser In oComputer

    Usuario = oUser.Name

    MsgBox Usuario

  Next

  Combo1.ListIndex = 0

  Set wshNetwork = Nothing

 

End Sub



Editado por admin - 14/Agosto/2013 a las 14:07
Arriba
 Responder Responder
  Compartir tema   

Ir al foro Permisos de foro Ver desplegable