シリアル番号の調べ方

以下、内容をメモ帳にでも貼り付けし保存。
その後、拡張子を『.vbs』へ変更し、起動。

シリアルナンバーがわかります。（IdentifyingNumber:が該当項目です）
リモート、遠隔地対応で利用すると良い感じです♪

Const wbemFlagReturnImmediately = &h10 Const wbemFlagForwardOnly = &h20 strComputer = "." Set objWMIService = GetObject("winmgmts:\\" & strComputer & "\root\CIMV2") Set colItems = objWMIService.ExecQuery("SELECT * FROM Win32_ComputerSystemProduct", "WQL", _ wbemFlagReturnImmediately + wbemFlagForwardOnly) For Each objItem In colItems WScript.Echo "Caption: " & objItem.Caption WScript.Echo "Description: " & objItem.Description WScript.Echo "IdentifyingNumber: " & objItem.IdentifyingNumber WScript.Echo "Name: " & objItem.Name WScript.Echo "SKUNumber: " & objItem.SKUNumber WScript.Echo "UUID: " & objItem.UUID WScript.Echo "Vendor: " & objItem.Vendor WScript.Echo "Version: " & objItem.Version Next

利用環境による部分も考えられますので、正常動作は保証致しかねますので、
何卒、ご理解下さい。又、不具合などにも責任を負いかねます。