ガンダムを教え込んだのは、私ですが・・・。
色々なガンダム(敵を含め)を自分の手で操作し、
敵をなぎ倒していく!好きな人には、たまりません。
やりこみも、単純作業レベルな気もしますが、
色々なミッションもあり、長続きしてます。
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 |