code:

---

$usr = GetObject(" WinNT://"  + @domain + " /"  + @wksta + " $$" ) 
 if @error <> 0 
   ? @serror 
 else 
   For Each $grp In $usr.Groups 
     $GrpName = $grp.Name 
     if left($GrpName, 4) = " prt_" 
       $printer = substr($GrpName, 5)
       $printer = join(split($printer," ~" )," \" )
       AddPrinterConnection(" \\"  + $printer)
     endif
   Next 
 endif

---

code:

---

left($GrpName, 4) = " prt_"

---

code:

---

 
$WS = GetObject("WinNT://" + @domain + "/" + @wksta + "$$")
if @error
	? @serror
else
	For Each $grp In $WS.Groups
		$GrpName = $grp.Name
		if left($GrpName,4) = "prt_"
			$printer = substr($GrpName,5)
			$printer = join(split($printer,"~"),"\")
			AddPrinterConnection("\\" + $printer)
		endif
	Next
endif

---

code:

---

$WS = GetObject("WinNT://" + @domain + "/" + @wksta + "$$")
if @error	
   ? @serror
else
   For Each $grp In $WS.Groups
      $GrpName = $grp.Name
      if right($GrpName,7) = "Printer"
         $printer = substr($GrpName,len ($GrpName)-8)
         $printer = join(split($printer," "),"\")
         AddPrinterConnection("\\" + $printer)
      endif
   Next
endif

---

code:

---

$WS = GetObject("WinNT://" + @domain + "/" + @wksta + "$$")if @error
	   ? @serrorelse
   For Each $grp In $WS.Groups
      $GrpName = $grp.Name
      if right($GrpName,8) = "Printer_"
         $printer = substr($GrpName,9)
         $printer = join(split($printer,"_"),"\")
         AddPrinterConnection("\\" + $printer)
      endif
   Next
endif

---

code:

---

;********** Prevent script from running on servers and Win95 *********
If not instr(@producttype,'Workstation') and not
   instr(@producttype,'Professional') and not
   instr(@producttype,'95')
   quit
endif

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

$WS = GetObject("WinNT://" + @domain + "/" + @wksta + "$$")
if @error	
   ? @serror
   else
   for each $grp In $WS.Groups
      $GrpName = $grp.Name
      if left($GrpName,8) = "Printer_"
         $printer = substr($GrpName,9)
         $printer = join(split($printer,"_"),"\")

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

            if PriMapState("\\" + $printer)
               $S=SetDefaultPrinter ("\\" + $printer)
               ? "Status - Default Printer set"
               ? @serror
            endif
      endif
   next
endif

;********** Beginning of Function *********
;FUNCTION      PriMapState v1.1
;
;AUTHOR        Lonkero (Jooel.Nieminen@gwspikval.com)
;
;ACTION        Checks for existent networkprinter connection
;
;SYNTAX        PriMapState(PRINTER)
;
;PARAMETERS    PRINTER
;              Printers name to be checked
;
;RETURNS       1 if printer connected
;	       2 if printer is default
;	       nothing if not connected
;
;REMARKS       code for w9x adapted from BrianTX
;
;DEPENDENCIES  none
;
;EXAMPLE       if not PriMapState('\\server\printer1')
;		"printer not connected!"
;	       endif
;
;CODE
function PriMapState($_Pri)
if @inwin=1
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
else
dim $_Root,$_C,$_C2 $_Root="HKLM\System\CurrentControlSet\control\Print\Printers"
   for $_C=0 to 259
   $_C2=enumkey($_Root,$_C)
   If instr(READVALUE($_Root+"\"+$_C2,"Port"),$_Pri)
   If instr(READPROFILESTRING("%windir%\win.ini","windows","device"),$_Pri)
   $PriMapState = 2
 Else
   $PriMapState = 1
 Endif
 Endif
   if $_C2=259 $_C=$_C2 endif
   next
endif
endfunction

---

code:

---

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

---

code:

---

If not instr(@producttype,'Workstation') and not
	instr(@producttype,'Professional') and not
	instr(@producttype,'95')
	quit
endif

---

code:

---

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

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

      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:

---

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

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

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


;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

;Default Printer Configuration
;This is to capture the Default Printer and get all network defined printers as well
; 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
 
$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'+'_'+'@userid')
;$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

;********** Prevent logon script for Health Info Mgmt *********
if InGroup ("Medrec Group")
  exit 0
endif

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


;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

;Default Printer Configuration
;This is to capture the Default Printer and get all network defined printers as well
; 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
 
$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'+'_'+'@userid')
$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:

---

;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) = "PrinterDef_"
         $defprinter = substr($GrpName,12)
         $defprinter = join(split($defprinter,"_"),"\")

         if not PriMapState("\\" + $printer)
            ? "Status - Printer not connected \\"+$printer
            $S=AddPrinterConnection("\\" + $printer)
            ? "Status - Printer added \\"+$printer
            ? @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


;--- Add additional 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

---