I am running Win2K Server SP2. I have Kixtart 2001 loaded, KixRPC running, and a script written. When I run my script, everything is processed up to the point where I use the INGROUP() function to selectively map my drives. For some reason, Kixtart processes the first INGROUP() function (for the Administrators group) and the secont INGROUP() (for Teachers), but ends the script prematurely when it comes to the next INGROUP() function: INGROUP("RS4"). This is pretty frustrating. Please help. Here's some code to help you:

IF INGROUP("Administrators")<0
? " - Admin Drives"
use i: \\joshua\students$
? " - Drive I: mapped (Student Webs on \\JOSHUA)"
use s: \\joshua\teachers
? " - Drive S: mapped (Teacher Webs on \\JOSHUA)"
use h: \\fcsinternet\mtpro_students
? " - Drive H: mapped (Keyboarding Class Data Location)"
use j: \\fcsinternet\autoacct
? " - Drive J: mapped (Accounting Class Data Location)"
use u: \\joshua\d$
? " - Drive U: mapped (\\JOSHUA Drive D "
use X: \\fcsinternet\D$
? " - Drive X: mapped (\\FCSINTERNET Drive D "
use T: \\fcsinternet\C$
? " - Drive T: mapped (\\FCSINTERNET Drive C "
use p: \\fcsinternet\netlogon
? " - Drive P: mapped (Netlogon Location)"
use q: \\fcsinternet\users
? " - Drive Q: mapped (Fac/Staff Folders)"
use r: \\fcsinternet\students
? " - Drive R: mapped (Student Folders)"
ENDIF
?" - Additional Drives"
?"teacher"
IF INGROUP("Teacher")
use v: \\fcsinternet\office_2000_server
? " - Drive V: mapped (Office 2000 Server Folder)"
use o: \\fcsinternet\common
? " - Drive O: mapped (Campus-Wide Common Drive)"
ENDIF
? "rs4"
IF INGROUP("RS4")
use g: \\fcsinternet\RS4
? " - Drive G: mapped (Admin Plus)
ENDIF
? "reader"
IF INGROUP("Reader")
use f: \\fcsinternet\reader
? " - Drive F: mapped (Accelerated Reader)"
ENDIF
? "unison"
If INGROUP("Unison")
use h: \\fcsinternet\library
? " - Drive H: mapped (Library Card Catalog)"
ENDIF
?" students"
IF INGROUP("Students")
use o: \\fcsinternet\common
? " - Drive O: mapped (Campus-Wide Common Drive)"
ENDIF

? " - Drive G: mapped (Admin Plus)

Thanks.

-Byron

code:

---

IF INGROUP("Administrators")<0

---

code:

---

IF INGROUP("Administrators")>0

---

We are using our tool kix401strip.exe which you can find on our site
http://home.wanadoo.nl/scripting
Output of call kix400strip input.kix output.kix /block_check /show_structure

code:

---

 IF INGROUP("Administrators")<0
       ? " - Admin Drives"
       USE i: \\joshua\students$
       ? " - Drive I: mapped (Student Webs on \\JOSHUA)"
       USE s: \\joshua\teachers
       ? " - Drive S: mapped (Teacher Webs on \\JOSHUA)"
       USE h: \\fcsinternet\mtpro_students
       ? " - Drive H: mapped (Keyboarding Class Data Location)"
       USE j: \\fcsinternet\autoacct
       ? " - Drive J: mapped (Accounting Class Data Location)"
       USE u: \\joshua\d$
       ? " - Drive U: mapped (\\JOSHUA Drive D  "
       USE X: \\fcsinternet\D$
       ? " - Drive X: mapped (\\FCSINTERNET Drive D  "
       USE T: \\fcsinternet\C$
       ? " - Drive T: mapped (\\FCSINTERNET Drive C  "
       USE p: \\fcsinternet\netlogon
       ? " - Drive P: mapped (Netlogon Location)"
       USE q: \\fcsinternet\users
       ? " - Drive Q: mapped (Fac/Staff Folders)"
       USE r: \\fcsinternet\students
       ? " - Drive R: mapped (Student Folders)"
 ENDIF
 ?" - Additional Drives"
 ?"teacher"
 IF INGROUP("Teacher")
       USE v: \\fcsinternet\office_2000_server
       ? " - Drive V: mapped (Office 2000 Server Folder)"
       USE o: \\fcsinternet\common
       ? " - Drive O: mapped (Campus-Wide Common Drive)"
 ENDIF
 ? "rs4"
 IF INGROUP("RS4")
       USE g: \\fcsinternet\RS4
       ? " - Drive G: mapped (Admin Plus)                            ; <+++++
 ENDIF
 ? "reader"
 IF INGROUP("Reader")
       USE f: \\fcsinternet\reader
       ? " - Drive F: mapped (Accelerated Reader)"
 ENDIF
 ? "unison"
 IF INGROUP("Unison")
       USE h: \\fcsinternet\library
       ? " - Drive H: mapped (Library Card Catalog)"
 ENDIF
 ?" students"
 IF INGROUP("Students")
       USE o: \\fcsinternet\common
       ? " - Drive O: mapped (Campus-Wide Common Drive)"
 ENDIF
;($begin)
;
;                       sun 17-feb-2002 00:14:27       (kix 4.00 vs 2.33e)
;
;Summary     KIXSTRIP:      block structures
;                           - do:until                 [0:0]
;                           - for|each:in|to:step|next [0|0:0|0:0|0]
;                           - function:endfunction     [0:0]
;                           - if:else:endif            [6:0:6]
;                           - select:case:endselect    [0:0:0]
;                           - while:loop               [0:0]
;Warning     KIXSTRIP:    1 line is incompleted.
;                           rerun program with option "/block_check /show_errors".
;Warning     KIXSTRIP: some lines contains errors or possible errors.
;                         1 line incomplete "double quotation".
;                         1 line incompleted.
;Informative KIXSTRIP:    6 block_structures found.
;Informative KIXSTRIP:   no UDF's found.
;Informative KIXSTRIP:   no labels found.
;Summary     KIXSTRIP:      BREAK CALL DEBUG DISPLAY ENDFUNCTION EXECUTE EXIT FUNCTION GET GETS GOSUB GOTO OLExxx PLAY QUIT RETURN RUN SHELL SLEEP THEN USE
;Informative KIXSTRIP:   16 USE
;
;($end)
;($begin)
;
;Warning KIXSTRIP: 35 line incomplete "double quotation".
;Warning KIXSTRIP: 35 line incompleted.
;
;($end)

---

btw: we advice to using [b]Ingroup("...") <> 0 instead of INGROUP("...") < 0. Also
INGROUP doesn't return a negative value.
KiXtart 3.x returns: 0/1/2 as values. (1 = global groups/2 = local groups)
KiXtart 4.x returns: 0/1 as values. (1 = local/global groups)