php 获取计算机名称,PHP获取局域网中计算机名、IP地址与MAC地址

例子:

复制代码 代码示例:

//php获取ip的算法

//取得计算机名、IP地址与MAC地址等

//by www.jbxue.com

if(getenv('HTTP_CLIENT_IP')) {

$onlineip = getenv('HTTP_CLIENT_IP');

} elseif(getenv('HTTP_X_FORWARDED_FOR')) {

$onlineip = getenv('HTTP_X_FORWARDED_FOR');

} elseif(getenv('REMOTE_ADDR')) {

$onlineip = getenv('REMOTE_ADDR');

} else {

$onlineip = $HTTP_SERVER_VARS['REMOTE_ADDR'];

}

exec ("ping $onlineip");

$macaddress=exec ("arp -a | find /i".' "'.$onlineip.'"');

$computername=exec ('nbtstat -A'.' '.$onlineip.' | find /i "20"');

$MacName=(preg_split("/\s+/", trim($macaddress)));

$UserName=(preg_split("/\s+/", trim($computername)));

echo "计算机名:".$UserName[0]." --- "."IP 地址:".$MacName[0]." --- "."MAC 地址:".$MacName[1];

?>

  • 0
    点赞
  • 0
    收藏
    觉得还不错? 一键收藏
  • 0
    评论
在VB.NET获取局域网IP地址,可以使用System.Net.NetworkInformation命空间的相关类和方法。 首先,可以使用NetworkInterface类来获取本地计算机上的网络接口信息。可以通过NetworkInterface.GetAllNetworkInterfaces方法获取所有网络接口的列表,并遍历该列表来获取每个网络接口的信息。 然后,可以根据每个网络接口的信息,使用IPInterfaceProperties类的UnicastAddresses属性获取每个接口的单播地址列表。从这个列表,可以筛选出是IPv4地址、非回环地址、以太网地址等符合条件的IP地址。 最后,将符合条件的IP地址存储在一个集合,并将其打印出来或进行其他处理。 以下是一个简单的示例代码: ```vb Imports System.Net.NetworkInformation Module Module1 Sub Main() Dim ipAddresses As New List(Of String)() ' 获取所有的网络接口 Dim networkInterfaces As NetworkInterface() = NetworkInterface.GetAllNetworkInterfaces() For Each networkInterface As NetworkInterface In networkInterfaces ' 获取网络接口的IP属性 Dim ipProperties As IPInterfaceProperties = networkInterface.GetIPProperties() ' 获取接口的单播地址列表 Dim unicastAddresses As UnicastIPAddressInformationCollection = ipProperties.UnicastAddresses For Each unicastAddress As UnicastIPAddressInformation In unicastAddresses ' 筛选出IPv4地址、非回环地址和以太网地址 If unicastAddress.Address.AddressFamily = System.Net.Sockets.AddressFamily.InterNetwork AndAlso Not IPAddress.IsLoopback(unicastAddress.Address) AndAlso networkInterface.NetworkInterfaceType = NetworkInterfaceType.Ethernet Then ipAddresses.Add(unicastAddress.Address.ToString()) End If Next Next ' 打印IP地址 For Each ipAddress As String In ipAddresses Console.WriteLine(ipAddress) Next Console.ReadLine() End Sub End Module ``` 运行上述代码,就可以获取局域网IP地址,并将其打印出来。

“相关推荐”对你有帮助么?

  • 非常没帮助
  • 没帮助
  • 一般
  • 有帮助
  • 非常有帮助
提交
评论
添加红包

请填写红包祝福语或标题

红包个数最小为10个

红包金额最低5元

当前余额3.43前往充值 >
需支付:10.00
成就一亿技术人!
领取后你会自动成为博主和红包主的粉丝 规则
hope_wisdom
发出的红包
实付
使用余额支付
点击重新获取
扫码支付
钱包余额 0

抵扣说明:

1.余额是钱包充值的虚拟货币,按照1:1的比例进行支付金额的抵扣。
2.余额无法直接购买下载,可以购买VIP、付费专栏及课程。

余额充值