インターフェースの一覧が取得できないって人がいるようです

知ってる限りでは動かない人はいなかったのですが、動かない人が
いるようです。
動かないOSはXPです。
プロバイダは光らしいのですが、どういった可能性が考えられますか？

Dim addressList = Dns.GetHostEntry(Dns.GetHostName).AddressList
For i = 0 To addressList.Count - 1
　If addressList(i).AddressFamily = AddressFamily.InterNetwork Then
　　UserInterface.Items.Add(addressList(i).ToString)
　　If UserInterface.Items(UserInterface.Items.Count - 1) = UserInterface.Text Then
　　　UserInterface.SelectedIndex = UserInterface.Items.Count - 1
　　End If
　End If
Next
プログラム中の上のコードで、UserInterfaceって項目にIPアドレスが追加されていくはずなんだけど、空っぽのようです。
とりあえず新しいものには、For直後に内容をファイルに出すようにデバッグコードをいれたので、同様の事象になったらデータが取れる予定です