Propozycja 
serial_number.cmd lub serial_number.bat
@ECHO off
ECHO Copyright (c) 2021 - Rrafal
ECHO.
wmic bios get serialnumber
ECHO Nacisnij spacje aby zakonczyc.
PAUSE > NUL

serial_number.vbs
Set oWMIService = GetObject("winmgmts:" & "{impersonationLevel=impersonate}!\\.\root\cimv2")
Set colBIOS = oWMIService.ExecQuery("Select * from Win32_BIOS")
Dim title, serial_number, admin_text
For each oBIOS in colBIOS
title = "Producent: " & oBIOS.Manufacturer
serial_number = oBIOS.SerialNumber
Next
admin_text = "Copyright (c) 2021 - Rrafal" & vbCrLf & vbCrLf
InputBox admin_text & "Numer seryjny:", title, serial_number

serial_number.hta
<HTA:APPLICATION
ID="oApp"
APPLICATIONNAME="SerialNumberInfo"
BORDER="thin" ' thick, dialog, thin, none
BORDERSTYLE="normal" ' complex, raised, static, sunken
CAPTION="yes"
CONTEXTMENU="no"
ICON="C:\Windows\write.exe"
INNERBORDER="no"
MAXIMIZEBUTTON="no"
MINIMIZEBUTTON="no"
NAVIGABLE="no"
SCROLL="no"
SCROLLFLAT="yes"
SELECTION="no"
SHOWINTASKBAR="yes"
SINGLEINSTANCE="yes"
SYSMENU="yes"
WINDOWSTATE="normal" ' minimize, maximize
VERSION="1.0.0"
/>
<!DOCTYPE html>
<html lang="pl">
<head>
<meta charset="utf-8">
<meta http-equiv="x-ua-compatible" content="ie=9">
<style>
* {
box-sizing: border-box;
}
body {
margin: 0;
padding: 0;
border: 0;
background-color: #303030;
}
.container {
margin: 0.4em auto;
text-align: center;
}
label, input, button {
display: block;
margin: 0.5em auto;
color: white;
font: 1.05em/1.2em monospace;
text-align: center;
font-variant: small-caps;
user-select: none;
outline: none;
}
input {
border: 4px solid transparent;
width: 10em;
background-color: #bcbcba;
cursor: default;
color: black;
font-weight: bold;
}
button {
cursor: pointer;
color: black;
width: 5em;
padding: 0.1em;
border: 1px solid black;
font-weight: bold;
border-radius: 0.5em;
}
button:hover {
color: limegreen;
}
</style>
<script language="javascript">
initializeMainWindow();
function initializeMainWindow() {
var app_width = 380;
var app_height = 180;
window.resizeTo(app_width,app_height);
var center_X = (screen.availWidth - app_width) / 2;
var center_Y = (screen.availHeight - app_height) / 2;
window.moveTo(center_X, center_Y);
}
window.onload = function() {
var input_serial_number = document.querySelector('input');
input_serial_number.value = SerialNumber();
var title = getManufacturer();
document.title = title + ' :: Copyright (c) 2021 - Rrafal';
var button = document.querySelector('button');
button.focus();
button.onclick = function() {
try {
document.parentWindow.clipboardData.setData('text', input_serial_number.value);
input_serial_number.style.border = '4px solid green';
setTimeout(function() {
input_serial_number.style.border = '4px solid transparent';
}, 2000);
} catch(err) {
button.disabled = true;
button.style.cursor = 'default';
}
}
}
</script>
<script language="VBScript">
Function getManufacturer
Set oWMIService = GetObject("winmgmts:" & "{impersonationLevel=impersonate}!\\.\root\cimv2")
Set colBIOS = oWMIService.ExecQuery("Select * from Win32_BIOS")
Dim value
For each oBIOS in colBIOS
value = oBIOS.Manufacturer ' Producent
Next
getManufacturer = value
End Function
Function SerialNumber
Set oWMIService = GetObject("winmgmts:" & "{impersonationLevel=impersonate}!\\.\root\cimv2")
Set colBIOS = oWMIService.ExecQuery("Select * from Win32_BIOS")
Dim value
For each oBIOS in colBIOS
value = oBIOS.SerialNumber ' Numer seryjny
Next
SerialNumber = value
End Function
</script>
</head>
<body>
<div class="container">
<label for="serial_number">Numer seryjny:</label>
<input type="text" id="serial_number" name="serial_number" readonly>
<button title="Kopiuj do schowka">Kopiuj</button>
</div>
</body>
</html>
