VisualBasic コンピュータの詳細情報を得る

VBS

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

スポンサードリンク

UUIDのほか、マザーボード名等も取得できる。

参考文献

  • VB or VBScriptでPCの製造番号を抜く方法 – 教えて!goo :
    http://oshiete1.goo.ne.jp/qa3254650.html
  • オペレーティングシステム関連 – WMIサンプル集 – ActiveXperts Network Monitor :
    http://www.anchorsystems.jp/anchor/ashp/netmon/samples/wmi_os.html

関連記事

スポンサードリンク

Comments

コメントを残す

メールアドレスが公開されることはありません。 * が付いている欄は必須項目です