Telnet到Sco unix执行命令并取得结果

 LOCAL telnet1
  telnet1=CREATEOBJECT("Dart.Telnet.1")
 Telnet1.Timeout = 100
 Telnet1.TermType = "vt100"
  False=.t.
  True=.t.
  
vbCrLf=CHR(13)+CHR(10)
 ** logfile = "Host" + HostIP + ".log"
 ** Telnet1.Trace(logfile, False, True, vbCrLf + "---> ", vbCrLf + "<--- ")
  
 thisform.AddLog(Tsys_kind,"正在连接主机 " + HostIP + " ..." + vbCrLf)
 
  
 ok = Telnet1.Connect(HostIP, 23)
  IF ok=""
   thisform.AddLog(Tsys_kind,"银联前置["+HostIP+"]连接失败!同银联中心链路无法检查。")
   thisform.showinfo("99","错误：银联前置连接失败!")
 thisform.warn
 thisform.command4.Picture="deng3.gif"
 thisform.command4.refresh
  telnet1.close
  RETURN
  ELSE
 telnet1.close
 Telnet1.Timeout = 10000
 Telnet1.Connect(HostIP, 23)  
  ENDIF 
 thisform.AddLog(Tsys_kind,"已连接" + vbCrLf)
 Data = ""
 Telnet1.Search (@Data, "login:")
 * thisform.AddLog( Tsys_kind,Data)
 Telnet1.Send(User_name + vbCrLf)
 Data = ""
 Telnet1.Search(@Data, "Password:")
 *  thisform.AddLog(Tsys_kind,Data)
 Telnet1.Send (User_pwd + vbCrLf)
 Data = ""
 Telnet1.Search(@Data, ">")
   *   thisform.AddLog(Tsys_kind,Data)
 Telnet1.Send ("su" + vbCrLf)
 Telnet1.Search (@Data, "Password:")
 *  thisform.AddLog(Tsys_kind,data)
 Telnet1.Send(root_pwd + vbCrLf)
 Telnet1.Search(@Data, "#")
 * thisform.AddLog(Tsys_kind,Data)
 Telnet1.Send(shell_cmd + vbCrLf)
 Telnet1.Search(@Data, "#")
   * thisform.AddLog(Tsys_kind,data)