Conocer el nombre del ordenador

Este API devuelve el nombre del ordenador en el que se esta ejecutando nuestro programa, además el código de ejemplo devuelve el nombre del usuario actual del ordenador.

Option Explicit
Private Declare Function GetComputerName Lib "kernel32" Alias "GetComputerNameA" (ByVal lpBuffer As String, _
             nSize As Long) As Long
Function Ordenador() As String
    Dim Nombre As String * 255, Respuesta As Long, Longitud as Long, Res As Long

    ' Crea Buffer
    Nombre = ""
    Longitud = Len(Nombre)
    Res = GetComputerName(Nombre, Longitud)
    If Res And Longitud > 0 Then
        Ordenador = Left$(Nombre, Longitud)
    Else
        Ordenador = "No encontrado"
    End If
End Function
Private Sub Form_Load()
    MsgBox(Ordenador)
End Sub

Publicado en es.comp.lenguajes.visual-basic

Anuncios

Responder

Introduce tus datos o haz clic en un icono para iniciar sesión:

Logo de WordPress.com

Estás comentando usando tu cuenta de WordPress.com. Cerrar sesión /  Cambiar )

Google photo

Estás comentando usando tu cuenta de Google. Cerrar sesión /  Cambiar )

Imagen de Twitter

Estás comentando usando tu cuenta de Twitter. Cerrar sesión /  Cambiar )

Foto de Facebook

Estás comentando usando tu cuenta de Facebook. Cerrar sesión /  Cambiar )

Conectando a %s