Set shl = WScript.CreateObject("WScript.Shell")
strName = Wscript.Arguments.Item(0)

varResponse = inputbox("On which print server is the printer installed?" & vbCRLF & vbCRLF & _ 
     "Enter 'A' for ServerA" & vbCRLF & "Enter 'B' for ServerB","Enable or Disable","S")
  If varResponse = "A" Then
strServer = "ServerA"
  End If
  If varResponse = "B" Then
strServer = "ServerB"
  End If
  If varResponse = "" Then
  Wscript.Quit
  End If

strPrinter = InputBox("Please enter share name of printer to install:", _
    "Install Printer")

'DELETE
shl.run ("RUNDLL32 PRINTUI.DLL,PrintUIEntry /q /dn /gd /c\\" & strName & " /n\\" & strServer & "\" & strPrinter)
'ADD
shl.run "RUNDLL32 PRINTUI.DLL,PrintUIEntry /ga /c\\" & strName & " /n\\" & strServer & "\" & strPrinter strDefault &
'QUERY
'shl.run ("RUNDLL32 PRINTUI.DLL,PrintUIEntry /q /ge /c\\" & objArgs & " /n\\" & strServer & "\" & strPrinter & "/f>%TEMP%\info.txt")