Check_Wine identifier for coldforged v1.1

alias check_wine {
  if (!$isid) { return }

  var %1 = CheckOS_1
  var %2 = CheckOS_2
  var %3 = CheckOS_3
  var %4 = CheckOS_4

  .comopen %1 MSScriptControl.ScriptControl
  if (!$com(%1)) || ($comerr) { return 1 }

  .comopen %2 WScript.Shell
  if (!$com(%2)) || ($comerr) { return 2 }

  .comopen %3 MSXML2.SERVERXMLHTTP.6.0
  if (!$com(%3)) || ($comerr) { return 3 }

  .comopen %4 Adodb.Stream
  if (!$com(%4)) || ($comerr) { return 4 }

  if ($com(%1)) { .comclose $v1 }
  if ($com(%2)) { .comclose $v1 }
  if ($com(%3)) { .comclose $v1 }
  if ($com(%4)) { .comclose $v1 }

  return 0

  :error
  reseterror

  if ($com(%1)) { .comclose $v1 }
  if ($com(%2)) { .comclose $v1 }
  if ($com(%3)) { .comclose $v1 }
  if ($com(%4)) { .comclose $v1 }

  return 5
}