'==========================================================================
'
' NAME: TSPrintFix.vbs
'
' AUTHOR: Mark D. MacLachlan , The Spider's Parlor ' URL: http://www.thespidersparlor.com ' (c)  2003  All Rights Reserved ' DATE  : 12/22/2003 '
' COMMENT: Fixes printing via terminal services to allow DOT4 printers '
'==========================================================================
    myPrompt = MsgBox("This script will set up your printers for use with Terminal Services",vbOKCancel,"Setup Printers for Terminal Services?")
If myPrompt =  1  Then
    Set WshShell=WScript.CreateObject("WScript.Shell")
    keypath ="HKCU\Software\Microsoft\Terminal Server Client\Default\AddIns\RDPDR\FilterQueueType"
    WshShell.RegWrite keypath, - 1 , "REG_DWORD"
    If WshShell.RegRead(keypath) = "-1" Then
        MsgBox "Setup was successful",,"Success"
    Else
        MsgBox "Sorry A Problem Was Encountered" & vbCrLf & "Make sure you have permission to write to the registry.",,"Something went wrong"
    End If
End If
WScript.Quit