PORQUE ESTA ROTINA NAO FUNCIONA ?

GUTO 27/04/2007 17:38:30
#214123
Hummmmm caraca , volta tudo 00 00 00 00 00 00

em um exemplo que eu uso o WMI ele pega um numero tipo esse que eu falei pra tu 00:40:07:04:08:0E.....agora nessa rotina ele ta retornando tudo zero
HUGOSSOUZA 27/04/2007 17:53:06
#214127
pq vc não usa o exemplo do wmi para pegar o numero?
vc precisa mesmo dessa outra rotina?


aqui comigo as 2 funcionou sem problema nenhum.. =)
a unica difereça é que joguei tudo em um módulo...
GUTO 27/04/2007 18:01:42
#214129
eu tentei usar a outra funcao mas mesmo assim nao retorna acho que to fazendo errado fiz tipo isso, um exemplo

Private Function getWMI_Info()
  Dim oAdapters As Object
  Dim oAdapter As Object

  ' Errorhandler aktivieren
  On Error GoTo Fehler_WMI
  
  ' List of Network Adapter with IP-Adress
  Set oAdapters = GetObject("winmgmts:").execquery( _
    "SELECT * FROM Win32_NetworkAdapterConfiguration WHERE IPEnabled = True")

For Each oAdapter In oAdapters

    With oAdapter
      ' MAC-Adress
      'List1.AddItem "MAC:" & vbTab & vbTab & .MACAddress
    MsgBox Replace(oAdapter.MACAddress, ":", " 0")
     
    End With
  Next
  On Error GoTo 0
  Exit Function

Fehler_WMI:
  MsgBox "Error: " & Err.Number & vbTab & Err.Description, vbCritical
  Resume Next
End Function



e no load eu puis isso

If getWMI_Info <> "00 040 0A7 004 008 00E" Then

MsgBox "Computador Não Identificado, Sua Entrada no Sistema não será Permitida."
Unload Me
End If


mas nao da certo tambem
HUGOSSOUZA 27/04/2007 18:08:12
#214130
testa esse exemplo
GUTO 27/04/2007 18:20:11
#214132
POw Meu agora funcionou que é uma beleza cara, muito obrigado irmao
HUGOSSOUZA 27/04/2007 18:22:15
#214134
que bom...
só não esqueça de encerrar o tópico.. =)
GUTO 27/04/2007 18:22:56
#214135
esqueço nao, essa valew
Página 2 de 2 [17 registro(s)]
Tópico encerrado , respostas não são mais permitidas
Voltar