Envio de um Comando de Inicialização

O script a seguir pode ser usado para enviar um comando de inicialização para um equipamento no E3, Power ou Water usando uma operação de escrita em um Tag de Inicialização e ao mesmo tempo ler as informações de status retornadas por este comando.

Sub CommandButton1_Click()
  Dim vWriteStatus(4)
  if (Application.GetObject("[Driver Keller].InitAndRelease").WriteEx(vValue, vTimestamp, _
      vQuality, vWriteStatus)) Then
    Screen.Item("TextBox1").Text = vWriteStatus(0)
    Screen.Item("TextBox2").Text = vWriteStatus(1)
    Screen.Item("TextBox3").Text = vWriteStatus(2)
    Screen.Item("TextBox4").Text = vWriteStatus(3)
    Screen.Item("TextBox5").Text = vWriteStatus(4)
  End If
End Sub

NOTA

Não é possível ler informações de status de escrita no Elipse SCADA.