vba获取计算机本地连接mac地址,VBA获取U盘、主板、CPU序列号和网卡MAC地址

'方法1

Sub Auto_Open()

On Error Resume Next

Set fs = CreateObject("Scripting.FileSystemObject")

StrDrive = "B,C,D,E,F,G,H,I,J,K,L,M,N,O,P,Q,R,S,T,U,V,W,X,Y,Z"

StrDriveArray = Split(StrDrive, ",")

For StartPos = 1 To UBound(StrDriveArray)

Set d = fs.GetDrive(fs.GetDriveName(fs.GetAbsolutePathName(StrDriveArray(StartPos) & ":\\")))

If d.DriveType = 1 Then

s = d.SerialNumber

Exit For

End If

Next

If s <> "" Then

Range("Sheet1!d8") = s

Else

Range("Sheet1!d8") = "系统未检测到U盘！"

End If

Set d = Nothing

Set fs = Nothing

Call QueryOther

End Sub

'方法2

Sub DetectUdisk()

On Error Resume Next

Set objWMIService = GetO