sub myReadMAC()
 dim curlocalip,curmac
 ActiveXReadMAC.ReadLocalIP curlocalip,curmac
 mylocalip=curlocalip
 mymac=curmac
' myReadMAC = curlocalip
' ActiveXReadMAC.ReadMAC curresult
' myReadMAC = curresult
end sub