☰

重新排序远程桌面连接

tag-icon • tag-icon remote-desktop windows
重新排序远程桌面连接

我安装了 adminpak.msi，这样我就可以使用远程桌面 MMC 连接到我的所有服务器。当我添加服务器时，它会进入可用服务器列表的底部。我不知道如何将它们重新排序为更合乎逻辑的分组，或者至少按字母顺序排列。有什么想法吗？

答案1

皇家 TS可以帮助您管理/组织远程桌面连接。此外端子可能会做类似的事情。另一种方法是为每个连接创建远程桌面快捷方式，并将它们存储在一个可以按名称排序的文件夹中。

答案2

我强烈推荐一款免费应用程序，我在过去几周一直在使用它（我与它没有任何关系），叫做RD 标签（经过鸟类波浪）。该工具非常灵活，允许您创建多个窗格，每个窗格包含多个选项卡，并具有快速缩略图预览访问、几乎所有功能的键盘快捷键（非常适合不喜欢被迫使用鼠标的人），甚至还有该工具的命令行/脚本自动化。排序和分组只需拖放即可，您可以轻松导入现有的远程桌面配置文件。

答案3

我找到了一个解决方案。看起来 msc 文件有一个无法访问的加密区域。所以我找到了 Brett Clarke 的脚本http://twistingthewick.org。我对其进行了一些修改，添加了结构和登录信息。它使用了我们的老朋友 SendKeys。

您需要创建一个包含以下内容的 CSV：

服务器名称或 IP、描述、用户 ID、域

每台服务器一行。您必须按您想要的方式对其进行排序。

您还可以使用以下语法添加一行以将其分解为单独的广告：

---,某名,,

some-name 未使用；每个部分都命名为远程桌面。如果有人知道如何更改名称，请告诉我。

目前看来，这似乎可行，并且允许在需要添加服务器时随时重建。您可能需要调整系统的延迟。

哦，这可能无法在 Vista 或 Windows 7 上运行，因为出于安全目的，SendKeys 方法已被禁用。

我喜欢共享驱动器，所以这个脚本勾选了该复选框。您可以修改它来执行几乎任何您需要的操作。

不过，首先，您需要从一个空白的 tsmmc.msc 文件开始。打开 MMC 并添加远程桌面管理单元。脚本希望它在 c:\Projects\SortMmc 中名为 blanktsmmc.msc。当然，您需要加载 Windows Admin Pak。

脚本是实用的，旨在提高编码速度，而不是为了美观。如果您做出改进，请分享。

我是新来的。如果你喜欢这个，我会很感激！

' CreateTSMMC.vbs
' Script to re-create tsmmc entries in order
' Author: Brett Clarke http://twistingthewick.org
' Version: 0.1 – 21/06/2007
'
' Updated by Brian Travis, adding login and drive info
' Version: 0.2 - 2009-08-26
'———————————————————————

'Declare some variables
Option Explicit
Const ForReading = 1
Dim objShell, objFSO, objFileCopy, objDictionary, objTextFile
Dim strBlankMMC, strWorkingMMC, strTemplate, strNextLine
Dim arrRDPList
Set objShell = CreateObject("WScript.Shell")
Set objFSO = CreateObject("Scripting.FileSystemObject")
Set objDictionary = CreateObject("Scripting.Dictionary")
strBlankMMC = "c:\Projects\SortTsmmc\blanktsmmc.msc"
strWorkingMMC = "c:\windows\system32\tsmmc.msc"
strTemplate = "c:\Projects\SortTsmmc\tsmmc.csv"
Set objFileCopy = objFSO.GetFile(strBlankMMC)
Set objTextFile = objFSO.OpenTextFile (strTemplate, ForReading)

' copy the blank template file over the working file
objFileCopy.Copy (strWorkingMMC)

' start up MMC
objShell.Run "c:\windows\system32\tsmmc.msc"

' wait for the app to start
Wscript.Sleep 1500

' get to the plugin
objShell.SendKeys "{DOWN}"

' read the CSV file, and parse the entries into the MMC session
Do Until objTextFile.AtEndOfStream
    strNextLine = objTextFile.ReadLine
    arrRDPList = Split(strNextLine , ",")

    if arrRDPList(0) = "---" then
        ' create a new group
        objShell.SendKeys "%f"
        objShell.SendKeys "m"
        objShell.SendKeys "%d"
        objShell.SendKeys "rem"
        objShell.SendKeys "%a"
        objShell.SendKeys "%c"
        objShell.SendKeys "{ENTER}"
        objShell.SendKeys "{END}"
    else
        objShell.SendKeys "+{F10}"
        objShell.SendKeys "A"
        objShell.SendKeys arrRDPList(0)
        objShell.SendKeys "{TAB}"
        Wscript.Sleep 100
        objShell.SendKeys "{TAB}"
        Wscript.Sleep 100
        objShell.SendKeys arrRDPList(1)

        Wscript.Sleep 100
        objShell.SendKeys "{TAB}"
        Wscript.Sleep 100
        objShell.SendKeys "{TAB}"
        objShell.SendKeys arrRDPList(2)

        Wscript.Sleep 100
        objShell.SendKeys "{TAB}"

        objShell.SendKeys "{TAB}"
        objShell.SendKeys arrRDPList(3)

        objShell.SendKeys "{TAB}"
        objShell.SendKeys " "

        objShell.SendKeys "{ENTER}"
        Wscript.Sleep 100

        ' turn on drive sharing
        Wscript.Sleep 100
        objShell.SendKeys "{TAB}"
        objShell.SendKeys "{END}"
        objShell.SendKeys "+{F10}"
        objShell.SendKeys "r"
        objShell.SendKeys "+{TAB}"
        objShell.SendKeys "{RIGHT}"
        objShell.SendKeys "{RIGHT}"
        objShell.SendKeys "{TAB}"
        objShell.SendKeys "{TAB}"
        objShell.SendKeys " "
        objShell.SendKeys "{ENTER}"

        ' get back to left column
        objShell.SendKeys "+{TAB}"  
    end if   
Loop

objShell.SendKeys "^s"

WScript.Quit

答案4

在 tsmmc.msc 中有一个可以修改的部分。如果您添加另一个字符串 ID="#"，则可以将该 ID 与任何字符串名称="Name" ID=# 关联

相关内容