| Pregunta: | 49317 - SABER DE QUE ESTACION SE CONECTAN |
| Autor: | Huginho |
| Hola, quisiera que me ayuden en algo: estoy haciendo una aplicacion cliente/servidor, en la cual utilizo para hacer mi conexion un nombre de Servidor, Usuario y una contraseña, ahora lo que quisiera hacer es saber de que estacion se conectan a mi base de datos, determinando que si se hace algun cambio a la misma, sabria que usuario hizo el cambio .... | |
| Respuesta: | Eddy M. Sanchez |
| Saludos, solo seguir las siguientes instrucciones:
1.- Colocar en tu modulo de VB debajo de 'option explicit' este codigo: Public Declare Function GetComputerName Lib "kernel32.dll" Alias "GetComputerNameA" (ByVal lpBuffer As String, nSize As Long) As Long 2.- Colocar este codigo en tu modulo: Public Function gGetComputerName() Dim strCom As String, sBuff As String * 25, lRet As Long lRet = GetComputerName(ByVal sBuff, 25) strCom = Trim(Left(sBuff, InStr(sBuff, Chr(0)) - 1)) gGetComputerName = strCom End Function 3.- y en cualquier lugar donde desees saber la estacion llamas la funcion: Ej: NombreEquipo_x = gGetComputerName() donde "NombreEquipo_x" es una variable tipo 'string'. Espero te sea de ayuda, bendiciones. | |