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.

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

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 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 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" wrote

| from within a cmd.exe window, try
|
| wmic.exe diskdrive get serialnumber
|

It's not clear to me how a serial number is
going to help Peter Jason. Serial numbers are mostly
for commercial use. If he doesn't know which disk
he cloned he could always put piece of tape on
one of them, no?

In any case....
What you're doing is the same thing as what Garry
is doing. He's using WMI via script. You're using a WMI
wrapper applet for command line. Both are using WMI.
(Most 3rd party system info utilities also use WMI. So
it's worthwhile getting it from the horse's mouth.)

The only difference is that he was listing
logical disks (partitions) rather than physical
disks. For physical disks you can get all kinds
of info. SerialNumber is available after XP. If
one needs to deal with XP then DeviceID can
be used. (SCSIPort might also be useful, but
on my current machine it just returns 0.)

Either way, whatever you get will be
the same via either method. wmic.exe is just
a wrapper to allow people using PowerShell
to access WMI. For anyone who knows scripting
or software programming, those methods will
be a lot easier and far more flexible than command
line. wmic is a kind of training wheels method to
get single, specific properties without needing
to learn about WMI. It's one of the many things
designed for IT people so that they can do their
job using one-line incantations that can be shared
and found online, without having to learn the
whole system.

For anyone who wants to use WMI.....

There's a help file in the Win32 SDK that's
indispensible because the methods and properties
are vast and the object model is stunningly bad in
its design. (Whenever I work with WMI I use a
combination of the help file and previous scripts
I've written. The syntax is tragically non-intuitive,
so I find it easier to just adapt things I've written
before.

As can be seen from your sample, wmic is not
designed in accord with WMI, so while your method
is good once you know it, you'll need a wmic reference
in order to use it for anything more than a snippet
here or there. Specifically in this case, WMI has no
"diskdrive" object. That's a corruption introduced
by wmic.exe.

(Corruption may seem a strong word, but designing
things that way confuses people and makes the job
harder for everyone. The object in WMI is
Win32_DiskDrive. Admittedly, that's a sorry excuse for
an object name... No one should ever have to type
underscores and the "Win32" part is superfluous.... but
MS screwed it up and there's no going back. Yet with
wmic they apparently decided to simplify it. But since
wmic is not following the WMI object model, no amount
of experience with WMI will allow one to predict the
correct call to make to wmic for any specific info!
That's much worse than re-using bad object names.
It's like writing a cookbook and deciding to rename
recipes, like renaming Baked Alaska to Flaming Ice Cream.
No one will know to look up Flaming Ice Cream. And
everyone will be confused when their guests are
served Baked Alaska under a pseudonym.)

The following VBScript shows some of the properties
available from Win32_DiskDrive. Copy to Notepad,
save as something.vbs, double-click to see a report:

Dim WMI, Col, Ob, s2, s3
On Error Resume Next
Set WMI = GetObject("WinMgmts:")
Set Col = WMI.ExecQuery("Select * from Win32_DiskDrive")
s2 = "Drives:" & vbCrLf & vbCrLf
For Each Ob in Col
s2 = s2 & "Description: " & Ob.Description & vbCrLf
s2 = s2 & "Manufacturer: " & Ob.Manufacturer & vbCrLf
s2 = s2 & "Model: " & Ob.Model & vbCrLf
s2 = s2 & "InterfaceType: " & Ob.InterfaceType & vbCrLf
s2 = s2 & "MediaType: " & Ob.MediaType & vbCrLf
s2 = s2 & "DeviceID: " & Ob.DeviceID & vbCrLf
'-- This next only available on Vista+
s2 = s2 & "SerialNumber: " & Ob.SerialNumber & vbCrLf
s2 = s2 & "Number of Win Partitions: " & Ob.Partitions & vbCrLf
s3 = CStr(Ob.Size)
If Len(s3) 9 Then
s3 = Left(s3, (len(s3) - 9))
s2 = s2 & "Size (GB): " & s3
End If
s2 = s2 & vbCrLf & vbCrLf
Next
Set Col = Nothing
Set WMI = Nothing
MsgBox s2

'---------------------------------------
For what it's worth, here's one I use to do a quick survey of
hardware on a system. It writes a report to C:\Sysinfo.txt:
'----------------------------------


Dim WMI, Col, Ob, S2, i2, s3, sFil, sBul, sLine

'-- path to save data. ------------------
sFil = "C:\Sysinfo.txt"

sBul = " " & Chr(149) & " "
sLine = vbCrLf & "_____________________________________________ " & vbCrLf &
vbCrLf

Err.Clear
On Error Resume Next

Set WMI = GetObject("WinMgmts:")

If (Err.number 0) Then
MsgBox "Error creating WMI object. Error: " & Err.Number & " - " &
Err.Description
WScript.quit
End If


'-------------- product ------------------------------------

Set Col = WMI.ExecQuery("Select * from Win32_ComputerSystemProduct")
S2 = S2 & sBul & " Product Info:" & vbCrLf & vbCrLf
For Each Ob in Col
S2 = S2 & "Product Name: " & Ob.Name & vbCrLf
S2 = S2 & "Product Version: " & Ob.Version & vbCrLf
S2 = S2 & "Product Description: " & Ob.Description & vbCrLf
S2 = S2 & "IdentifyingNumber: " & Ob.IdentifyingNumber & vbCrLf
S2 = S2 & "Product UUID: " & Ob.UUID & vbCrLf
Next
S2 = S2 & sLine


'-- box
id --------------------------------------------------------------------

Set Col = WMI.ExecQuery("Select * from Win32_SystemEnclosure")
S2 = S2 & sBul & "Machine ID (SystemEnclosure) info:" & vbCrLf & vbCrLf
For Each Ob in Col
S2 = S2 & "Part Number: " & Ob.PartNumber & vbCrLf
S2 = S2 & "Serial Number: " & Ob.SerialNumber & vbCrLf
S2 = S2 & "Asset Tag: " & Ob.SMBIOSAssetTag & vbCrLf
Next

S2 = S2 & sLine

'--
motherboard --------------------------------------------------------------------

Set Col = WMI.ExecQuery("Select * from Win32_MotherboardDevice")
S2 = S2 & sBul & "Motherboard info:" & vbCrLf & vbCrLf
For Each Ob in Col
S2 = S2 & "Caption: " & Ob.Caption & vbCrLf
S2 = S2 & "InstallDate: " & Ob.InstallDate & vbCrLf
S2 = S2 & "DeviceID: " & Ob.DeviceID & vbclrf
Next
S2 = S2 & vbCrLf

'----------- bios -----------------------------------

Set Col = WMI.ExecQuery("Select * from Win32_BIOS")
S2 = S2 & sBul & "BIOS info:" & vbCrLf & vbCrLf
For Each Ob in Col
S2 = S2 & "Manufacturer: " & Ob.Manufacturer & vbCrLf
S2 = S2 & "Description: " & Ob.Description & vbCrLf
S2 = S2 & "Version: " & Ob.Version & vbCrLf
S2 = S2 & "InstallDate: " & Ob.InstallDate & vbCrLf
S2 = S2 & "SerialNumber: " & Ob.SerialNumber & vbCrLf

Next
S2 = S2 & sLine


'--
CPU --------------------------------------------------------------------

Set Col = WMI.ExecQuery("Select * from Win32_Processor")
S2 = S2 & sBul & "CPU:" & vbCrLf & vbCrLf
For Each Ob in Col
S2 = S2 & "Manufacturer: " & Ob.Manufacturer & vbCrLf
S2 = S2 & "Description: " & Ob.Description & vbCrLf
S2 = S2 & "Name: " & Ob.Name & vbCrLf
S2 = S2 & "Speed: " & Ob.MaxClockSpeed & sLine
Next

'-- RAM and product
info. --------------------------------------------------------------------

Set Col = WMI.ExecQuery("Select * from Win32_ComputerSystem")
S2 = S2 & sBul & "Installed RAM: "
For Each Ob in Col
i2 = Ob.TotalPhysicalMemory
If i2 0 Then
i2 = i2 \ 1024 \ 1024
S2 = S2 & CStr(i2) & " MB" & vbCrLf
End If
S2 = S2 & sLine
Next

S2 = S2 & sBul & "PC Info.:" & vbCrLf &vbCrLf

For Each Ob in Col
S2 = S2 & "PC or motherboard model: " & Ob.Model & vbCrLf
S2 = S2 & "System name: " & Ob.Name & vbCrLf
S2 = S2 & "System Manufacturer: " & Ob.Manufacturer & vbCrLf
Next
S2 = S2 & sLine

'---------- onboard devices ----------------------------------------

Set Col = WMI.ExecQuery("Select * from Win32_OnBoardDevice")
S2 = S2 & sBul & "Onboard devices:" & vbCrLf & vbCrLf
For Each Ob in Col
S2 = S2 & "Description: " & Ob.Description & vbCrLf
S2 = S2 & "Name: " & Ob.Name & vbCrLf
S2 = S2 & "Manufacturer: " & Ob.Manufacturer & vbCrLf
S2 = S2 & "Model: " & Ob.Model & vbCrLf & vbCrLf
Next
S2 = S2 & sLine

'--
graphics --------------------------------------------------------------------

Set Col = WMI.ExecQuery("Select * from Win32_VideoController")
S2 = S2 & sBul & "Graphics:" & vbCrLf & vbCrLf
For Each Ob in Col
S2 = S2 & "Description: " & Ob.Description & vbCrLf
S2 = S2 & "Name: " & Ob.Name & vbCrLf
i2 = Ob.AdapterRAM
If i2 0 Then
i2 = i2 \ 1024 \ 1024
S2 = S2 & "RAM: " & " MB" & vbCrLf
End If
S2 = S2 & "Driver Date: " & Ob.DriverDate & vbCrLf
S2 = S2 & "Driver Version: " & Ob.DriverVersion & vbCrLf
Next
S2 = S2 & sLine

'-- hard
disks --------------------------------------------------------------------

Set Col = WMI.ExecQuery("Select * from Win32_DiskDrive")
S2 = S2 & sBul & "Drives:" & vbCrLf & vbCrLf
For Each Ob in Col
S2 = S2 & "Description: " & Ob.Description & vbCrLf
S2 = S2 & "Manufacturer: " & Ob.Manufacturer & vbCrLf
S2 = S2 & "Model: " & Ob.Model & vbCrLf
S2 = S2 & "InterfaceType: " & Ob.InterfaceType & vbCrLf
S2 = S2 & "MediaType: " & Ob.MediaType & vbCrLf
S2 = S2 & "DeviceID: " & Ob.DeviceID & vbCrLf
S2 = S2 & "Number of Win Partitions: " & Ob.Partitions & vbCrLf
s3 = CStr(Ob.Size)
If Len(s3) 9 Then
s3 = Left(s3, (len(s3) - 9))
S2 = S2 & "Size (GB): " & s3
End If
S2 = S2 & vbCrLf & vbCrLf
Next
S2 = S2 & sLine

'-- CD/DVD
drives --------------------------------------------------------------------

Set Col = WMI.ExecQuery("Select * from Win32_CDROMDrive")
S2 = S2 & sBul & "CD/DVD drives:" & vbCrLf & vbCrLf
For Each Ob in Col
S2 = S2 & "Description: " & Ob.Description & vbCrLf
S2 = S2 & "Caption: " & Ob.Caption & vbCrLf
S2 = S2 & "Manufacturer: " & Ob.Manufacturer & vbCrLf & vbCrLf
Next
S2 = S2 & sLine

'-- network
adapter --------------------------------------------------------------------

Set Col = WMI.ExecQuery("Select * from Win32_NetworkAdapter")
S2 = S2 & sBul & "Network Adapter:" & vbCrLf & vbCrLf
For Each Ob in Col
S2 = S2 & "Description: " & Ob.Description & vbCrLf
S2 = S2 & "Name: " & Ob.ProductName & vbCrLf
S2 = S2 & "Manufacturer: " & Ob.Manufacturer & vbCrLf
S2 = S2 & "MAC Address: " & Ob.MACAddress & vbCrLf & vbCrLf
Next
S2 = S2 & sLine

Set Col = Nothing
Set WMI = Nothing

Dim FSO, TS
Set FSO = CreateObject("Scripting.FileSystemObject")
Set TS = FSO.CreateTextFile(sFil, True)
TS.Write S2
TS.Close
Set TS = Nothing
Set FSO = Nothing
MsgBox "Done."

Mayayana wrote:

In any case....
What you're doing is the same thing as what Garry
is doing. He's using WMI via script. You're using a WMI
wrapper applet for command line. Both are using WMI.

No, not the same ... mine is retrieving the physical disc's serial
number set in the facctory, which should correspond to the serial number
printed on the disk itself; Garry is retrieving the logical drive
letter's volume serial, written whenever a partition is formatted, and
will probably be the same on a cloned disk as the disk it was cloned from.

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

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

GS wrote:

And this displays all in one...

But still doesn't help the O/P to *differentiate* between two discs with
identical contents ...

On Sun, 18 Mar 2018 07:41:59 -0400, GS wrote:

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

Thanks, I did copied this into Notebook, saved it as
"DiskDriveInfo.vbs" but it did not list my 8 HDDs (some Bitlockered),
but rather gave a series of texts.

On Sun, 18 Mar 2018 07:41:59 -0400, GS wrote:

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

Thanks, I did copied this into Notebook, saved it as
"DiskDriveInfo.vbs" but it did not list my 8 HDDs (some Bitlockered),
but rather gave a series of texts.

You need to runWMI scripts 'As Administrator' to get all its info returned.

--
Garry

Free usenet access at http://www.eternal-september.org
Classic VB Users Regroup!
comp.lang.basic.visual.misc
microsoft.public.vb.general.discussion

On Sun, 18 Mar 2018 23:29:29 -0400, GS wrote:

On Sun, 18 Mar 2018 07:41:59 -0400, GS wrote:

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

Thanks, I did copied this into Notebook, saved it as
"DiskDriveInfo.vbs" but it did not list my 8 HDDs (some Bitlockered),
but rather gave a series of texts.

You need to runWMI scripts 'As Administrator' to get all its info returned.

I can't get it started. How do I get it into the CMD screen? Can it
be started with a RH mouse click?

"GS" wrote

| Thanks, I did copied this into Notebook, saved it as
| "DiskDriveInfo.vbs" but it did not list my 8 HDDs (some Bitlockered),
| but rather gave a series of texts.
|
| You need to runWMI scripts 'As Administrator' to get all its info
returned.
|

I don't think that's the problem. He seems
to have copied your first sample and run it
successfully.
Your first sample does, indeed, offer only
"a series of texts", showing a separate msgbox
for each bit of data and only dealing with one
partition, which could be confusing.
It sounds like he was expecting to
click something and see a message saying,
"Your serial number is such-and-such."

Meanwhile he didn't bother to read the
other posts in the thread, or didn't understand
them. If he had then he'd have the serial
numbers now.

I suspect this whole approach is more than
Peter Jason is prepared to dive into. And it
was never clear that he actually *needed*
the serial numbers. All he wants is to clone
a hard disk, which he apparently already did.