Here is the final product(for now).
Option Explicit
Dim ServerName, Computer, PrintQueue, Input, found, SelectedPrinter
Dim AddPrinter, SetDefault, PrinterName, MSG, Style, Title
Dim Response, WshNetwork
Title = "Y"
ServerName = "PRINTSERVER"
AddPrinter = False
SetDefault = False
'Create...