按会话/客户端设置RDS默认打印机

我们有一台运行RDS的Multipoint 2012服务器,用于在我们的设施中设置哑terminal。 客户以其位置命名。 每个位置使用自己的打印机。 由于客户端比用户多,我们将有一个用户从多个位置login。

我开发了一个在RDS会话上运行的VBS脚本,根据客户端的位置设置默认打印机。 代码运行良好。 但是,当用户也从不同位置login时,该用户的所有会话都将获得新的默认打印机。 这导致人们到处追逐文书工作。

有什么我可以做的只是改变当前会话的默认打印机,而不是整个用户configuration文件?

这是我的脚本:

Dim ClientName Dim Shell Dim WSHNetwork Set Shell = CreateObject("WScript.Shell") Set fso = CreateObject("Scripting.FileSystemObject") ClientName = LCase(Shell.ExpandEnvironmentStrings("%ClientName%")) Set WSHNetwork = CreateObject("WScript.Network") If InStr(ClientName, "inspection") > 0 Then WSHNetwork.SetDefaultPrinter "[INSPECTION_PRINTER_NAME]" ElseIf InStr(ClientName, "tooling") > 0 Then WSHNetwork.SetDefaultPrinter "[TOOLING_PRINTER_NAME]" ElseIf InStr(ClientName, "assembly") > 0 Then WSHNetwork.SetDefaultPrinter "[ASSEMBLY_PRINTER_NAME]" ElseIf InStr(ClientName, "lathe") > 0 Then WSHNetwork.SetDefaultPrinter "[LATHE_PRINTER_NAME]" End If 

如果没有办法做我正在尝试的东西,我会接受build议,做一些不同的事情。