Como pegar a ID ou algo assim da placa mãe?

Olá Criquio;

Amigão, Habilite a referência VBA Microsoft WMI Scripting Library

Num módulo cole;

Public Function IDMotherboard() As String
Dim objs As Object

Dim obj As Object
Dim WMI As Object
Dim sAns As String


Set WMI = GetObject("WinMgmts:")
Set objs = WMI.InstancesOf("Win32_BaseBoard")
For Each obj In objs
sAns = sAns & obj.SerialNumber
If sAns < objs.Count Then sAns = sAns & ","
Next
IDMotherboard = sAns
End Function

Para chamar:
Private Sub Form_Current()
Me.SuaCaixaTexto.Value = IDMotherboard
End Sub

Obrigado amigo JPaulo!
A minha ideia era usar o id da placa mãe como serial para habilitar meus sistemas, pois ela seria a última peça a ser substituída em um pc, sendo que nesse caso o usuário estaria trocando o pc todo por outro, mas muitas das vezes é preciso habilitar a visualização das informações referentes à placa mãe no pc, pois elas costumam vir desabilitadas e nesse caso esse recurso não funcionaria, pois desenvolvi um sistema que, na primeira abertura, já checa o serial do processador e inclui ele em uma tabela e a partir daí toda vez que o bd for aberto, será feita a pesquisa nessa tabela. Se o serial lá gravado for o mesmo do processador do pc, ele abre normalmente o formulário inicial, se não for, significa que copiaram o sistema pra outro pc e aí abre uma janela restrita informando o fato e fechará em seguida. Vou continuar usando o id do processador mesmo em conjunto com mais alguns recursos de segurança.
Inclusive, queria uma opinião sua sobre os sistemas de segurança que você usa e como os implementa.
Grande abraço.

Bom dia Criquio;

Existem mil maneiras de fazer Nestum.

Uma dela que eu costumo utilizar é;

1º Ocultar as tabelas
2º Colocar Password no VBA
3º Desabilitar a tecla Shift
4º Criar um ficheiro txt vazio, e renomeá-lo de (um nome esquisito para não ser fácil de detetar) exemplo: SDHDJABXP.DLL e
descarregue-o em \Windows\system32

Quando o banco abrir, abre um form oculto que cheka assim:

Private Sub Form_Open(Cancel As Integer)
If Len(Dir("C:\Windows\System32\SDHDJABXP.DLL")) Then
DoCmd.OpenForm "frmPrincipal", acNormal, "", "", , acNormal
Else
MsgBox "Copia inválida, o sistema vai fechar..."
Application.Quit
End If
End Sub


Ainda podemos criar uma tabela de nome:

TabelaSerial

Com um campo de nome:

IdentificacaoHD

Colocar esta função num módulo protegido:

Function NumeroSerieUnidadesHD()
Dim ObjetoWMI As Object
Dim UnidadHD As Object
Dim UnidadesHD As Object
Dim rst As Recordset
Dim db As Database
On Error Resume Next
DoCmd.RunSQL "DELETE TabelaSerial.* FROM TabelaSerial"

Set db = CurrentDb
Set rst = db.OpenRecordset("TabelaSerial")
Set ObjetoWMI = GetObject("WINMGMTS:")
Set UnidadesHD = ObjetoWMI.InstancesOf("Win32_PhysicalMedia")

For Each UnidadHD In UnidadesHD
With rst
.AddNew
!IdentificacaoHD = Trim(UnidadHD.SerialNumber)
.Update
End With
Next
rst.Close
End Function

Saber antecipadamente o numero de serie e chekar com o que foi introduzido na tabela.

Beleza JPaulo. Creio que podemos ainda criar um arquivo oculto e deixar na pasta System com algum texto dentro e programar o bd para checar se o arquivo está lá e se tem o texto exigido nesse arquivo, se possível, tudo criptografado.
Existem muitas possibilidades que, combinadas, tornam a vida dos metidos a espertos bem mais complicadas na hora de tentar burlar o sistema.
Claro que tem gente com conhecimentos suficientes para burlar a maioria dos métodos, mas creio que esses não precisariam burlar esses métodos, pois eles tem capacidade de criar seus próprios sistemas de maneira que os atendam melhor, não é verdade? rsrsrs.

Aqui
http://www.speedyshare.com/files/21454580/Ler_HD.mdb

Assis poste novamente seu exemplo, ou Criquio vc pode enviar o exemplo de como não abrir o form caso o serial seja de outra placa mãe?

Abraços

Public Function MostraIDPlacaMae() As String
Dim objs As Object
Dim obj As Object
Dim WMI As Object
Dim sAns As String

Set WMI = GetObject("WinMgmts:")
Set objs = WMI.InstancesOf("Win32_BaseBoard")
For Each obj In objs
sAns = sAns & obj.SerialNumber
If sAns < objs.Count Then sAns = sAns & ","
Next
MostraIDPlacaMae = sAns
End Function

Bom dia Paulão, valeus, vou testar aqui depois dou retorno!!

Paulo, bom dia, seguinte, o valor fica assim:

xxxxxxxxxxx

é normal?

Tambem recebi esses caracteres no lugar do serial da mainboard. Pelo que sei, a placa mãe vem configurada para não ter acesso ao serial, por questão de segurança. Creio que para ele ser visualizado, será necessário configurarmos isso. Ainda não entrei a fundo na questão, mas acho que vale a pena pesquisar a respeito.

Aqui vai Ler HD

http://www.speedyshare.com/files/22319600/Ler_HD.mdb

Bom dia!
Amigo Jpaulo  implementei esta função mas não esta funcionando preciso que você me ajude  a implementa-la.

Private Sub Form_Current()
If Len(Dir("C:\Windows\System32\protectecc.txt")) Then
DoCmd.OpenForm "frmLogin", acNormal, "", "", , acNormal
Else
MsgBox "Copia inválida, o sistema vai fechar..."
Application.Quit
End If
End Sub

apresenta a mensagem e fecha o o sistema  mesmo com o arquivo protectecc.txt inserido no system32.

Obrigado!

Olá, sei que o tópico é antigo, mas uso da seguinte forma hoje aqui na empresa. Todos os sistemas que desenvolvemos em Access, recebem em sua estrutura de códigos vba, uma rotina para, na primeira vez apenas, após a instalação da aplicação, checar o serial (seja do HD, da Placa Mãe, etc.) e divide ela em duas partes, fazendo um cálculo de conversão de Hexadecimal, para decimal em cada parte, depois multiplicando cada parte por algum número para gerar uma chave. Exemplo: Pega-se a primeira parte e multiplica por 4 e a segunda por 8. Pronto, o sistema exibe esses dois números para o usuário que tem que nos ligar para informarmos a contra-chave. Aqui, nós só dividimos cada parte e transformamos cada uma em Hexadecimal, e devolvemos ao usuário. Ele por usa vez insere no sistema e então o VBA faz a comparação se tudo está correto e libera o sistema. Se ele for copiado para outro equipamento, ele não funcionará até que se tenha a liberação/autorização.

Essa é uma maneira muito simples, mas podemos complicar as coisas, juntando os hexadecimais da Placa Mãe, HD, e outros se quiserem, e fazer uma vinculação online com algum banco de dados de dado MySql Online, para, assim, caso precise, pode trocar a licença de um computador para outro, ou apenas desenvolver um sistema de assinatura de software, ou apenas para liberação remota das aplicações sem necessidade de o cliente entrar em contato. As possibilidades são as nossas próprias imaginações.

Espero ter contribuído, mesmo sem postar nenhuma linha de código. Abraços a todos

Boa tarde

Veja este exemplo

Obrigado pelo seu exemplo Assis, muito bom.