元に戻る スレッド一覧へ 記事閲覧

このページ内の検索ができます。(AND 検索や OR 検索のような複数のキーワードによる検索はできません。) パソコンの機種名（メーカ名等）を取得するには(VB6.0)　[No.123の個別表示] 　　　　　サンプル投稿用掲示板　　VB2005 〜 用トップページ　　VB6.0 用 トップページ 日時： 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

Page: 1 |

投稿フォーム　　　　　　　　　　　　　　　スレッド一覧へ 題　　名 スレッドをトップへソート 名　　前 パスワード （記事メンテ時に使用） 投稿キー （投稿時 を入力してください） コメント *********************************************************************************** * カテゴリー：[][][] * キーワード： , , , , , ***********************************************************************************    クッキー保存

スレッド一覧へ