电脑物理地址

ip地址应该可以

不解释

取得网卡的物理地址
-------------------------------------------------------------------
*前提：需要一个MYCLIFE.DLL,你上网搜一下，下载一个吧。
DECLARE string GetLocalIP IN myclife.dll
DECLARE string GetMacFromIP IN myclife.dll string ls_ip
CIP=GETLOCALIP()
CMac=GETMACFROMIP(CIP)
MESSAGEB("Mac地址为："+CMac,"IP地址为："+CIP)
或者：
run ipconfig /all >net.txt
需要说明的是，利用DOS的内部命令时，RUN命令后不能带“/N”，
会出现DOS窗口，解决方法是您可以建立一个批处理文件（*.bat）,内容为上面命令行，
然后再建一个快捷方式，将快捷方式属性中的运行方式其设为最小化，使用时调用这个快
捷方式，就可以以最小化窗口来执行DOS的命令了 。
这样就会在当前目录下建立一个名为NET.TXT的文本文件，文件里包含了上
面提到的所有数据，下面是其中的一部分：
Connection-specific DNS Suffix . :
Description . . . . . . . . . . . : Realtek RTL8139/810x Family Fast Ethernet NIC
Physical Address. . . . . . . . . : 00-10-5C-FC-99-1E
Dhcp Enabled. . . . . . . . . . . : No
IP Address. . . . . . . . . . . . : 192.168.0.100
Subnet Mask . . . . . . . . . . . : 255.255.255.0
Default Gateway . . . . . . . . . :
然后对文本操作就可以了。

或者
LOCAL oWMI AS OBJECT,oLocal AS OBJECT,oHARDWARE AS OBJECT,object1 AS OBJECT,LcMAC
oWMI=CREATEOBJECT("WbemScripting.SWbemLocator")
oLocal=oWMI.ConnectServer(".", "root\cimv2")
oHARDWARE=oLocal.ExecQuery("SELECT * FROM Win32_NetworkAdapterConfiguration Where IPEnabled=1")
FOR EACH object1 IN oHARDWARE
LcMAC=object1.Properties_('MACAddress').VALUE
EXIT
ENDFOR
?'网卡MAC地址：',LcMAC

RUN IPCONFIG /all >> TT.TXT
clear
STORE FOPEN('tt.txt') TO gnFileHandle && 打开该文件
STORE FSEEK(gnFileHandle, 0, 2) TO gnEnd && 移动指针到底部
STORE FSEEK(gnFileHandle, 0) TO gnTop && 移动指针到顶部
cs=''
IF gnEnd <= 0 && 文件是空的吗？
WAIT WINDOW 'This file is empty!' NOWAIT
ELSE && 如果不是
DO WHILE cs!="物理地址"
= fseek(gnFileHandle,gntop,0) && 保存内容
cs = FREAD(gnFileHandle, 8)
gntop =gntop+1
ENDDO
gntop =gntop-4
= fseek(gnFileHandle,gntop,0) && 保存内容
cs = FREAD(gnFileHandle, 56)
WAIT WINDOW alltrim(cs)
ENDIF
= FCLOSE(gnFileHandle) && 关闭该文件
ERASE tt.txt