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. |
検索キーワード及びサンプルコードの別名(機能名) |