VBレスキュー(花ちゃん)
VB2005用トップページへVBレスキュー(花ちゃん)のトップページVB6.0用のトップページ各掲示板

メニューへ戻ります。 システム及びOS情報関係のメニュー
1.環境変数に格納されている情報を取得
2.コントロールパネル及びコントロールパネル内の各メニューを開く
3.INI ファイルへの書き込み及び読み込み
4.レジストリへの保存及び読み取り・削除例
5.オペレーティングシステムのバージョン情報を取得
6.WMI の Win32_OperatingSystem クラスを使っての OS 情報の取得
7.現在のシステム環境に関する情報(108項目)を取得
8.ウィンドウ・画面等の幅や高さ等と現在の構成を(84項目)取得
9.Win32 API を使っての物理メモリ及び仮想メモリに関する情報を取得
10.コンピューターの製造会社名及びモデル名/製品型番を取得
11.現在の OS 及びプロセスが 64ビットかどうかを調べる
12.
 . 
20.その他、当サイト内に掲載のシステム及びOS情報に関するサンプル


10.コンピューターの製造会社名及びモデル名/製品型番を取得(27_Sys_10) (旧、SampleNo.229)
1.コンピューターの製造会社名及びモデル名/製品型番を取得
2.
3.
4.
5.
6.

 下記プログラムコードに関する補足・注意事項 
動作確認:Windows 8.1 (Windows 7) / VB2013 (VB2010) / Framework 4.5.1 / 対象の CPU:x86
Option :[Compare Text] [Explicit On] [Infer On] [Strict On]
Imports :System.Management
参照設定:
System.Management     参照設定方法参照
その他 :
    :
このサンプル等の内容を無断で転載、掲載、配布する事はお断りします。(私の修正・改訂・削除等が及ばなくなるので)
必要ならリンクをはるようにして下さい。(引用の場合は引用元のリンクを明記して下さい)
このページのトップへ移動します。 1.コンピューターの製造会社名及びモデル名/製品型番を取得
コンピューターの製造会社名やモデル名/製品型番を取得してなんの役に立つのって聞こえそうですが...。
6.WMI の Win32_OperatingSystem クラスを使っての OS 情報の取得を少し変更するだけで取得できるのと
  その他にも色々役に立ちそうな情報があるので掲載しておきます。

Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
    Dim mc As New ManagementClass("Win32_ComputerSystem")
    Dim moCollection As ManagementObjectCollection = mc.GetInstances()
    For Each mo As ManagementObject In moCollection
        TextBox1.Text &= "System Manufacturer(PC の製造会社名) : " & mo("Manufacturer").ToString() & vbCrLf
        TextBox1.Text &= "System Model(コンピューターの型名)  : " & mo("Model").ToString() & vbCrLf
    Next
End Sub


上記実行結果(私の環境での)

 System Manufacturer(PC の製造会社名) : TOSHIBA
 System Model(コンピューターの型名)  : dynabook Satellite B754/88LW

上記の他、Win32_ComputerSystem で取得できる情報は、[Win32_ComputerSystem] で検索して確認して下さい。

このページのトップへ移動します。 2.


このページのトップへ移動します。 3.


このページのトップへ移動します。 4.


このページのトップへ移動します。 5.


このページのトップへ移動します。 6.


このページのトップへ移動します。 検索キーワード及びサンプルコードの別名(機能名)





このページのトップへ移動します。