If this is your first visit, be sure to check out the FAQ by clicking the link above. You may have to register before you can post: click the register link above to proceed. To start viewing messages, select the forum that you want to visit from the selection below. |
|
|
Thread Tools | Rate Thread | Display Modes |
#1
|
|||
|
|||
SSDs serial No in BIOS.
|
Ads |
#2
|
|||
|
|||
SSDs serial No in BIOS.
On Sun, 18 Mar 2018 15:44:01 +1100, Peter Jason wrote:
I've just cloned my System SSD to a new one because of the endless "run CHKDSK" flags in the RHS notification panel. I bought the same brand & size as the old one, a "Samsunh 850 EVO". In the BIOS there seems to be no way to tell these apart, no serial numbers or other properties. How is one to tell them apart? I had to go to disk management and see which had the "offline" disabled, then shutting down and unplugging the old SSD & starting all up again. All seems well now; but we'll see. |
#3
|
|||
|
|||
SSDs serial No in BIOS.
"Peter Jason" wrote in message
... I've not seen the serial number in a legacy BIOS but under the Boot menu, it will list the model. If it's a UEFI or hybrid UEFI/BIOS then it just may be listed in there. But if your are just trying to get the serial number to avoid tearing the system down, there are a number of free programs such as Speccy from Piriform ( https://www.ccleaner.com/speccy/download ). -- Bob S. |
#4
|
|||
|
|||
SSDs serial No in BIOS.
On Sun, 18 Mar 2018 15:44:01 +1100, Peter Jason wrote:
I've just cloned my System SSD to a new one because of the endless "run CHKDSK" flags in the RHS notification panel. I bought the same brand & size as the old one, a "Samsunh 850 EVO". In the BIOS there seems to be no way to tell these apart, no serial numbers or other properties. How is one to tell them apart? I had to go to disk management and see which had the "offline" disabled, then shutting down and unplugging the old SSD & starting all up again. All seems well now; but we'll see. Save this script to a file named "DiskDriveInfo.vbs", then double-click it to get info for every drive on your machine. strComputer = "." Set objWMIService = GetObject("winmgmts:\\" & strComputer & "\root\CIMV2") Set colItems = objWMIService.ExecQuery( _ "SELECT * FROM Win32_LogicalDisk",,48) For Each objItem in colItems Wscript.Echo "-----------------------------------" Wscript.Echo "Win32_LogicalDisk instance" Wscript.Echo "-----------------------------------" Wscript.Echo "Caption: " & objItem.Caption Wscript.Echo "Description: " & objItem.Description Wscript.Echo "VolumeSerialNumber: " & objItem.VolumeSerialNumber Next -- Garry Free usenet access at http://www.eternal-september.org Classic VB Users Regroup! comp.lang.basic.visual.misc microsoft.public.vb.general.discussion |
#5
|
|||
|
|||
SSDs serial No in BIOS.
GS wrote:
Peter Jason wrote: How is one to tell them apart? Wscript.Echo "VolumeSerialNumber: " & objItem.VolumeSerialNumber If they've been cloned, won't they have identical volume serial numbers? from within a cmd.exe window, try wmic.exe diskdrive get serialnumber |
#6
|
|||
|
|||
SSDs serial No in BIOS.
A cleaned up version...
Set objWMIService = GetObject("winmgmts:") Set colItems = objWMIService.ExecQuery("SELECT * FROM Win32_LogicalDisk",,48) For Each objItem in colItems Wscript.Echo "Caption: " & objItem.Caption & vblf _ & "Description: " & objItem.Description & vblf _ & "VolumeSerialNumber: " & objItem.VolumeSerialNumber Next -- Garry Free usenet access at http://www.eternal-september.org Classic VB Users Regroup! comp.lang.basic.visual.misc microsoft.public.vb.general.discussion |
#7
|
|||
|
|||
SSDs serial No in BIOS.
GS wrote:
Peter Jason wrote: How is one to tell them apart? Wscript.Echo "VolumeSerialNumber: " & objItem.VolumeSerialNumber If they've been cloned, won't they have identical volume serial numbers? from within a cmd.exe window, try wmic.exe diskdrive get serialnumber The script will show this if both are in the same machine. -- Garry Free usenet access at http://www.eternal-september.org Classic VB Users Regroup! comp.lang.basic.visual.misc microsoft.public.vb.general.discussion |
#8
|
|||
|
|||
SSDs serial No in BIOS.
And this displays all in one...
Dim sInfo Set objWMIService = GetObject("winmgmts:") Set colItems = objWMIService.ExecQuery("SELECT * FROM Win32_LogicalDisk",,48) For Each objItem in colItems sInfo = sInfo & "Caption: " & objItem.Caption & vblf _ & "Description: " & objItem.Description & vblf _ & "VolumeSerialNumber: " & objItem.VolumeSerialNumber & vblf & vblf Next wScript.Echo sInfo -- Garry Free usenet access at http://www.eternal-september.org Classic VB Users Regroup! comp.lang.basic.visual.misc microsoft.public.vb.general.discussion |
#9
|
|||
|
|||
SSDs serial No in BIOS.
GS wrote:
Andy Burns wrote: If they've been cloned, won't they have identical volume serial numbers? The script will show this if both are in the same machine. The VB script will only show a soft/changeable serial number for each logical volume on each disc (the same as simply using the VOL command), whereas the WMI command will show the hardware serial number for each physical disc ... |
#10
|
|||
|
|||
SSDs serial No in BIOS.
GS wrote:
And this displays all in one... But still doesn't help the O/P to *differentiate* between two discs with identical contents ... |
#11
|
|||
|
|||
SSDs serial No in BIOS.
Andy Burns wrote:
GS wrote: And this displays all in one... But still doesn't help the O/P to *differentiate* between two discs with identical contents ... "How to Find Serial Number of Hard Drive in Windows" https://www.tenforums.com/tutorials/...e-windows.html Administrator Command Prompt window (cmd.exe in Cortana, right-click, Run as admin...) wmic diskdrive get model,name,serialnumber The PhysicalDisk numbers should correspond to Disk Management disk number "Disk 0" ******* The info is available via HDTune 2.55 Info tab. ******* The info is available in BioNTLog.txt, a file puked out by Paragon Partition Manager 14 Free. ******* I was hoping the info was in Device Manager Properties, but a quick pass through those, I can't find it right now. If you're in Disk Management, you can raise the Device Manager Properties pane for the item, by right-clicking the left-most box in the disk row. But that's not going to help, unless I can spot a SerialNumber item in there. I could have sworn it was in there... The "wmic" method will have to do, in the interest of time. Paul |
#12
|
|||
|
|||
SSDs serial No in BIOS.
On 18-3-2018 5:53, Bob_S wrote:
"Peter Jason" wrote in message ... I've not seen the serial number in a legacy BIOS but under the Boot menu, it will list the model. If it's a UEFI or hybrid UEFI/BIOS then it just may be listed in there. But if your are just trying to get the serial number to avoid tearing the system down, there are a number of free programs such as Speccy from Piriform ( https://www.ccleaner.com/speccy/download ). Hey, thats a nice program,(speccy), even works on xp. |
#13
|
|||
|
|||
SSDs serial No in BIOS.
GS wrote:
And this displays all in one... But still doesn't help the O/P to *differentiate* between two discs with identical contents ... If the disks are identical the info will be the same for both but the drive label won't be the same! Try this script by entering the Drive letter. Save this script to a file named "GetDriveSerialFromPath.vbs" Dim oWMI, Path, vData, vInfo, sInfo, i, iNdx, bSelectedPath Set oWMI = GetObject("WinMgmts:") Path = InputBox("Enter the Drive Label") Set vData = oWMI.ExecQuery("Select * from Win32_LogicalDisk Where DriveType = 3") i = 0: Path = Left(Path, 1) & ":" For Each vInfo In vData 'Assign an index only if the USB DeviceID matches Path. If vInfo.DeviceID = Path Then iNdx = i: bSelectedPath = True: Exit For i = i + 1 Next If bSelectedPath Then 'Iterate the WMI.Win32_DiskDrive class to verify Path is a valid USB device, 'and determine an index for identifying our target USB device. Set vData = oWMI.ExecQuery("Select * from Win32_DiskDrive") i = 0 For Each vInfo In vData If UCase(vInfo.InterfaceType) = "IDE" Then If i = iNdx Then sInfo = Path & " SerialNumber is " & vInfo.SerialNumber: Exit For i = i + 1 End If Next End If Wscript.Echo sInfo -- Garry Free usenet access at http://www.eternal-september.org Classic VB Users Regroup! comp.lang.basic.visual.misc microsoft.public.vb.general.discussion |
#14
|
|||
|
|||
SSDs serial No in BIOS.
typo...
Dim oWMI, Path, vData, vInfo, sInfo, i, iNdx, bSelectedPath Set oWMI = GetObject("WinMgmts:") Path = InputBox("Enter the Drive Label") Set vData = oWMI.ExecQuery("Select * from Win32_LogicalDisk Where DriveType = 3") i = 0: Path = Left(Path, 1) & ":" For Each vInfo In vData 'Assign an index only if the IDE DeviceID matches Path. If vInfo.DeviceID = Path Then iNdx = i: bSelectedPath = True: Exit For i = i + 1 Next If bSelectedPath Then 'Iterate the WMI.Win32_DiskDrive class to verify Path is a valid USB device, 'and determine an index for identifying our target USB device. Set vData = oWMI.ExecQuery("Select * from Win32_DiskDrive") i = 0 For Each vInfo In vData If UCase(vInfo.InterfaceType) = "IDE" Then If i = iNdx Then sInfo = Path & " SerialNumber is " & vInfo.SerialNumber: Exit For i = i + 1 End If Next End If Wscript.Echo sInfo -- Garry Free usenet access at http://www.eternal-september.org Classic VB Users Regroup! comp.lang.basic.visual.misc microsoft.public.vb.general.discussion |
#15
|
|||
|
|||
SSDs serial No in BIOS.
Grrr...I converted my script to get a USB PNPDeviceID to suit this task and
forgot to edit the USB to read IDE typo... Dim oWMI, Path, vData, vInfo, sInfo, i, iNdx, bSelectedPath Set oWMI = GetObject("WinMgmts:") Path = InputBox("Enter the Drive Label") Set vData = oWMI.ExecQuery("Select * from Win32_LogicalDisk Where DriveType = 3") i = 0: Path = Left(Path, 1) & ":" For Each vInfo In vData 'Assign an index only if the IDE DeviceID matches Path. If vInfo.DeviceID = Path Then iNdx = i: bSelectedPath = True: Exit For i = i + 1 Next If bSelectedPath Then 'Iterate WMI.Win32_DiskDrive to verify Path is a valid IDE device, 'and determine an index for identifying our target IDE device. Set vData = oWMI.ExecQuery("Select * from Win32_DiskDrive") i = 0 For Each vInfo In vData If UCase(vInfo.InterfaceType) = "IDE" Then If i = iNdx Then sInfo = Path & " SerialNumber is " & vInfo.SerialNumber: Exit For i = i + 1 End If Next End If Wscript.Echo sInfo -- Garry Free usenet access at http://www.eternal-september.org Classic VB Users Regroup! comp.lang.basic.visual.misc microsoft.public.vb.general.discussion |
Thread Tools | |
Display Modes | Rate This Thread |
|
|