【VBA】【Excel(64bit)】WinSock 　getaddrinfoでホスト名からIPアドレスを調べる

ホスト名からIPアドレスを取得する処理サンプルを作ろうとgethostbynameと悪戦苦闘しているが、いまいちうまくできない。他に何か方法がないか調べていたら、たまたま stackoverflowのサイトを調べていたらgetaddrinfoを使ったホスト名からIPアドレスを取得するサンプルコードを発見。

そこで、そのコードを軸にちょっとだけ自分流にアレンジ

サンプルコード改

実行結果

--------テスト結果1---------
 エラー発生:そのようなホストは不明です。 (11001)
 --------テスト結果2---------
 23.42.121.60
 --------テスト結果3---------
 183.79.135.206,182.22.59.229
 --------テスト結果4---------
 172.217.26.14

ホスト名からIPアドレスが引けている！