Quote:

---

So there is no platform reason we shouldn't?

---

Quote:

---

If scripts work on 9x and up on KiX95, they'll work in 2001?

---

 
? "Time is now being sychronized to network ..."
SETTIME "\\HSCXNTDC0001"



IF INGROUP("DESKTOP")
;IF @USERID = "TUSER2"
	IF @DOS >= "4.0"
;		? "Windows NT Version is " + @DOS
		SLEEP 5
		CALL "ZENUPGRADE.KIX"
	ENDIF
ENDIF



; MAPS ALL USERS' HOME PERSONAL FOLDER TO H:

;USE H: @HOMESHR
USE H: "\\HSC01FP1\" + @USERID + "$"


; *** DEPARTMENT RESOURCE MAPPING ***


; Children's Hospital Family Library Mappings
IF INGROUP("CHFL")
	? "Welcome to Children's Hospital Family Library...!"
	USE S: \\HSC01FP1\CHFL_Shared
ENDIF 

Quote:

---

INGROUP( )

Action: Checks whether the current user is a member of a group.
Syntax: INGROUP ("group name")
Parameters: Group name
- Identifies the group in which to check the user's membership.
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.
2 The user is a member of a local group with this name.

Examples: IF INGROUP("Domain Users")
DISPLAY "z:\users.txt"
ENDIF

IF INGROUP("Developers") = 2
? "Member of local group Developers"
ENDIF

IF INGROUP("\\" + @WKSTA + "\Developers") = 2
? "Member of local group Developers on local system"
ENDIF

---

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

---

select
	Case @inwin=1 
		$kernel  ="WinNT"
		$prodkey ="HKEY_LOCAL_MACHINE\SYSTEM\CurrentControlSet\Control\ProductOptions"
		$prodrole="HKEY_LOCAL_MACHINE\Security\Policy\PolSrvRo"
		$DCRole  =READVALUE("$prodrole","(No Name)")
		$type    =ReadValue("$prodkey","ProductType")
		$Svcpack =ReadValue("HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows NT\CurrentVersion","CSDVersion")

		$ProductSuite=""
		$ProductSuite=READVALUE("$prodkey","ProductSuite")				
		IF LEN($ProductSuite)>0		$ProductSuite=SUBSTR($ProductSuite,1,INSTR($ProductSuite,"|")-1)	EndIf

		select
			Case @dos=5.1			$system="WinXP"
			Case @dos=5.0			$system="Win2k"
			Case @dos=4.0			$system="WinNT"
			endselect
		select
			Case $type="LANMANNT"		$flavor="$DCRole $ProductSuite Domain Controller"
			Case $type="ServerNT"		$flavor="$ProductSuite Member Server"
			Case $type="WinNT"		$flavor="Professional"
			endselect
	Case @inwin=2
		$kernel="Win9x"	
		$Svcpack=""
		$SubVer=ReadValue("HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\CurrentVersion","SubVersionNumber")
		select
			Case @dos="???"
				$system="WinME"				$flavor="A"
			Case @dos="4.10"
				$system="Win98"
				select
					Case $subver="???"		$flavor="SE"
					Case $subver="a"		$flavor="A"
					endselect
			Case @dos="4.0" 
				$system="Win95"
				select
					Case $subver=" C"		$flavor="OSR2.5"
					Case $subver=" B"		$flavor="OSR2"
					Case $subver="a"		$flavor="A"
					endselect
			endselect
	endselect

? "Kernel type is "+$kernel
? "Operating System is "+$system $Svcpack
? "OS Flavor is "+$flavor
get $k ;Pauses script to view output