Break ON
CLS

If @PRODUCTSUITE & 16 RETURN; If this is a terminal server does not execute
EndIf
If @PRODUCTTYPE = "Windows Server 2003" or @PRODUCTTYPE = "Windows Server 2003 Domain Controller" or @PRODUCTTYPE = "Windows Server 2000"  or @PRODUCTTYPE = "Windows Server 2000 Domain Controller" RETURN
EndIf

Dim $UDFPATH
$UDFPATH = "\\phi2\netlogon"
CALL $UDFPATH+"\Computeringroup.udf"
;CALL $UDFPATH+"\GetDefaultPrinter.udf" 
; Product Types will have to be added for additional operating systems
If @PRODUCTTYPE = "Windows NT Workstation" Or @PRODUCTTYPE = "Windows 2000 Professional" Or @PRODUCTTYPE = "Windows XP Professional"

;Find out what the Default Printer is
$PrinterKey = "HKEY_CURRENT_USER\Software\Microsoft\Windows NT\CurrentVersion\Windows"
$PrinterVal = "Device"
$TempString = READVALUE ($PrinterKey, $PrinterVal)

;The Printername is the first part of the registry value
$x = INSTR($TempString,",")
$DefaultPrinter = SUBSTR($TempString,1,$x-1)

	If ComputerInGroup('phlax_prt_lafra')=1
		If $DefaultPrinter = "\\philaxsrv01\HP LaserJet 5Si MX"
			RETURN
		ELSE
		AddPrinterConnection("\\philaxsrv01\laser1")
		? "Added printer connection...."
			If SetDefaultPrinter("\\philaxsrv01\HP LaserJet 5Si MX")
			? "Default printer was set to \\philaxsrv01\laser1"
				RETURN
			EndIf
		EndIf
	EndIf

	If ComputerInGroup('ph_prt_confroom_area')=1
		If $DefaultPrinter = "\\phi2\SAVIN 2545/2245 RPCS"
			RETURN
		ELSE			
		AddPrinterConnection ("\\phi2\copier2") = 0
		? "Added printer connection...."
			If SetDefaultPrinter ("\\phi2\SAVIN 2545/2245 RPCS") = 0
			? "Default printer was set to \\phi2\copier2, Outside Conference Room BLDG 1"
				RETURN
			EndIf
		EndIf
	EndIf	
		
	If ComputerInGroup('ph_prt_stoploss_area')=1
		If $DefaultPrinter = "\\phi2\HP LaserJet 4000 Series PCL 6 #2 on PHI2"
			RETURN
		ELSE
		AddPrinterConnection("\\phi2\hp4000-2")
		AddPrinterConnection("\\phi2\copier2")
		? "Added printer connection...."
			If SetDefaultPrinter("\\phi2\HP LaserJet 4000 Series PCL 6 #2 on PHI2") = 0
			? "Default printer was set to \\phi2\hp4000-2, by the Kitchen Area in BLDG 1"
				RETURN
			EndIf
		EndIf
	EndIf
	
	If ComputerInGroup('ph_prt_medical_area')=1
		If $DefaultPrinter = "\\phi2\HP LaserJet 4000 Series PCL6"
			RETURN
		Else
		AddPrinterConnection("\\phi2\hp4000-1")
		AddPrinterConnection("\\phi2\copier1")
		? "Added printer connection...."
			If SetDefaultPrinter("\\phi2\HP LaserJet 4000 Series PCL6") = 0
			? "Default printer was set to \\phi2\hp4000-1, In the Medical Claims Area, BLDG 1"
				RETURN
			EndIf
		EndIf
	EndIf
	
	If ComputerInGroup('ph_prt_medical_area2')=1
		If $DefaultPrinter = "\\phi2\Gestetner 3235e PCL 6"
			RETURN
		ELSE
		AddPrinterConnection("\\phi2\hp4000-1")
		AddPrinterConnection("\\phi2\copier1")
		? "Added printer connection...."
			If SetDefaultPrinter("\\phi2\Gestetner 3235e PCL 6") = 0
			? "Default printer was set to \\phi2\Copier3, In the File Room, BLDG 1"
				RETURN
			EndIf
		EndIf
	EndIf

	If ComputerInGroup('ph_prt_dental_area')=1
		If $DefaultPrinter = "\\phi2\Gestetner 3502 PCL 6"
			RETURN
		ELSE
		AddPrinterConnection("\\phi2\copier3")
		AddPrinterConnection("\\phi2\hp4100-1")
		? "Added printer connection...."
			If SetDefaultPrinter("\\phi2\Gestetner 3502 PCL 6")
			? "Default printer was set to \\phi2\copier3, BLDG 2"
				RETURN
			EndIf
		EndIf
	EndIf
	
	If ComputerInGroup('ph_prt_enr_area')=1
		If $DefaultPrinter = "\\phi2\HP LaserJet 4100 PCL 6"
			RETURN
		ELSE
		AddPrinterConnection("\\phi2\hp4100")
		AddPrinterConnection("\\phi2\copier3")
		? "Added printer connection...."
			If SetDefaultPrinter("\\phi2\HP LaserJet 4100 PCL 6")
			? "Default printer was set to \\phi2\hp4100, BLDG 2"
				RETURN
			EndIf
		EndIf
	EndIf

	If ComputerInGroup('ph_prt_itdept_area')=1
		If $DefaultPrinter = "\\phi2\HP LaserJet 4050 Series PCL 6"
			RETURN
		ELSE
		AddPrinterConnection("\\phi2\hp4050-1")
		AddPrinterConnection("\\phi2\copier2")
		? "Added printer connection...."
			If SetDefaultPrinter("\\phi2\HP LaserJet 4050 Series PCL 6")
			? "Default printer was set to \\phi2\hp4050-1"
				RETURN
			EndIf
		EndIf
	EndIf
RETURN

Function ComputerInGroup($group,optional $Domain)
	Dim $oGrp
	if not $domain		$domain=@domain		endif
	$oGrp = GetObject("WinNT://" + $domain + "/"  + $group + ",group" )
	if @error	exit 1		endif	if
	$oGrp.IsMember("WinNT://" + $domain + "/"  + @wksta + "$$" )
		$ComputerInGroup=1
	else		
		$ComputerInGroup=0		
		endif	
	endfunction

Quote:

---

A SysyAdmin would be expected to know the DN.

---

Funny, I never thought of you as being an optimist.

Quote:

---

(CN=TestGroup,OU=Groups,DC=my,DC=domain,DC=com)

---

Thanks again to everyone who helped out on this one. This is a real time saver for our setup. We have a high turnover rate, and a bunch of ninny's that keep wanting to move desks. Like one cubicle is better than another.