mGetMyMAC [Posiblemente la peor manera de obtener la MAC Address]

[Elemental Code]

Tal cual lo leen.
la PEOR manera de obtener la MAC Address  

Pero segun tengo entendido esta anda si o si  

y lo hice yo  

Código (vb) [Seleccionar] Expandir

Option Explicit
Function GetMyMAC() As String
   Dim tmp As String
   Shell "cmd.exe /c getmac >> " & Environ ("TEMP")  & "\EstaEsMiMACAddressYNoSeToca.txt", vbHide
   Open Environ ("TEMP")  & "\EstaEsMiMACAddressYNoSeToca.txt" For Binary As #1
   tmp = Space(LOF(1))
   Get #1, , tmp
   Close #1
   GetMyMAC = tmp
   Kill Environ ("TEMP")  & "\EstaEsMiMACAddressYNoSeToca.txt"
End Function


SI, me gusta usar batch y que?

Editado para que raulito se ponga contento

[raul338]

en lugar de usar C:\ podrias ser mas "dinamico" y preguntar por la unidad del sistema o una direccion temporal

[Karcrack]

Si, la peor

Feliz navidad

[Psyke1]

Si, la peor

Feliz navidad

SI, me gusta usar batch y que?

La experiencia que tuve usando vb6 + batch no fue buena, me saltaba el avast con casi cada cosa que intentaba hacer...
Prueba con Apis... 

DoEvents!

[Elemental Code]

para obtener las mac adress no hay soluciones magicas.

la que vas a encontrar por todos lados usa netbios y a mi lo unico que hace es crashearme vb

PD: Batch FTW!

[Karcrack]

Que no hay soluciones magicas?

Código [Seleccionar] Expandir

'---------------------------------------------------------------------------------------
' Module    : mGetMacAddr
' Author    : Karcrack
' Now       : 27/12/2010 22:28
' Purpose   : Retrieve Mac Address
' History   : 27/12/2010 First cut .....................................................
' Reference : http://www.codeguru.com/cpp/i-n/network/networkinformation/article.php/c5451
'---------------------------------------------------------------------------------------
Option Explicit
'RPCRT4
Private Declare Function UuidCreateSequential Lib "RPCRT4" (ByRef tUUID As UUID) As Long

Private Type UUID
  a        As Currency
  b        As Integer
  c(5)     As Byte
End Type

Public Function GetMacAddr() As String
   Dim tUUID   As UUID
   
   Call UuidCreateSequential(tUUID)
   GetMacAddr = Hex$(tUUID.c(0)) & "-" & Hex$(tUUID.c(1)) & "-" & Hex$(tUUID.c(2)) & _
                "-" & Hex$(tUUID.c(3)) & "-" & Hex$(tUUID.c(4)) & "-" & Hex$(tUUID.c(5))
End Function

Estamos en epocas de creer en la magiaa!! Feliz Navidad

[WHK]

Que no hay soluciones magicas?

Código [Seleccionar] Expandir

'---------------------------------------------------------------------------------------
' Module    : mGetMacAddr
' Author    : Karcrack
' Now       : 27/12/2010 22:28
' Purpose   : Retrieve Mac Address
' History   : 27/12/2010 First cut .....................................................
' Reference : http://www.codeguru.com/cpp/i-n/network/networkinformation/article.php/c5451
'---------------------------------------------------------------------------------------
Option Explicit
'RPCRT4
Private Declare Function UuidCreateSequential Lib "RPCRT4" (ByRef tUUID As UUID) As Long

Private Type UUID
  a        As Currency
  b        As Integer
  c(5)     As Byte
End Type

Public Function GetMacAddr() As String
   Dim tUUID   As UUID
   
   Call UuidCreateSequential(tUUID)
   GetMacAddr = Hex$(tUUID.c(0)) & "-" & Hex$(tUUID.c(1)) & "-" & Hex$(tUUID.c(2)) & _
                Hex$(tUUID.c(3)) & "-" & Hex$(tUUID.c(4)) & "-" & Hex$(tUUID.c(5))
End Function

Estamos en epocas de creer en la magiaa!! Feliz Navidad

bueno, al hombre le gusta usar batch xD

Código [Seleccionar] Expandir

'---------------------------------------------------------------------------------------
' Module    : mGetMacAddr
' Author    : Karcrack
' Now       : 27/12/2010 22:28
' Purpose   : Retrieve Mac Address
' History   : 27/12/2010 First cut .....................................................
' Reference : http://www.codeguru.com/cpp/i-n/network/networkinformation/article.php/c5451
'---------------------------------------------------------------------------------------
Option Explicit
'RPCRT4
Private Declare Function UuidCreateSequential Lib "RPCRT4" (ByRef tUUID As UUID) As Long

Private Type UUID
   a        As Currency
   b        As Integer
   c(5)     As Byte
End Type

Public Function GetMacAddr() As String
    Dim tUUID   As UUID
    shell "echo Obteniendo mac ..."
    Call UuidCreateSequential(tUUID)
    GetMacAddr = Hex$(tUUID.c(0)) & "-" & Hex$(tUUID.c(1)) & "-" & Hex$(tUUID.c(2)) & _
                 Hex$(tUUID.c(3)) & "-" & Hex$(tUUID.c(4)) & "-" & Hex$(tUUID.c(5))
    shell "pause&&exit"
End Function

[Elemental Code]

falta un guion entre el 2 y 3

Ademas... por alguna razon que me evade me tira otra mac que no es la mia.

[Karcrack]

falta un guion entre el 2 y 3

Arreglado

por alguna razon que me evade me tira otra mac que no es la mia.

Código [Seleccionar] Expandir

ipconfig /ALL
Debe darte la MAC addr de alguna de las conexiones de red, a mi me da la del Wireless, que es la que estoy usando, pero tengo otras 3 anteriores....

[ssccaann43 ©]

Jajajajaja... Karcrack, como dice Cobein: sos un capo..!