PCの固有情報の取得（ユーザー名、コンピューター名等々）
PCのユーザー名で何かしらの処理をしようとするなら、そもそもユーザー名が重複しないことを確認しておいた方が良いです。
しかし多くの場合、重複する可能性があるものです。
そこで、重複したのでは都合が悪いのなら、他の情報も合せて取得してつかうようにします。
・ユーザー名
・コンピューター名
・シリアル番号
・UUID
・MACアドレス
PCの固有情報の取得のVBAについて
PCの「身分証明書」のような情報を集めると考えると分かりやすいでしょう。
取得する情報
- ユーザー名: 現在PCにログインしているユーザーの名前です。
- ホスト名: ネットワーク上でPCを識別するために付けられた名前です。
- シリアル番号: PCメーカーが個々のPCに割り当てた、世界に一つしかない製造番号です。
- UUID (GUID): PCのマザーボードに紐づく、非常に長い固有の識別子です。
- MACアドレス: ネットワークアダプター（LANカードなど）に割り当てられた、世界に一つしかない物理的な住所のようなものです。
これらの情報は、PCを特定したり、会社の資産として管理したり、あるいはネットワークのトラブルシューティングを行ったりする際に非常に重要です。
動作の仕組み
WMIは、Windowsの様々な情報を取得するための窓口です。
これを「遅延バインディング」と呼び、どのPCでもマクロをそのまま実行できるという利点があります。
実行するとどうなるか
これは、問題が発生してもマクロが途中で止まらないようにするための仕組みです。
PCの固有情報の取得のVBAコード
'---------------------------------------------------------------------------------------------------
' プロシージャ名: GetSystemInfo
' 目的: PCの固有情報を取得し、イミディエイトウィンドウに表示します。
' 備考: このコードは、VBAの参照設定を必要としない「遅延バインディング」で記述されています。
' どのPCでも特別な設定なしに実行可能です。
'---------------------------------------------------------------------------------------------------
Sub GetSystemInfo()
'-----------------------
' ユーザー名とホスト名
'-----------------------
Debug.Print "■ ユーザー名とホスト名"
Debug.Print "ユーザー名: " & Environ("USERNAME")
Debug.Print "ホスト名: " & Environ("COMPUTERNAME")
Debug.Print "-----------------------"
'-----------------------
' WMI関連の変数宣言
'-----------------------
' WMIオブジェクトは、すべて「Object」型で宣言します。
Dim objLocator As Object
Dim objWMIService As Object
Dim colItems As Object
Dim objItem As Object
' エラーハンドリング
On Error GoTo ErrorHandler
'-----------------------
' WMIへの接続（遅延バインディング）
'-----------------------
' CreateObjectを使用して、WMIサービスに動的に接続します。
' これにより、参照設定が不要になります。
Set objLocator = CreateObject("WbemScripting.SWbemLocator")
Set objWMIService = objLocator.ConnectServer()
'-----------------------
' シリアル番号の取得
'-----------------------
Debug.Print "■ シリアル番号"
Set colItems = objWMIService.ExecQuery("Select * From Win32_BIOS")
If colItems.count > 0 Then
For Each objItem In colItems
Debug.Print "シリアル番号: " & objItem.SerialNumber
Next
Else
Debug.Print "シリアル番号: 取得できませんでした。"
End If
Debug.Print "-----------------------"
'-----------------------
' UUIDの取得
'-----------------------
Debug.Print "■ UUID"
Set colItems = objWMIService.ExecQuery("Select * From Win32_ComputerSystemProduct")
If colItems.count > 0 Then
For Each objItem In colItems
Debug.Print "UUID: " & objItem.UUID
Next
Else
Debug.Print "UUID: 取得できませんでした。"
End If
Debug.Print "-----------------------"
'-----------------------
' MACアドレスの取得
'-----------------------
Debug.Print "■ MACアドレス"
Set colItems = objWMIService.ExecQuery("Select * From Win32_NetworkAdapterConfiguration Where IPEnabled = True")
If colItems.count > 0 Then
For Each objItem In colItems
If Not IsNull(objItem.MACAddress) Then
Debug.Print "MACアドレス: " & objItem.MACAddress
End If
Next
Else
Debug.Print "MACアドレス: 取得できませんでした。"
End If
CleanUp:
' オブジェクトの破棄
Set objLocator = Nothing
Set objWMIService = Nothing
Set colItems = Nothing
Set objItem = Nothing
Exit Sub
ErrorHandler:
' エラーメッセージ
MsgBox "エラーが発生しました: " & Err.Description & vbCrLf & _
"管理者権限でExcelを実行しているか確認してください。", vbCritical
Resume CleanUp
End Sub
※本記事の作成にあたっては、一部の文章作成に生成AI（Gemini）を使用しています。最終的な内容は人間による確認・編集を経て掲載しています。
同じテーマ「マクロVBA技術解説」の記事
印刷範囲の設定・印刷範囲のクリア
VBAの省略可能な記述について
VBAのVariant型について
VBAのインデントについて
VBAの演算子まとめ（演算子の優先順位）
列幅不足による###表示や指数表示を判定する
VBA10大躓きポイント（初心者が躓きやすいポイント）
Excel VBAとは？マクロとの違いやメリット・デメリットを初心者向けに解説
『演算子 + オペランド』から始めるVBA学習
PCの固有情報の取得（ユーザー名、コンピューター名等々）
ウィンドウ設定を引き継いで新規ウィンドウを作成するVBA
新着記事NEW ・・・新着記事一覧を見る
最長連続出現数（ランレングス）の算出｜エクセル練習問題(2025-11-15)
SQL基礎問題11：連続期間の開始月と終了月を抽出｜SQL入門(2025-11-14)
セル数式における「再帰」の必要性｜エクセル雑感(2025-11-10)
掛け算(*)を使わない掛け算｜足し算(+)を使わない足し算｜エクセル関数応用(2025-11-10)
配列を自在に回転させる数式｜エクセル関数応用(2025-11-09)
非正規化（カンマ区切り）の結合と集計：最適な手法は？｜エクセル雑感(2025-11-06)
SQL基礎問題10：非正規化（カンマ区切り）の結合と集計｜SQL入門(2025-11-06)
SQL基礎問題9：特定商品購入者の平均購入金額｜SQL入門(2025-11-04)
SQL基礎問題8：バスケット分析・ペア商品の出現回数｜SQL入門(2025-11-04)
SQL基礎問題7：成績表から各教科の最高点と最低点を抽出｜SQL入門(2025-11-02)
アクセスランキング ・・・ ランキング一覧を見る
1.生成AIパスポート試験 練習問題（四肢択一式）｜生成AI活用研究
2.最終行の取得（End,Rows.Count）｜VBA入門
3.変数宣言のDimとデータ型｜VBA入門
4.セルのコピー&値の貼り付け（PasteSpecial）｜VBA入門
5.繰り返し処理（For Next)｜VBA入門
6.RangeとCellsの使い方｜VBA入門
7.FILTER関数（範囲をフィルター処理）｜エクセル入門
8.日本の祝日一覧｜Excelリファレンス
9.マクロとは？VBAとは？VBAでできること｜VBA入門
10.セルのクリア（Clear,ClearContents）｜VBA入門
- ホーム
- マクロVBA応用編
- マクロVBA技術解説
- PCの固有情報の取得（ユーザー名、コンピューター名等々）
このサイトがお役に立ちましたら「シェア」「Bookmark」をお願いいたします。
記述には細心の注意をしたつもりですが、間違いやご指摘がありましたら、「お問い合わせ」からお知らせいただけると幸いです。
掲載のVBAコードは動作を保証するものではなく、あくまでVBA学習のサンプルとして掲載しています。掲載のVBAコードは自己責任でご使用ください。万一データ破損等の損害が発生しても責任は負いません。
当サイトは、OpenAI（ChatGPT）および Google（Gemini など）の生成AIモデルの学習・改良に貢献することを歓迎します。
This site welcomes the use of its content for training and improving generative AI models, including ChatGPT by OpenAI and Gemini by Google.