使用VBA连接远程计算机

Question

我想使用Excel（VBA宏）中的RDP（mstsc.exe）连接远程计算机。我正在使用以下代码。

代码：

Sub Connect()    
    RDPWindow = Shell("C:\windows\system32\mstsc.exe /admin /v:" & "ServerName", 1)   
End Sub

但我不想手动输入我的凭据。如何在代码中添加该内容，以便可以使用特定凭据直接连接任何远程计算机？

Answer 1

使用shell执行以下操作，将凭据放入以远程地址/名称为关键字的凭证存储中：

 cmdkey /generic:TERMSRV/10.1.2.3 /user:UUUU /pass:XXXX

使用以下命令运行TS：

 mstsc /v:10.1.2.3

完成后删除：

 cmdkey /delete:TERMSRV/10.1.2.3

Answer 2

无法传递用户名和密码，because there is no parameter for this.

但是Mstsc支持connection files