vba mac地址

Sub test2()
Dim  Str$, Arr, N&, I&, FN$
FN = ThisWorkbook.Path &  " \IpInfo.txt "   ' 设定输出临时文件位置
With  CreateObject( " wscript.shell ")
    .Run  Environ( " comspec ") &  "  /c ipconfig /all>"" " & FN &  " "" ",  0,  1   ' 利用WSH对象隐藏执行命令行命令并输出到文件中,等待执行完成后才继续执行后续代码
End  With
With  CreateObject( " scripting.filesystemobject ").opentextfile(FN)   ' 利用FSO项目打开临时文件读取内容后关闭
     Str = .readall
    .Close
End  With
Kill FN   ' 删除临时文件
Arr =  Split( Str, vbNewLine)   ' 将读取到的内容放入数组
N =  1   ' 初始化行号
For I =  LBound(Arr)  To  UBound(Arr)   ' 循环数组各项
     If  LCase(Arr(I)) Like  " *physical address*:* "  Then   ' 如果含有物理地址关键字,则
        Cells(N,  1) =  Trim( Split(Arr(I),  " : ")( 1))   ' 提取出物理地址放入当前循环到的单元格中
        N = N +  1   ' 下移一行
     ElseIf  LCase(Arr(I)) Like  " *description*:* "  Then    ' 如果含有网卡信息关键字,则
        Cells(N,  1) =  Trim( Split(Arr(I),  " : ")( 1))   ' 提取网卡信息放入当前循环到的单元格中
        N = N +  1   ' 下移一行
     End  If
Next I
End Sub

转载于:https://www.cnblogs.com/iserich/archive/2012/07/26/2610068.html