[Resolvido]Ajuda com exemplo do Criquio

Bon dia.
Alguém possui o exemplo postado neste endereço:
https://www.maximoaccess.com/t1103-registro-de-aplicativos-por-email

O link esta quebrado a Muito tempo. E não tenho visto o Mestre Criquio a Muito tempo por aqui.

Ou a função de como descobrir o número do processador.

Aguardo.

Obrigado

Ola;

Existem muitos trecho de código para isso.

Veja se este funfa;

Código:

Sub ProcessorInfo()
Dim cimv2, PInfo, PItem
Dim PubStrComputer As String
PubStrComputer = "."
Set cimv2 = GetObject("winmgmts:\\" & PubStrComputer & "\root\cimv2")
Set PInfo = cimv2.ExecQuery("Select * From Win32_Processor")
For Each PItem In PInfo
        MsgBox ("Processor: " & PItem.Name & vbCrLf & "Id: " & PItem.ProcessorId)
Next PItem
End Sub

Funcionou J Paulo.
Obrigado.
Abs

Fico feliz.

Obrigado pelo retorno o forum agradece.

Em anexo o exemplo do Críquio.
Para futuros download.
Abs

Obrigado pela recuperação.

Administração repôs o link no tópico original.