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のほか、マザーボード名等も取得できる。