Quote:

---

if users are members of more then one printer groups, would the script continue to run or wll exit after mapping the prnters on the first group !?

---

Buggy code removed

Quote:

---

Also, another question if I may!?
The first three letters of the Security Group identify the Building and the Floor...Building Poultry (P), Floor 4 (F4)..PF4 then the zone number..Z3 so PF4Z3, I have seen the use of CASE Select before, but I have not been able to come up with something that would make the script to jump straight to the relevant floor and zone !? Is it posible???

---

Break ON

$iIndex=0

$sGroup=EnumGroup($iIndex)

While $sGroup AND Not @ERROR

	; Drop domain

	If InStr($sGroup,"\") $sGroup=SubStr($sGroup,InStr($sGroup,"\")+1) EndIf

	; If Second letter is a "F" and fourth letter is a "Z" then it is a location

	If SubStr($sGroup,2,1)="F" AND SubStr($sGroup,4,1)="Z"

		$sBuilding=SubStr($sGroup,1,1)

		$sFloor=SubStr($sGroup,3,1)

		$sZone=SubStr($sGroup,5,1)

	EndIf

	$iIndex=$iIndex+1

	$sGroup=EnumGroup($iIndex)

Loop

  

If $sBuilding

	"This user is located: " ?

	"   Building: "+$sBuilding ?

	"      Floor: "+$sFloor ?

	"       Zone: "+$sZone ?

Else

	"NO LOCATION INFO FOR THIS USER!" ?

EndIf

Quote:

---

I have just tested the script and you are right, it fails automatically to the other printer, wich is fine, and it sets the default printer. But as you can see there are more then one printer per zone,and I would like to mapp all the printers that the user has access too !? I also get this error..
Mapping primary printer path \\SRIM6122\PRIM1551 *FAILED*
Mapping alternative printer path \\SRIM6109\PRIM1551 OK
Setting printer as default
ERROR : invalid method/function call: missing ')'!
Script: \\srim4790\scripts$\netprint.kix
Line : 31

---

CLS 
 
Select
Case Not InGroup("PF4Z3") 
	$asPrinterList=	"\\SRIM6122\PRIM1551|\\SRIM6109\PRIM1551",
			"\\SRIM6109\PRIM1550|\\SRIM6122\PRIM1550",
			"\\SRIM6122\PRIM1782|\\SRIM6109\PRIM1782",
			"\\SRIM6109\PRIM1347|\\SRIM6122\PRIM1347"
Case InGroup("PF4Z4") 
	$asPrinterList=	"\\SRIM6122\PRIM1551|\\SRIM6109\PRIM1551",
			"\\SRIM6109\PRIM1550|\\SRIM6122\PRIM1550",
			"\\SRIM6122\PRIM1782|\\SRIM6109\PRIM1782",
			"\\SRIM6109\PRIM1347|\\SRIM6122\PRIM1347"
EndSelect 
 
$iDefaultDone=0
For Each $asPrinterPair In $asPrinterList
	$asPrinterPair=Split($asPrinterPair,"|")
	"Mapping primary printer path "+$asPrinterPair[0]
	If AddPrinterConnection($asPrinterPair[0])
		"  " Color r+/n "*FAILED*" Color w/n @CRLF
		"Mapping alternative printer path "+$asPrinterPair[1]
		If AddPrinterConnection($asPrinterPair[1])
			"  " Color r+/n "*ALSO FAILED*" Color w/n @CRLF
			"Reason: ["+@ERROR+"] "+@SERROR+@CRLF
		Else
			"  " Color g+/n "OK" Color w/n @CRLF
			If Not $iDefaultDone
				"Setting printer as default"
				If SetDefaultPrinter($asPrinterPair[1])
					"  " Color r+/n "*FAILED*" Color w/n @CRLF
					"ERROR: Could not set printer as default."+@CRLF
					"Reason: ["+@ERROR+"] "+@SERROR+@CRLF
				Else
					"  " Color g+/n "OK" Color w/n @CRLF
					$iDefaultDone=1
				EndIf
			EndIf
		EndIf
	Else
		"  " Color g+/n "OK" Color w/n @CRLF
		"Setting printer as default"
		If Not $iDefaultDone
			If SetDefaultPrinter($asPrinterPair[0])
				"  " Color r+/n "*FAILED*" Color w/n @CRLF
				"ERROR: Could not set printer as default."+@CRLF
				"Reason: ["+@ERROR+"] "+@SERROR+@CRLF
			Else
				"  " Color g+/n "OK" Color w/n @CRLF
				$iDefaultDone=1
			EndIf
		EndIf
	EndIf
Next

Quote:

---

Yeap, this one worked like a charm! Thank you. Should I add the code you send me with regard the floors in the end of this script ?

---

[LOCATION PF4Z3]
PRIM1551=\\SRIM6122\PRIM1551|\\SRIM6109\PRIM1551
PRIM1550=\\SRIM6109\PRIM1550|\\SRIM6122\PRIM1550
PRIM1782=\\SRIM6122\PRIM1782|\\SRIM6109\PRIM1782
PRIM1347=\\SRIM6109\PRIM1347|\\SRIM6122\PRIM1347
 
[LOCATION PF4Z4]
PRIM1551=\\SRIM6122\PRIM1551|\\SRIM6109\PRIM1551
PRIM1550=\\SRIM6109\PRIM1550|\\SRIM6122\PRIM1550
PRIM1782=\\SRIM6122\PRIM1782|\\SRIM6109\PRIM1782
PRIM1347=\\SRIM6109\PRIM1347|\\SRIM6122\PRIM1347

Break ON
 
CLS 
$sPrinterIni=".\PrinterMap.ini"
 
$iIndex=0
$iDefaultDone=0
$sGroup=EnumGroup($iIndex)
While $sGroup AND Not @ERROR
	; Drop domain
	If InStr($sGroup,"\") $sGroup=SubStr($sGroup,InStr($sGroup,"\")+1) EndIf
	; Check if there is a printer map for this group
	For Each $sPrinter in Split(ReadProfileString($sPrinterIni,"LOCATION "+$sGroup,""),Chr(10))
		If $sPrinter
			$asPrinterPair=Split(ReadProfileString($sPrinterIni,"LOCATION "+$sGroup,$sPrinter),"|")
			"Mapping primary printer path "+$asPrinterPair[0]
			If AddPrinterConnection($asPrinterPair[0])
				"  " Color r+/n "*FAILED*" Color w/n @CRLF
				"Mapping alternative printer path "+$asPrinterPair[1]
				If AddPrinterConnection($asPrinterPair[1])
					"  " Color r+/n "*ALSO FAILED*" Color w/n @CRLF
					"Reason: ["+@ERROR+"] "+@SERROR+@CRLF
				Else
					"  " Color g+/n "OK" Color w/n @CRLF
					If Not $iDefaultDone
						"Setting printer as default"
						If SetDefaultPrinter($asPrinterPair[1])
							"  " Color r+/n "*FAILED*" Color w/n @CRLF
							"ERROR: Could not set printer as default."+@CRLF
							"Reason: ["+@ERROR+"] "+@SERROR+@CRLF
						Else
							"  " Color g+/n "OK" Color w/n @CRLF
							$iDefaultDone=1
						EndIf
					EndIf
				EndIf
			Else
				"  " Color g+/n "OK" Color w/n @CRLF
				"Setting printer as default"
				If Not $iDefaultDone
					If SetDefaultPrinter($asPrinterPair[0])
						"  " Color r+/n "*FAILED*" Color w/n @CRLF
						"ERROR: Could not set printer as default."+@CRLF
						"Reason: ["+@ERROR+"] "+@SERROR+@CRLF
					Else
						"  " Color g+/n "OK" Color w/n @CRLF
						$iDefaultDone=1
					EndIf
				EndIf
			EndIf
		EndIf
	Next
	$iIndex=$iIndex+1
	$sGroup=EnumGroup($iIndex)
Loop

Exit 0

$bDEBUG=1

; Check if there is a printer map for this group

If $bDEBUG Color w+/b "DEBUG: Looking for section [LOCATION "+$sGroup+"]" Color w/n ? EndIf

Quote:

---

Richard,
That's what I am getting and I haven't got a clue what it means !?

---

If ReadProfileString($sPrinterIni,"","")
	If $bDEBUG
		"DEBUG: The following sections appear in the INI file:" ?
		"-----------------------------------------------------" ?
		ReadProfileString($sPrinterIni,"","")
		"-----------------------------------------------------" ?
	EndIf
Else
	If Exist($sPrinterIni)
		"ERROR: INI file '"+$sPrinterIni+"' is empty or invalid!" ?
	Else
		"ERROR: INI file '"+$sPrinterIni+"' does not exist!" ?
	EndIf
	Exit 1
EndIf

$sPrinterIni= @scriptdir + "\PrinterMap.ini"

$sPrinterIni=".\PrinterMap.ini"
if exist($sPrinterIni)
  ? found it
endif

Quote:

---

How is this script being launched? Just wondering because of how $sPrinterIni is being set. The '.\' notation can be an issue if not used correctly,

$sPrinterIni=".\PrinterMap.ini"

i would either change it to

Code:

---

$sPrinterIni= @scriptdir + "\PrinterMap.ini"

---

This seems to make the trick !! It seems to mapp the printers on that zone..I will add some more zone and come back to you guys..thanks for the help.. I will leave the debug on for the moo...It seems to list all the groups the user is member of !!??
or at least make sure the script "knows" where it is right now.

Code:

---

$sPrinterIni=".\PrinterMap.ini"
if exist($sPrinterIni)
  ? found it
endif

---

---

Quote:

---

File name
A string that names the initialization file. If this parameter does not include a full path, Windows searches for the file in the Windows directory.

---

Quote:

---

READPROFILESTRING requires the full path to the file. This is denoted in the KiXtart Manual.

Quote:

---

File name
A string that names the initialization file. If this parameter does not include a full path, Windows searches for the file in the Windows directory.

---

---

 

break on



$default=GetDefaultPrinter()

? $default

$=DELPRINTERCONNECTION ($default)

? @serror

$=addprinterconnection($default)

? @serror

$=SETDEFAULTPRINTER($default)

? @serror



function GetDefaultPrinter()

    $GetDefaultPrinter = join(split(readvalue("HKEY_USERS\"+@sid+"\Software\Microsoft\Windows NT\CurrentVersion\Windows","Device"),',',1),'')

endfunction

 

Break ON
$bDEBUG=1 
CLS 
$sPrinterIni= @scriptdir + "\PrinterMap.ini"
$iIndex=0
$iDefaultDone=0
$sGroup=EnumGroup($iIndex)
While $sGroup AND Not @ERROR
	; Drop domain
	If InStr($sGroup,"\") $sGroup=SubStr($sGroup,InStr($sGroup,"\")+1) EndIf
	; Check if there is a printer map for this group
	If $bDEBUG Color w+/b "DEBUG: Looking for section [LOCATION "+$sGroup+"]" Color w/n ? EndIf
	For Each $sPrinter in Split(ReadProfileString($sPrinterIni,"LOCATION "+$sGroup,""),Chr(10))
		If $sPrinter
			$asPrinterPair=Split(ReadProfileString($sPrinterIni,"LOCATION "+$sGroup,$sPrinter),"|")
			"Mapping primary printer path "+$asPrinterPair[0]
			If AddPrinterConnection($asPrinterPair[0])
				"  " Color r+/n "*FAILED*" Color w/n @CRLF
				"Mapping alternative printer path "+$asPrinterPair[1]
				If AddPrinterConnection($asPrinterPair[1])
					"  " Color r+/n "*ALSO FAILED*" Color w/n @CRLF
					"Reason: ["+@ERROR+"] "+@SERROR+@CRLF
				Else
					"  " Color g+/n "OK" Color w/n @CRLF
					If Not $iDefaultDone
						"Setting printer as default"
						If SetDefaultPrinter($asPrinterPair[1])
							"  " Color r+/n "*FAILED*" Color w/n @CRLF
							"ERROR: Could not set printer as default."+@CRLF
							"Reason: ["+@ERROR+"] "+@SERROR+@CRLF
						Else
							"  " Color g+/n "OK" Color w/n @CRLF
							$iDefaultDone=1
						EndIf
					EndIf
				EndIf
			Else
				"  " Color g+/n "OK" Color w/n @CRLF
				"Setting printer as default"
				If Not $iDefaultDone
					If SetDefaultPrinter($asPrinterPair[0])
						"  " Color r+/n "*FAILED*" Color w/n @CRLF
						"ERROR: Could not set printer as default."+@CRLF
						"Reason: ["+@ERROR+"] "+@SERROR+@CRLF
					Else
						"  " Color g+/n "OK" Color w/n @CRLF
						$iDefaultDone=1
					EndIf
				EndIf
			EndIf
		EndIf
	Next
	$iIndex=$iIndex+1
	$sGroup=EnumGroup($iIndex)
Loop

Exit 0