Hello
How to import System.Management to Access 2007 ?
My function
what is wrong?
Function Button1() As String
Dim searcher As New ManagementObjectSearcher
searcher = ManagementObjectSearcher("SELECT * FROM Win32_PhysicalMedia")
Dim kodReturn As String
kodReturn = ""
Dim hdd As ManagementObject
For Each hdd In searcher.Get()
Try
Dim serial As String
serial = HexToString(hdd("SerialNumber").ToString())
Catch ex As Exception
End Try
Exit For
Next hdd
End Function
Please help, thank you