Hi,
Add a reference to system.management
Dim moReturn As Management.ManagementObjectCollection
Dim moSearch As Management.ManagementObjectSearcher
Dim mo As Management.ManagementObject
moSearch = New Management.ManagementObjectSearcher("Select * from
Win32_LogicalDisk where MediaType = 12")
moReturn = moSearch.Get
For Each mo In moReturn
Debug.WriteLine(mo("Name") & " " & mo("VolumeSerialNumber"))
Next
Ken
----------------------
"surendra.rajput" <su*************@gmail.com> wrote in message
news:11**********************@g49g2000cwa.googlegr oups.com...
Hi,
can anyone help me with the code or instructions to write a code to
read the HDD sr no and lock my application to this no. for security and
piracy protection of my application.
Thanks a million in advance.
Surendra