On Error resume next
set cx=createobject("ADODB.Connection")
if Err.Number<> 0  then
   WScript.Stdout.Write "ZBX_NOTSUPPORTED"
else
   cx.connectionstring="dsn=localserver;uid=sa;pwd=sa;"
   cx.open
   if Err.Number<> 0  then
      WScript.Stdout.Write "ZBX_NOTSUPPORTED"
   else
      set cr=createobject("ADODB.Recordset")
      set cr.activeconnection=cx
      cr.open "select count(*) from History"
      if Err.Number<> 0  then
         WScript.Stdout.Write "ZBX_NOTSUPPORTED"
      else
         for each x in cr.fields
           WScript.Stdout.Write  x.value
           if Err.Number<> 0  then
              WScript.Stdout.Write "ZBX_NOTSUPPORTED"
           else
           end if
         next
      end if
   end if
end if