Necesito un ocx
Hola
Amigo necesito un ocx que me devuelva el nombre de la maquina.
¿Me puedes ayuda?
Amigo necesito un ocx que me devuelva el nombre de la maquina.
¿Me puedes ayuda?
Respuesta de leosoft
1
No hace falta un OCX para eso, lo puedes hacer desde API.
Copia esto en el procedimiento general del formulario:
Private Const MAX_COMPUTERNAME_LENGTH As Long = 31
Private Declare Function GetComputerName Lib "kernel32" Alias "GetComputerNameA" (ByVal lpBuffer As String, nSize As Long) As Long
Function NombreMaquina() As String
Dim dwLen As Long
Dim strString As String
dwLen = MAX_COMPUTERNAME_LENGTH + 1
strString = String(dwLen, "X")
GetComputerName strString, dwLen
strString = Left(strString, dwLen)
NombreMaquina = strString
End Function
ahora lo utilizas asi:
Text1.Text = NombreMaquina
Y listo, eso te entregara el nombre de la maquina.
Copia esto en el procedimiento general del formulario:
Private Const MAX_COMPUTERNAME_LENGTH As Long = 31
Private Declare Function GetComputerName Lib "kernel32" Alias "GetComputerNameA" (ByVal lpBuffer As String, nSize As Long) As Long
Function NombreMaquina() As String
Dim dwLen As Long
Dim strString As String
dwLen = MAX_COMPUTERNAME_LENGTH + 1
strString = String(dwLen, "X")
GetComputerName strString, dwLen
strString = Left(strString, dwLen)
NombreMaquina = strString
End Function
ahora lo utilizas asi:
Text1.Text = NombreMaquina
Y listo, eso te entregara el nombre de la maquina.
