Assigning a Default Terminal Services (TS) Printer

To assign a default printer under Windows Server 2003 and Windows XP

Code:

strComputer = "."
Set objWMIService = GetObject("winmgmts:" _
    & "{impersonationLevel=impersonate}!\\" & strComputer & "\root\cimv2")

Set colInstalledPrinters =  objWMIService.ExecQuery _
    ("Select * from Win32_Printer Where Name = 'ScriptedPrinter'")

For Each objPrinter in colInstalledPrinters
    objPrinter.SetDefaultPrinter()
Next

Refer to http://www.microsoft.com/technet/scriptcenter/scripts/printing/client/prclvb02.mspx?mfr=true for more details.[/url]

 

Hi, thanks for your post, if you're still interested in pursuing this please contact us so we can look into this further:
http://2x.helpserve.com/default_import/Tickets/Submit