hostname="." ' dotは自機を示す ' uid = "username" ' pwd = "password" Set oLocater = CreateObject("WbemScripting.SWbemLocator") Set oService = oLocater.ConnectServer(hostname, "root/cimv2") ' Set oService = oLocater.ConnectServer(hostname, "root/cimv2", uid, pwd) 'ユーザ、パスワード設定をする場合 oService.Security_.ImpersonationLevel = 3 ' デフォルト値は3のため省略可能 Set items = oService.ExecQuery("Select * From Win32_BIOS", , 48) For Each item In items WScript.Echo("BIOS Version: " & item.SMBIOSBIOSVersion) WScript.Echo("BIOS Major Version: " & item.SMBIOSMajorVersion) WScript.Echo("BIOS Minor Version: " & item.SMBIOSMinorVersion) WScript.Echo("製造: " & item.Manufacturer) WScript.Echo("キャプション: " & item.Caption) WScript.Echo("バージョン: " & item.Version) WScript.Echo("シリアル番号: " & item.SerialNumber) Next Set item = Nothing Set oService = Nothing Set oLocater = Nothing