使用VB6.0如何能取本机的MAC地址很急!!!

Question

使用VB6.0如何能取本机的MAC地址很急!!!

Answer 1

不是有很多吗
http://blog.csdn.net/hot1kang1/archive/2006/03/27/639713.aspx

Answer 2

Private Sub Command1_Click()
Dim oAdapters As Object, oAdapter As Object
On Error Resume Next
Set oAdapters = GetObject("winmgmts:").ExecQuery("SELECT * FROM Win32_NetworkAdapterConfiguration WHERE IPEnabled = True")
For Each oAdapter In oAdapters
MsgBox "MAC ADDRESS:  " & Replace(oAdapter.macaddress, ":", " ")
Exit For
Next
End Sub

Answer 3

用WMI就可以:
http://zhidao.baidu.com/question/50937250.html

Answer 4

画个text1,multiline属性设true,再画个command1,复制粘贴下面的代码Option ExplicitPrivate Sub Command1_Click()
'声明成注释里面的类型应先勾选“工程”-》“引用”里面的“Microsoft WMI Scripting VX.X Library”
On Error Resume Next
Dim sObjTxt As String, oWMINameSpace As Object 'SWbemServices
'Dim ObjSet As SWbemObjectSet, Obj As SWbemObjectEx
Dim ObjSet As Object, Obj As Object
Set oWMINameSpace = GetObject("winmgmts:"): Text1.Text = ""
Set ObjSet = oWMINameSpace.InstancesOf("Win32_NetworkAdapter")
For Each Obj In ObjSet
    sObjTxt = Obj.MACAddress
    If Len(sObjTxt) Then
        Text1.Text = Text1.Text & Obj.Name & vbNewLine & _
                                Obj.MACAddress & vbNewLine
    End If
Next
End Sub

Answer 5

Private Sub Command1_Click() 
   Text1.Text = Replace(MACAddress, ":", "-") 
End Sub Private Function MACAddress() As String 
   Set objs = GetObject("winmgmts:").ExecQuery("SELECT MACAddress " & "FROM Win32_NetworkAdapter " & "WHERE " & "((MACAddress Is Not NULL) " & "AND (Manufacturer   <>   " & "'Microsoft'))") 
   For Each obj In objs 
      MACAddress = obj.MACAddress 
      Exit For 
   Next obj 
End Function 

Answer 6

http://support.microsoft.com/default.aspx?scid=KB;EN-US;Q175472&