My laptop has no BIOS serial number (1 Viewer)

[nector]

How do I put the serial showing on my back side of my hardware into my windows system so that when I use the code below I will be able to retrieve it:

C\ WMIC BIOS GET SERIALNUMBER

Unfortunately the manufacture forgot to save the serial number of my laptop so I want it saved into the system, any idea.

 

[arnelgp]

this function will return the pc serial number:

Public Function PCSerialNumber() As String
Dim strComputer As String
Dim objWMIService As Object
'Dim colSettings As Object
'Dim objComputer As Object
Dim objItem As Object
Dim colItems As Object
strComputer = "."
Set objWMIService = GetObject("winmgmts:" _
    & "{impersonationLevel=impersonate}!\\" & strComputer & "\root\cimv2")
Set colItems = objWMIService.ExecQuery( _
    "SELECT * FROM Win32_ComputerSystemProduct")
For Each objItem In colItems
    'Debug.Print "Serial Number: " & objItem.IdentifyingNumber
    PCSerialNumber = objItem.IdentifyingNumber
Next
End Function

 

[nector]

What I want is to put back the serial number, for example see the attached photo. Whenever I use bios the function return blank instead of the computer details or serial number

 

[arnelgp]

there is a utility here:
Two ways to set serial number in Intel BIOS - Xenit