使用VBA连接远程计算机

我想通过使用Excel（VBAmacros）中的RDP（mstsc.exe）来连接远程计算机。 我正在使用下面的代码。

码：

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

但我不想手动input我的凭据。 我怎样才能在我的代码中添加这个东西，以便我可以通过使用特定的凭据直接连接任何远程机器？

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

传递的用户名和密码不可能， 因为没有这个参数。

但Mstsc支持连接文件