PCbanter

PCbanter (http://www.pcbanter.net/index.php)
-   Windows 10 Help Forum (http://www.pcbanter.net/forumdisplay.php?f=52)
-   -   SSDs serial No in BIOS. (http://www.pcbanter.net/showthread.php?t=1103423)

Peter Jason March 18th 18 04:44 AM

SSDs serial No in BIOS.
 


Peter Jason March 18th 18 04:49 AM

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.



Bob_S[_2_] March 18th 18 04:53 AM

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.


GS March 18th 18 11:41 AM

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

Andy Burns[_6_] March 18th 18 11:49 AM

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


GS March 18th 18 12:03 PM

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

GS March 18th 18 12:04 PM

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

GS March 18th 18 12:08 PM

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

Andy Burns[_6_] March 18th 18 12:14 PM

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 ...

Andy Burns[_6_] March 18th 18 12:25 PM

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 ...

Paul[_32_] March 18th 18 01:20 PM

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

Sjouke Burry[_2_] March 18th 18 01:32 PM

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.

GS March 18th 18 01:55 PM

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

GS March 18th 18 01:58 PM

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

GS March 18th 18 02:05 PM

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


All times are GMT +1. The time now is 02:44 PM.

Powered by vBulletin® Version 3.6.4
Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.
Copyright © 2004 - 2006 PCbanter
Comments are property of their posters