Vbscript 安全CRT向主机VBS发送命令

嘿，我尝试制作一个简单的脚本，可以登录并向主机/服务器发送命令：

Sub Main 
    crt.Screen.Synchronous = True
    crt.Session.Connect "ip adress"
    crt.Screen.WaitForString "Username: "
    crt.Screen.Send "username" & chr(13)
    crt.Screen.WaitForString "Password: "
    crt.Screen.Send "password" & chr(13)
    crt.Screen.Send "?" & chr(13)
    crt.Screen.Synchronous = False
End Sub

我的问题是它不会发送任何东西。

它现在可以工作了：

 Sub Main

  host = Array("host1", "host2")

  For each item in host

  Dim user
  user = "Username"


  Dim passwd
  passwd = "password"

  cmd = "/SSH2 /L " & user & " /PASSWORD " & passwd & " /C AES-192-CTR /M SHA2-256 " & item

  crt.Session.Connect cmd

  Dim tab, index, nTabCount

    nTabCount = crt.GetTabCount()

    for index = 1 to nTabCount
        set tab = crt.GetTab(index)
        tab.activate
        tab.screen.send "command" & vbcr
        crt.Sleep 5000
        crt.Session.Disconnect()
    next

  Next


End Sub

---

您是否将

crt

定义为会话本身？