タイトル : Re^3: M/Bステータス取得方法 投稿日 : 2004/06/02(Wed) 15:24 投稿者 : でった
M/Bステータス取得ですが、以下の様に組んで実行したのですが 3台PCでテストし、マザーボードの製品名が取得できるPCとでき ないPCとがあり、バージョンの方は全く取得できませんでした。 バージョンは取得できなくても構わないのですが、製品名を全端末 にて取得したいのですが何か方法があるでしょうか? 取得したいPC IBM機 デスクトップ数種類,ノート数種類 です。 Dim moSearch As New ManagementObjectSearcher("SELECT * FROM Win32_BaseBoard") Dim mo As ManagementObject Dim strMes As String For Each mo In moSearch.Get() strMes = "マザーボードの製造元:" & _ NothingToBlankStr(mo.Item("Manufacturer")).ToString & vbCrLf strMes = strMes & "マザーボードの製品名:" & _ NothingToBlankStr(mo.Item("ProDuct")).ToString & vbCrLf strMes = strMes & "マザーボードのバージョン:" & _ NothingToBlankStr(mo.Item("Version")).ToString Next MsgBox(strMes) |