Option Explicit Declare Function GetComputerName Lib "kernel32" Alias _ "GetComputerNameA" (ByVal lpBuffer As String, nSize As Long) As Long Declare Function OemToChar Lib "user32" Alias "OemToCharA" (ByVal _ lpszSrc As String, ByVal lpszDst As String) As Long Declare Function CharToOem Lib "user32" Alias "CharToOemA" (ByVal _ lpszSrc As String, ByVal lpszDst As String) As Long 'Necesita Microsoft WMI Scripting vx.x Library Public Function Procesador() Dim oProcs As SWbemObjectSet, oProc As SWbemObject Set oProcs = GetObject("WINMGMTS:").InstancesOf("Win32_Processor") For Each oProc In oProcs MsgBox "Fabricante: " & oProc.Manufacturer & vbCrLf & _ "Modelo: " & oProc.Name & vbCrLf & _ "Descripcion: " & oProc.Description & vbCrLf & _ "Velocidad: " & oProc.CurrentClockSpeed & vbCrLf & _ "ID: " & oProc.ProcessorID & vbCrLf & _ "ID Unico: " & oProc.UniqueID & vbCrLf & _ "" & vbCrLf & _ "Tu equipo se llama: " & NombrePC, vbInformation + vbOKOnly, "El Búho te informa" Next oProc DoCmd.Quit End Function Function NombrePC() As String Dim Buffer As String Dim Size As Long Dim X As Long Buffer = Space(255) Size = 255 'Asigna Nombre Maquina X = GetComputerName(Buffer, Size) NombrePC = Left$(Buffer, Size) End Function