code:

---

;http://www.kixtart.org/board/ultimatebb.php?ubb=get_topic;f=1;t=007920

call @ScriptDir+'\PriMapState.udf'

;********** Prevent script from running on a server or Win95*********
if @userid = administrator
   call @Scriptdir+'\osid.udf'
   $os=osid()
   if $os[1]='Win95' or $os[2]<>'Workstation'
     exit 0
   endif
endif

;********** Prevent script from running on Medrec pcs *********
if InGroup ("Medrec Group")
   exit 0
endif

;********** Beginning of printer mapping *********

$WS = GetObject("WinNT://" + @domain + "/" + @wksta + "$$")
if @error	
   ? @serror
else
   for each $grp In $WS.Groups
      $GrpName = $grp.Name


;--- Add and set default printer ---

   if left($GrpName,11) = "DefPrinter_"
      $defprinter = substr($GrpName,12)
      $defprinter = join(split($defprinter,"_"),"\")

      if count(left(GrpName,11) = "DefPrinter_") > 1
         ? "Computer already has default printer"
         ? "Check Computer is only in one DefPrinter group"
         ? "Printer not added!"
         $rc=SendMessage(testpc, '@wksta is in more than one DefPrinter Group, please set to only one!!')
            exit 0

      else
         
         if not PriMapState("\\" + $defprinter)
            ? "Status - Printer not connected \\"+$defprinter
            $S=AddPrinterConnection("\\" + $defprinter)
            ? "Status - Printer added \\"+$defprinter
            ? @serror 
            ? 
            $S=SetDefaultPrinter ("\\" + $defprinter)
            ? "Status - Default Printer set \\"+$defprinter
            ? @serror
         endif

         if PriMapState("\\" + $defprinter)<>2
            $S=SetDefaultPrinter ("\\" + $defprinter)
            ? "Status - Default Printer set \\"+$defprinter
            ? @serror
         endif

      endif

   endif


;--- Add secondary printers ---
 
   if left($GrpName,8) = "Printer_"
      $printer = substr($GrpName,9)
      $printer = join(split($printer,"_"),"\")

          if not PriMapState("\\" + $printer)
             ? "Status - Printer not connected \\"+$printer
             $S=AddPrinterConnection("\\" + $printer)
             ? "Status - Printer added \\"+$printer
             ? @serror
             ? 
          endif

     endif 
  
   next

endif

---

code:

---

if $count(left(GrpName,11) = "DefPrinter_") > 1

---

code:

---

;Re-Write at http://www.kixtart.org/cgi-bin/ultimatebb.cgi?ubb=get_topic;f=2;t=004308
;By Kdyer & Lonkero (15th april 2003)
;Re-Write of http://www.kixtart.org/board/ultimatebb.php?ubb=get_topic;f=10;t=000021
; Ref. http://www.kixtart.org/cgi-bin/ultimatebb.cgi?ubb=get_topic&f=1&t=006790
; Ref. http://www.kixtart.org/board/ultimatebb.php?ubb=get_topic;f=12;t=000221

;********** Prevent logon script on server *********

call @ScriptDir+'\osid.udf'

$os=osid()
if $os[2]<>'Workstation'
  exit 0
endif

;********** Prevent script from running on Medrec pcs *********

if InGroup ("Medrec Group")
   exit 0
endif

;********** Beginning of printer configuration script *********

;---- Default Printer Configuration ----

;This is to capture the Default Printer and get all network defined printers as well
 
$loc='HKEY_CURRENT_USER\Network\LPT1'
$reg='HKEY_CURRENT_USER\Software\Microsoft\Windows NT\CurrentVersion'
$dev=$reg+'\Devices'
$nprt=split(READVALUE($reg+'\Windows','Device'),',')[0]
$sysdrv=SUBSTR('%WINDIR%',1,2)
dim $priReg, $x, $i, $rc, $ps
 
; ---- Set Printsetup.ini file location ----

$ps=('\\mrh-01\prtlog$')
$ps=($ps+'\@wksta')

IF 0=EXIST($ps)
        MD $ps
ENDIF

$ps=$ps+'\Printsetup.ini'
 
$i=0
DO
        IF '\\'=LEFT($x,2)
		$priReg=$priReg+$x
	ENDIF
	$x=ENUMVALUE($dev,$i)
	$i=$i+1
UNTIL @error
 
IF LEN($priReg)
	$rc=WRITEPROFILESTRING($ps,'Printers','','')
	$priReg=split($priReg,'\\')
        FOR $i=1 to ubound($priReg)
		$rc=WRITEPROFILESTRING($ps,'Printers',$i,'\\'+$priReg[$i])
	NEXT
ENDIF
 
SELECT
 CASE   INSTR($nprt,'\\')       ;WRITE THE DEFAULT PRINTER TO THE CONFIG
	$rc=WRITEPROFILESTRING($ps,'Printers','Default',$nprt)
        USE LPT1: /delete /persistent
        USE LPT1: $nprt /persistent
        
 CASE   $nprt='' AND EXIST($ps) ;NO DEFAULT PRINTER, LOAD PRINTERS FROM SAVED INFO
        FOR EACH $key IN split(readprofilestring($ps,'Printers',''),chr(10))
                $nul=addprinterconnection(readprofilestring($ps,'Printers',$key))
        NEXT
        $nprt=READPROFILESTRING($ps,'Printers','Default')
        $rc=SETDEFAULTPRINTER($nprt)
        USE LPT1: $nprt /persistent
  CASE   NOT INSTR($nprt,'\\')   ;LOCAL PRINTER DEFAULT, SO WE WANT TO REMOVE NETWORK MAPPING
        USE LPT1: /delete /persistent
ENDSELECT

---

code:

---

;********** Prevent logon script on server *********
call @ScriptDir+'\osid.udf'

$os=osid()
if $os[2]<>'Workstation'
  exit 0
endif

;********** Beginning of printer info gathering script *********

;Default Printer Configuration
;This is to capture the Default Printer and get all network defined printers as well
 
$loc='HKEY_CURRENT_USER\Network\LPT1'
$reg='HKEY_CURRENT_USER\Software\Microsoft\Windows NT\CurrentVersion'
$dev=$reg+'\Devices'
$nprt=split(READVALUE($reg+'\Windows','Device'),',')[0]
$sysdrv=SUBSTR('%WINDIR%',1,2)
dim $priReg, $x, $i, $rc, $ps
 
;---- Set Printsetup.ini file location ----
$ps=('\\mrh-01\prtlog$')
$ps=($ps+'\@wksta')
IF 0=EXIST($ps)
        MD $ps
ENDIF

$ps=$ps+'\Printsetup.ini'
 
$i=0
DO
        IF '\\'=LEFT($x,2)
		$priReg=$priReg+$x
	ENDIF
	$x=ENUMVALUE($dev,$i)
	$i=$i+1
UNTIL @error
 
SELECT
 CASE   EXIST($ps) ;PRINTERS FROM SAVED INFO
        FOR EACH $key IN split(READPROFILESTRING($ps,'Printers',''),chr(10))
               $nul=addprinterconnection(READPROFILESTRING($ps,'Printers',$key))
        NEXT
        $nprt=READPROFILESTRING($ps,'Printers','Default')
        $rc=SETDEFAULTPRINTER($nprt)
        USE LPT1: $nprt /persistent

  CASE   NOT INSTR($nprt,'\\')   ;LOCAL PRINTER DEFAULT, SO WE WANT TO REMOVE NETWORK MAPPING
        USE LPT1: /delete /persistent
ENDSELECT

---