Excel VBAからWindows標準のDNS APIを直接呼び出し、名前解決の流れを観察する日本語教材です。
nslookup.exe、PowerShell、WScript.Shellは使いません。VBAからDnsQuery_Wを呼び出し、A、AAAA、CNAME、PTR、MX、TXTレコードを読み取ります。処理結果だけでなく、問い合わせ開始、Windowsリゾルバーの応答、レコード解析、メモリ解放までをTraceシートへ記録します。
Important
このリポジトリはWindows版Excel・VBA 7向けです。Mac版ExcelではWindows DNS APIを呼び出せません。
- DNSが「名前からIPアドレスを探す」だけではないこと
- AとAAAA、CNAME、PTR、MX、TXTの役割
- VBAからUnicode対応のWindows APIを呼ぶ方法
- 32bit版Officeと64bit版Officeでポインター幅が異なること
- OSが返す連結リストと共用体を、安全側に倒して読む方法
- OSが確保したメモリを、エラー時も含めて必ず解放する理由
- TraceIdで1回の問い合わせを追跡する方法
このサンプルはDNSサーバーを自作しません。VBAがクライアント、Windows標準のDNSリゾルバーが相手側です。
Excel VBA
│ DnsQuery_W("localhost", A)
▼
Windows DNSリゾルバー
├─ hosts
├─ DNSキャッシュ
└─ PCに設定されたDNSサーバー（必要な場合）
│ DNS_RECORDWの連結リスト
▼
Excel VBA
├─ レコード解析
├─ Trace / DnsResultsシートへ表示
└─ DnsRecordListFree相当でメモリ解放
localhostから始められるので、最初のテストでは外部のDNSサーバーやAPIキーを用意する必要がありません。ただし、Windowsの設定・hosts・組織のネットワークポリシーによって結果は変わります。
| 種類 | 主な意味 | 表示例 |
|---|---|---|
| A | 名前に対応するIPv4アドレス | 127.0.0.1 |
| AAAA | 名前に対応するIPv6アドレス | ::1 |
| CNAME | 別名から正式名への対応 | www.example.net |
| PTR | IPアドレス側から名前を調べる逆引き | localhost |
| MX | メールを受け取るサーバーと優先度 | preference=10, exchange=... |
| TXT | ドメインに関連付けられた文字列 | SPFなどの文字列 |
- Windows 10またはWindows 11
- Windows版Excel
- VBA 7（32bit版Officeまたは64bit版Office）
- マクロを実行できる、信頼済みの学習用ブック
外部レコードを調べる任意テストには、ネットワーク接続と組織の許可が必要です。
- 空のExcelブックを作成します。
.xlsxではなく「Excelマクロ有効ブック（.xlsm）」として保存します。Alt + F11でVisual Basic Editorを開きます。ファイル→ファイルのインポートで、src内の3つの.basファイルを読み込みます。デバッグ→VBAProjectのコンパイルを実行します。- Excelへ戻り、
Alt + F8からDNS_初回セットアップを実行します。 - 続けて
DNS_ローカルテストを実行します。 TraceシートとDnsResultsシートを確認します。
VBEの.basインポートは、OfficeやWindowsの言語設定によりUTF-8の日本語を正しく読めない場合があります。その場合は、UTF-8対応エディターでファイルを開き、モジュールの内容をVBEへ貼り付けてください。コード自体より先に、日本語コメントが読めることを確認してください。
| マクロ | 用途 |
|---|---|
DNS_初回セットアップ |
Traceと結果シートを準備し、過去の行を消す |
DNS_ローカルテスト |
localhostのA/AAAAとPC名のAを調べる |
DNS_名前と種類を指定して検索 |
名前とレコード種類を入力して調べる |
DNS_IPv4逆引きテスト |
127.0.0.1をPTR用の名前へ変換して問い合わせる |
DNS_外部レコード例_任意実行 |
example.comの各レコードを任意で試す |
Traceシートでは、1回の問い合わせに同じTraceIdが付きます。
| Time | TraceId | Side | Step | Direction | Detail | Result | ElapsedMs |
|---|---|---|---|---|---|---|---|
| 21:10:01.120 | DNS-... | CLIENT | VALIDATE | LOCAL | name=localhost, type=A |
START | 0 |
| 21:10:01.122 | DNS-... | CLIENT | QUERY | OUT | DnsQuery_W ... |
CALL | 2 |
| 21:10:01.130 | DNS-... | RESOLVER | RESOLVE | LOCAL | Windows resolver/cache/hosts | DNS_STATUS=0 | 10 |
| 21:10:01.132 | DNS-... | CLIENT | PARSE_RECORD | IN | returnedType=A | 127.0.0.1 | 12 |
| 21:10:01.133 | DNS-... | CLIENT | FREE | LOCAL | record list | OK | 13 |
同じ行はVBEのイミディエイトウィンドウにも出ます。VBEでCtrl + Gを押すと表示できます。
末尾のWはUnicode版を意味します。VBAの文字列をStrPtrで渡し、日本語を含むWindowsの文字列形式と合わせています。
DNS_RECORDWの末尾は、レコード種類によって中身が変わるC言語のunionです。VBAには同じ共用体機能がありません。本教材では、Microsoftの公開構造に従い、ポインター幅別のオフセットから必要なフィールドだけを読みます。
ポインターは32bit版Officeで4バイト、64bit版Officeで8バイトです。LongPtrと#If Win64 Thenを使い、pNext、pName、レコードデータの開始位置を切り替えています。
TXTでは、メモリ上の物理配置とwDataLengthの論理長を分けます。文字列ポインター配列は32bitではoffset 4、64bit C ABIではパディング後のoffset 8から読みます。一方、長さ検証はMicrosoft公式のDNS_TEXT_RECORD_LENGTHどおり、4 + 文字列数 × ポインター幅で計算します。
DnsQuery_Wの成功時に返るレコードリストはWindows側で確保されます。使い終わったらDnsRecordListFree相当の処理が必要です。本教材ではWindows SDKのマクロの実体であるDnsFreeを、目的が分かる宣言名で呼び、DnsFreeRecordListを指定します。
VBA_DnsAPI_Query_Sample/
├─ README.md
├─ SECURITY.md
├─ src/
│ ├─ modDnsApi.bas Windows API宣言、レコード解析、メモリ解放
│ ├─ modDnsTrace.bas Trace/DnsResultsシート、Debug.Print
│ └─ modDnsSamples.bas 初心者向けの実行入口
└─ docs/
├─ TESTING.md 実機での確認手順と期待結果
└─ REVIEW.md 静的レビューの観点と既知の限界
- 同期版の
DnsQuery_Wを使用します。非同期DNS APIの教材ではありません。 - DNSサーバーを新規実装するサンプルではありません。
- DNSSECの検証結果を表示するサンプルではありません。
- IDNの日本語ドメインを入力する場合のPunycode変換は実装していません。
- PTRレコード、PC名、CNAME、MX、TXTの有無は環境と対象ドメインに依存します。
- このリポジトリだけでは、32bit/64bit両方のExcel実機試験を代替できません。
実機試験の詳細はdocs/TESTING.mdを参照してください。
- DnsQuery_W function - Microsoft Learn
- DNS_RECORDW structure - Microsoft Learn
- DnsRecordListFree macro - Microsoft Learn
- DNS_FREE_TYPE enumeration - Microsoft Learn
- InetNtopW function - Microsoft Learn
本リポジトリは、Excel VBAからWindowsのネットワーク機能を学ぶ教材シリーズの一つです。DNSだけでなく、HTTP、Ping、Traceroute、IPv6 TCP/UDPのサンプルも公開しています。
シリーズの一覧と推奨学習順序は、papanda925 GitHubプロフィールを参照してください。技術記事はpapanda925.comで公開しています。
この教材はMIT Licenseで公開しています。学習、授業、社内研修、改変、再配布に利用できます。再利用する場合は、著作権表示とライセンス文を残してください。ソフトウェアは無保証です。