On-screen guidance at the moment of need enables you & your employees to focus on the core, you can now boost your adoption rates swiftly and simply with one easy tool.
Public Function GetDiskSerial() As String Dim WMI As Object Dim wmiCollection As Object Dim wmiMember As Object 'Get the WMI Object Set WMI = GetObject("winmgmts:\\") 'Get a collection of drives Set wmiCollection = WMI.InstancesOf("Win32_PhysicalMedia") For Each wmiMember In wmiCollection GetDiskSerial = Trim(wmiMember.SerialNumber) Exit For Next Set wmiMember = Nothing Set wmiCollection = Nothing Set WMI = Nothing End Function
Add your voice to the tech community where 5M+ people just like you are talking about what matters.
|how can i unlock a picture file that was loaded in a picturebox in visual c#?||4||115|
|How to compare ms sql hashbytes results within vb6||5||98|
|Export PDF Form fields to Access or Excel in Tab order||16||113|
|Collapse and expand table in Word 2010||2||103|