Securecrt 向主机 VBS 发送命令

Question

嘿，我已经尝试制作一个简单的脚本，可以登录并向 host/server 发送命令：

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

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

Answer 1

正在运行：

 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

Securecrt 向主机 VBS 发送命令

Secure CRT send command to an host VBS

vbscript

secure-crt