微软的函数居然获得的IP和机器名是异常的

微软的函数居然获得的IP和机器名是错误的
Dim   MyIp   As   IPHostEntry   =   Dns.GetHostEntry(Dns.GetHostName)
  '获取本机机器名
Dim   Name   As   String   =   MyIp.HostName.ToString
  '获取本机IP地址
Dim   Ip   As   String   =   MyIp.AddressList.GetValue(0).ToString

机器名是   078   IP   :192.168.1.100   无盘机器   XPSP1系统

我用上面的函数获得的IP和机器名居然都是   0.0.0.58
我在注册表里查0.0.0.58居然没有记录
谁能帮我解决这个问题啊？

[解决办法]
没见过，帮顶.
[解决办法]
我试了一下代码是正常。。。
[解决办法]
2005获得本机机器名 strUserName = SystemInformation.ComputerName
我试过好用的
[解决办法]
strUser = SystemInformation.Computername '获取计算机名
[解决办法]
这样的话你要查询网卡IP，而不是系统IP。。。


[解决办法]
试试这个
ProcessStartInfo psi = new ProcessStartInfo( "ipconfig ", "/all ");
psi.RedirectStandardOutput = true;
psi.UseShellExecute = false;
Process p = Process.Start(psi);
Console.WriteLine(Regex.Match(p.StandardOutput.ReadToEnd(), @ "[0-9A-F]{2}(-[0-9A-F]{2}){5} "));