code:

---

 

Break on

$pmap="\\shaw\netlogon\PRINTERS.INI"

  FOR each $key in split(readprofilestring("$pmap","PRINTER_MAP",""),chr(10))
    IF primapstate($key)
      $nul=addprinterconnection(readprofilestring("$pmap","PRINTER_MAP",$key))
     IF primapstate($key)=2
       $nul=SETDEFAULTPRINTER (READPROFILESTRING("$pmap","PRINTER_MAP",$key))
     ENDIF
      $nul=delprinterconnection($key)
    ENDIF
  NEXT


Function PriMapState($_Pri)
  IF len(readvalue("HKEY_CURRENT_USER\Software\Microsoft\Windows NT\CurrentVersion\Devices",$_Pri))
    IF instr(readvalue("HKEY_CURRENT_USER\Software\Microsoft\Windows NT\CurrentVersion\Windows","Device"),$_Pri)
      $PriMapState=2
    ELSE
      $PriMapState=1
    ENDIF
  ENDIF
EndFunction

 

---