シリアル番号の調べ方

以下、内容をメモ帳にでも貼り付けし保存。
その後、拡張子を『.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

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

BLEACH 58

▽あらすじ▽
散っていった死神達、そして尸魂界の為、その怒りの刃を振るう元柳斎!
宿命られし千年にも亘る滅却師・ユーハバッハとの因縁に決着の時が!?
一方、尸魂界に辿り着いた一護。その眼前に広がる光景は…!?

惰性気味に購入しているBLEACH（ブリーチ）。

上の息子が読むっていうのも一つ理由。最終章ってものありますけどね。



以下、ネタばれ含む。