| Pregunta: | 18540 - CAPTURAR "NOMBRE ESTACION" EN LA RED |
| Autor: | Gengis Leon Garcia |
| Saludos Tengo la necesidad de incluir en mi programa un modulo que me permita identificar el nombre de cada estacion "maquina en red". El asunto es: mi programa en VB6 esta compartido en la red local de un colegio y necesito saber cuando el usuario ingresa al programa. El resultado debe ser asi: Toda la red Tesoreria Supervisor Maquina01 Maquina02 ... etc. gracias a quien de respuesta a mi pregunta Saludos de Trujillo - Peru | |
| Respuesta: | Julio Arango |
| Mira las preguntas contestadas, hay varias respuestas a tu pregunta. Te doy mas ayuda: 'hay una API que te da el nombre del PC: Public Declare Function GetComputerName Lib "kernel32.dll" Alias "GetComputerNameA" (ByVal lpBuffer As String, nSize As Long) As Long 'Luego creas una funcion que utilice esta API 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 'por ultimo invocas la funcion desde cualquier formulario o modulo msgbox gGetComputerName() Espero que te sirva | |