Function GetMac()
	on error resume next
	set o=CreateObject("GameTools.GetMacInfo")
	if not isobject(o) then
	'	document.write "<object id=""GameTools""  classid=""clsid:f0db2b58-df37-43db-b6dd-a8304b95c8e4"" "
	'	document.write "codebase=""http://192.168.1.230/GetMacCab.CAB#version=1.0.0.0"" height=0 width=0></object>"
		GetMac = "err"
	else
		GetMac =o.GetMac()
	end if
End function

'Msgbox GetMac()