| Pregunta: | 38745 - OBTENER NOMBRE DE DOMINIO WINDOWS 2000 |
| Autor: | Luis Camargo |
| Como puedo saber a través de un codigo Visual Basic 6.0 el nombre del dominio a la cual esta conectado mi sesión en Windows 2000 (server o Profesional) y Windows NT server 4.0.
Agradesco su ayuda lo más pronto posible, ya que es de suma importancia una respuesta en el menor timepo posible. Gracia...... | |
| Respuesta: | Luis Fernando Camargo |
| Estimados amigos ya hace rato que publique esta pregunta y no recibi ninguna respuesta por parte de este pagina. Pero como esto hace parte de mi trabajo actual, he conseguido una solución que no he comprobado muy bien y ademas de eso es solo para Windows 2000 (Server o Profesional).
En un modulo se declara la siguiente función. 'Desarrollado por Luis camargo'------------------------------------------------------ Public Function NombreDeDominio() Dim sDomain$ Dim oRoot, oDomain 'Dim oRoot As IADs,oDomain As IADs On Error GoTo errhandler Set oRoot = GetObject("LDAP://rootDSE") sDomain = oRoot.Get("defaultNamingContext") NombreDeDominio = sDomain errhandler: On Error Resume Next Set oRoot = Nothing Set oDomain = Nothing End Function '-------------------------------------------------------------------------------- 'Crea un formulario con un botón llamado Command1 y un label llamado label1 y pega el siguiente evento en la ventana de código Private Sub Command1_Click()'------------------------------------------ Label1.Caption = NombreDeDom 'Da el nombre del dominio End Sub'-------------------------------------------------------------------------- Espero les sirva de algo, y si por algún motivo encuentran una mejor o efectiva forma de obtenerlo por favor notificarlo a mi e-mail [email protected] | |