if fnINGROUP("HP 2430") = 0

if INGROUP("Admin 4200")
 $= addprinterconnection("\\Corp\Exec HP 4200")
endif

if INGROUP("Canon")
 $= addprinterconnection("\\Corp\CSRS_CanoniR5")
endif

if INGROUP("Color 1320")
 $= addprinterconnection("\\Corp\ColorAnalyst")
endif

if INGROUP("HP 2430")
 $= addprinterconnection("\\Corp\HP2430Mailing")
endif

if INGROUP("HP 8000")
 $= addprinterconnection("\\Corp\Estimating")
endif

if INGROUP("HP 8500")
 $= addprinterconnection("\\Corp\HPColor_preflight")
endif

if INGROUP("HP LJ 6MP")
 $= addprinterconnection("\\Corp\LJet6mp")
endif

if INGROUP("Kyocera")
 $= addprinterconnection("\\Corp\Planning_5035")
endif

if INGROUP("Planning Samsung")
 $= addprinterconnection("\\Corp\ML-1650")
endif

if INGROUP("Sheetfed 1320")
 $= addprinterconnection("\\Corp\Sheetfed")
endif

if INGROUP("Shipping 1320")
 $= addprinterconnection("\\Corp\Shipping")
endif

if INGROUP("Web 1320")
 $= addprinterconnection("\\Corp\WebHP")
endif

;SET DEFAULT

if INGROUP("Canon")
 $= SETDEFAULTPRINTER("\\Corp\Canon iR5000-6000 PCL6")
endif

if INGROUP("HP 8000")
 $= SETDEFAULTPRINTER("\\Corp\HP LaserJet 8000 Series PS")
endif

if INGROUP("HP LJ 6MP")
 $= SETDEFAULTPRINTER("\\Corp\HP LaserJet 6P/6MP PostScript")
endif

if INGROUP("Sheetfed 1320")
 $= SETDEFAULTPRINTER("\\Corp\Sheetfed Laserjet1320")
endif

if INGROUP("Shipping 1320")
 $= SETDEFAULTPRINTER("\\Corp\Shipping 1320N")
endif

if INGROUP("Shipping 1320")
 $= SETDEFAULTPRINTER("\\Corp\Web HP 1320N")
endif 

Function fnINGROUP($name)

 ; Your function code here

EndFunction

Quote:

---

InGroup( )

Action: Checks whether the current user is a member of a group.

Syntax: INGROUP ("group name" [<,> "group name 2"], mode)

Parameters: Group name, group name 2, group name X…
Identifies the group(s) in which to check the user's membership. You may pass multiple group names as arguments -or- a single array who's element(s) are the names of one or more groups to test. Note: This function does not currently support passing multiple arrays as arguments.

Mode

Optional integer parameter indicating whether or not InGroup checks for group membership of one or all groups in the list (default = 0). Possible values:

0 InGroup checks for membership of ONE of the groups in the list (default)
1 InGroup checks for membership of ALL of the groups in the list

Remarks: INGROUP can be used to check for groupmembership of groups that exist on the domain or server where the user is logged on, or to check for groupmembership of groups on a specific domain or server.
When checking for a local group, INGROUP identifies that the user is indirectly a member of the group by virtue of being a member of a global group which, in turn, is a member of the local group.

If you want to check for membership in a group on a specific domain or server, use the following format:

"OtherDomain\group"
–or–
"\\SomeServer\group"

For Windows 9x clients, INGROUP works on local groups only if the KiXtart RPC service is running.

Returns: 0 The user is not a member of a group with this name
1 The user is a member of a global group with this name


See Also: EnumGroup( ), EnumLocalGroup( ), Group Membership Information

Examples: If InGroup("Domain Users")
DISPLAY "z:\users.txt"
EndIf

If InGroup("Developers", "Testers") = 1
? "Member of Developers OR Testers group"
EndIf

If InGroup("Developers", "Testers", 1) = 1
? "Member of Developers AND Testers group"
EndIf

$Array = "Developers", "Testers"
If InGroup($Array, 1) = 1
? "Member of Developers AND Testers group"
EndIf

If InGroup("\\" + @WKSTA + "\Developers") = 1
? "Member of Developers on local system"
EndIf

---