Question

您好，我已将ssh宏写入服务器，其用户名和密码分别存储在A1和B1处。调用宏后，腻子将引发错误网络错误：无法分配请求的地址

Sub putty()
    Dim un As String, pwd As String, pcmd As String, pline As String
    Dim shellObj As Object, runCmd As Object, sOut As Object  

    un = Range("A1").Value
    pwd = Range("B1").Value
    Set shellObj = CreateObject("WScript.Shell")
    pcmd = "C:\Program Files\PuTTY\putty.exe " & un & "@15.xx.xx.xx -pw " & 
    pwd & " who"
    Set runCmd = shellObj.exec(pcmd)
    Set sOut = runCmd.StdOut

    While Not sOut.AtEndOfStream
        pline = sOut.ReadLine
        Debug.Print pline
    Wend
End Sub

是否有此任何解决方法。

Answer 1

确保正确设置了默认端口。如果您打开腻子，则“默认设置”中的端口字段可能不为空

Answer 2

一个选项是根据文档直接用-P <port>（例如-P 22）指定端口： https://the.earth.li/~sgtatham/putty/0.74/htmldoc/Chapter5.html#pscp-usage

即使在注册表中没有存储“默认设置”会话，PuTTY UI似乎默认情况下也会将“端口”值显示为22，因此即使无效，它也似乎是有效的。解决方法是启动PuTTY，选择“默认设置”，然后单击“加载/保存”。

编辑：这是PuTTY 0.74（https://www.chiark.greenend.org.uk/~sgtatham/putty/wishlist/pscp-port-0.html）中的一个已知错误。

腻子：网络错误：无法分配请求的地址

2 个答案: