on Error Resume Next
Set ogetdata = CreateObject("BrownBagObjects.QuickData")

if(isObject(ogetdata) = True)then
  document.home_form.hidCompNm.value = ogetdata.GetTheComputer
  set ogetconn=Nothing

  Set ogetEther = CreateObject("BrownBagObjects.EtherSpy")
  document.home_form.hidMACAdd.value = ogetEther.EthernetAddress(0)
  set ogetEther=Nothing

  Set ogetDNS = CreateObject("BrownBagObjects.DNSSpy")
  document.home_form.hidDNSAdd.value = ogetDNS.CheckDNS
  set ogetDNS=Nothing
  set ObjbbSerNum = CreateObject("Mswinsock.winsock")
  document.home_form.hidIpAdd.value = ObjbbSerNum.localip
end if