- 日時： 2007/08/02 14:40
- 名前： 花ちゃん
- ***********************************************************************************
* カテゴリー：[システム関係][][] *
* キーワード：PCの機種名,RAIDカードが違う為それを判定,型名,,, *
***********************************************************************************
元質問：VBで機種名を取得したい - ともさん 2006/09/26-17:12 No.7340
VBというかAPIでパソコンの機種名を取得したいのですが識者の方ご教授下さい。
ここで言う機種名とはパソコン自体の形式番号と言う奴です。(VALUE STARとかFMVなんたらとか)
Windows2000での場合で、マイコンピュータ右クリック→管理→「コンピュータの管理」画面内の
→システムの概要→表示された一覧の中の「システム モデル」の値です。
-----------------------------------------------------------------------------------
Re: VBで機種名を取得したい - だい 2006/09/26-20:05 No.7342
-----------------------------------------------------------------------------------
WMIでよろしければ、Win32_ComputerSystemクラスのModelプロパティで
'元ネタは、
'http://www.microsoft.com/japan/technet/scriptcenter/scripts/misc/wmi/mswmvb17.mspx
'WSHからの即席移植ですので汚いですが、
Function getWin32_ComputerSystem()
Dim objWMIService As Object
Dim colSettings As Object
Dim objComputer As Object
Dim strComputer As String
strComputer = "."
Set objWMIService = GetObject("winmgmts:" _
& "{impersonationLevel=impersonate}!\\" & strComputer & "\root\cimv2")
Set colSettings = objWMIService.ExecQuery _
("Select * from Win32_ComputerSystem")
For Each objComputer In colSettings
Debug.Print "System Name: " & objComputer.Name
Debug.Print "System Manufacturer: " & objComputer.Manufacturer
Debug.Print "System Model: " & objComputer.Model
Debug.Print "Time Zone: " & objComputer.CurrentTimeZone
Debug.Print "Total Physical Memory: " & _
objComputer.TotalPhysicalMemory
Next
End Function
-----------------------------------------------------------------------------
> しかし、WindowsNT4.0ではエラーが発生し取得出来ませんでした。
下記では。
http://www.microsoft.com/japan/technet/scriptcenter/resources/wmifaq.mspx#EAC
|
パソコンの機種名（メーカ名等）を取得するには(VB6.0)