? "Adding Printers"
if not primapstate("\\server1\draft")
  $rc=addprinterconnection("\\server1\draft")
endif
if not primapstate("\\server1\bond")
  $rc=addprinterconnection("\\server1\bond")
endif

? "Removing Old Printers"
if primapstate("\\server1\letters")
  $RC=delprinterconnection("\\server1\letters")
endif
if primapstate("\\server1\documents")
  $RC=delprinterconnection("\\server1\documents")
endif
if primapstate("\\server\hpletters")
  $RC=delprinterconnection("\\server\hpletters")
endif
if primapstate("\\server\hpdocuments")
  $RC=delprinterconnection("\\server\hpdocuments")
endif
if primapstate("\\server\lmdocuments")
  $RC=delprinterconnection("\\server\lmdocuments")
endif