Plik wsadowy, bądź skrypt vbs pokazujący numer seryjny komputera

pytanie zadane 4 marca 2021 w Systemy operacyjne, programy przez Rrafal Nowicjusz (130 p.)

Witam,

chciałbym zrobić plik wsadowy lub skrypt vbs, gdzie użytkownik klikając go otrzyma informację o numerze seryjnym komputera. Z poziomu wiersza poleceń Windowsa, czy też PowerShella ręcznie wpisując polecenie "wmic bios get serialnumber" otrzymuję ten numer, jednak chciałbym, by użytkownik zrobił to automatycznie poprzez kliknięcie na plik.

Z góry dzięki za pomoc.

1 odpowiedź

odpowiedź 5 marca 2021 przez VBService Ekspert (252,740 p.)
edycja 5 marca 2021 przez VBService

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>