->保存为xx.hta,运行
=======
<body>
<textarea id="htmScreen" style="width:600; height:400;" rows="1" cols="20"></textarea>
</body>
<script language=vbs>
option explicit
const cst_ComputerName="."
htmscreen.value=GetIpAddress
function GetIpAddress()
dim oWmi,oWmiNets,oTmp
set oWmi=GetObject("winmgmts:\\" & cst_ComputerName & "\root\cimv2")
set oWmiNets=oWmi.ExecQuery("select * from Win32_NetworkAdapterConfiguration")
dim strTmp
for each oTmp in oWmiNets
if oTmp.MacAddress<>"" then strTmp =strTmp & oTmp.MACAddress & vbcrlf
next
GetIpAddress=strTmp
set oWmi=nothing
set oWmiNets=nothing
set oTmp=nothing
end function
</script>