Get pc serial

Whing Dela Cruz
Whing Dela Cruz used Ask the Experts™
on
Hi, Experts, I got a code from google that would be able to get serial number of the HD, and this work only on Windows Xp. I wish to revise the codeHDSLN-Demo.zip that would work also on  Windows 7 and 10. Is there anyone who can help me please.
Comment
Watch Question

Do more with

Expert Office
EXPERT OFFICE® is a registered trademark of EXPERTS EXCHANGE®
GrahamSkanRetired
Top Expert 2012
Commented:
It works on my Windows 10 system, but you have to answer the User Account Control message that comes up when you start VB6. If this is bypassed in any way a blank serial number is returned.
Test your restores, not your backups...
Top Expert 2016
Commented:
Try this at a command line and see if this is the serial number you want (there are a number of "serial numbers" often referenced with regards to disk drives on Windows).

wmic diskdrive get serialnumber


»bp
Bill PrewTest your restores, not your backups...
Top Expert 2016
Commented:
And if you just need to know what they are, this is a great little freeware GUI tool for that...



»bp
Roy CoxGroup Finance Manager
Commented:
Try this

Sub GetSerialNumber()
    Dim oFSO   As Object
    Dim drive  As Object

    Set oFSO = CreateObject("Scripting.FileSystemObject")
    Set drive = oFSO.GetDrive("C:\")
    MsgBox drive.SerialNumber

    Set oFSO = Nothing
    Set drive = Nothing
    'release memory

End Sub

Open in new window

Bill PrewTest your restores, not your backups...
Top Expert 2016

Commented:
Just to clarify, Roy's example will fetch the same serial number that the command line DIR shows, just in decimal rather than hex format.  That's not the same as the hardware serial number, but it really depends on what you are looking for.  They are different but valid depending on that...


»bp

Do more with

Expert Office
Submit tech questions to Ask the Experts™ at any time to receive solutions, advice, and new ideas from leading industry professionals.

Start 7-Day Free Trial