by Haytham Khalil (1 Submission)
Category: Windows System Services
Difficulty: Beginner
Date Added: Wed 3rd February 2021
Rating: 
(2 Votes)
A simple function to get PC's MAC address
VBcodersPrivate Function GetMACAddress() As String
Dim Devices As Object
Dim Device As Object
Dim Temp As Variant
Dim Info As String
Set Devices = GetObject("winmgmts:").InstancesOf("Win32_NetworkAdapter")
For Each Device In Devices
For Each Temp In Device.Properties_
If Temp.Name = "MACAddress" Then GetMACAddress = CStr(Temp): Exit Function
Next
Next Device
End Function
