You are not logged in. [Log In] KiXtart.org website » Forums » KiXtart » Basic Scripting » INGROUP problem
Register User       Forum List       Calendar       FAQ
Page 1 of 4 1234>
Topic Options
#33825 - 2002-12-02 07:35 PM INGROUP problem
Steve M Offline
Fresh Scripter

Registered: 2002-05-08
Posts: 40
Loc: Orange,California
Hi all,
I just added a line to my script and cannot figure why it does not work. The other ingroup works and it is identical to the new one I added.
The TRAKKER group works and it displays that you are a member of TRAKKER but it does not display the REALEC so it does not map. THe user is definetly in the REALEC group.

code:
if INGROUP("REALEC")
USE R: /delete /Persistent
use R: "\\FS1\REALEC"   
? "Member of REALEC group"
endif
sleep 5

if INGROUP("TRAKKER")
USE L: /delete /Persistent
use L: "\\TK2\TRAKKER"   
? "Member of Trakker group"
ENDIF
sleep 5
_________________________
Steve

Top
#33826 - 2002-12-02 07:40 PM Re: INGROUP problem
Kdyer Offline
KiX Supporter
*****

Registered: 2001-01-03
Posts: 6241
Loc: Tigard, OR
Does this work?

code:
 IF INGROUP("REALEC")
       USE R: /DEL /PERSISTENT
       USE R: "\\FS1\REALEC"
       ? "Member of REALEC group"
 ENDIF
 SLEEP 5
 IF INGROUP("TRAKKER")
       USE L: /DEL /PERSISTENT
       USE L: "\\TK2\TRAKKER"
       ? "Member of Trakker group"
 ENDIF
 SLEEP 5
HTH,

Kent
_________________________
Utilize these resources:
UDFs (Full List)
KiXtart FAQ & How to's

Top
#33827 - 2002-12-02 07:52 PM Re: INGROUP problem
Steve M Offline
Fresh Scripter

Registered: 2002-05-08
Posts: 40
Loc: Orange,California
No, that did not help.
I am using 4.1 version if that helps
_________________________
Steve

Top
#33828 - 2002-12-02 07:55 PM Re: INGROUP problem
Lonkero Administrator Offline
KiX Master Guru
*****

Registered: 2001-06-05
Posts: 22346
Loc: OK
steve, there is no such version.
_________________________
!

download KiXnet

Top
#33829 - 2002-12-02 07:58 PM Re: INGROUP problem
Lonkero Administrator Offline
KiX Master Guru
*****

Registered: 2001-06-05
Posts: 22346
Loc: OK
kent, what is difference between your and his code? [Confused]

steve, is this new group, have you tried running kix /f

first?
_________________________
!

download KiXnet

Top
#33830 - 2002-12-02 08:47 PM Re: INGROUP problem
Steve M Offline
Fresh Scripter

Registered: 2002-05-08
Posts: 40
Loc: Orange,California
It is a new group I setup last week. and inserted the line in this mornings script. Where is it that I insert the line kix /f ????

The version of kix is 3.61.1.0
My other lines of code for ingroup works fine
see below my code
code:
 SHELL "winset.exe USERNAME=@USERID"
   BREAK ON         ;(re)set Ctrl-C/Break handling
   COLOR r+/n
 
;
CLS
;
small
Color b+/n
BOX (7,20,17,61,FULL)
;
Color w+/n
;
IF ((@time > "00:00:00") AND (@time < "12:00:00"))
at (9,22) "Good Morning,"
ELSE 
IF ((@time >= "12:00:00") AND (@time < "18:00:00"))
at (9,22) "Good Afternoon," 
ELSE 
at (9,22) "Good Evening," 
ENDIF
ENDIF
;
at (10,22) @fullname
at (12,22) "Please Wait For Logon script Execution"
at (13,22) "Progress"

$drive="\\FS2\"+@userid+chr(36)
	USE U: $drive 
SLEEP 5

DelKey("HKEY_CURRENT_USER\Software\KiXtart\TokenCache") 



if INGROUP("ESCROW-REO")
USE S: /delete /Persistent
use S: "\\FS2\REO$"   
? "Member of ESCROW-REO group"
ENDIF


if INGROUP("ESCROW-UNIT1")
USE S: /delete /Persistent
use S: "\\FS2\ESCROW-UNIT1$"   
? "Member of ESCROW-UNIT1 group"
ENDIF


if INGROUP("ESCROW-UNIT2")
USE S: /delete /Persistent
use S: "\\FS2\ESCROW-UNIT2$"   
? "Member of ESCROW-UNIT2 group"
ENDIF


if INGROUP("ESCROW-UNIT3")
USE S: /delete /Persistent
use S: "\\FS2\ESCROW-UNIT3$"   
? "Member of ESCROW-UNIT3 group"
ENDIF


if INGROUP("ESCROW-UNIT4")
USE S: /delete /Persistent
use S: "\\FS2\ESCROW-UNIT4$"   
? "Member of ESCROW-UNIT4 group"
ENDIF

if INGROUP("ESCROW-UNIT5")
USE S: /delete /Persistent
use S: "\\FS2\ESCROW-UNIT5$"   
? "Member of ESCROW-UNIT5 group"
ENDIF

if INGROUP("Everyone")
? "Member of Everyone group"
USE I: /delete /Persistent
use I: "\\FS2\APPS" 
   If Exist ("c:\windows\RD.bat") = 0
    If Exist ("c:\windows\RD.pif") = 0
     If Exist ("c:\windows\MSTSc.exe") = 0
      If Exist ("c:\windows\MSTSCAX.DLL") = 0
       copy "\\W2K2\netlogon\RD.BAT" "c:\windows"
        copy "\\W2K2\netlogon\RD.PIF" "c:\windows"	
	 copy "\\W2K2\netlogon\MSTSC.EXE" "c:\windows"
          copy "\\W2K2\netlogon\MSTSCAX.DLL" "c:\windows"
    ENDIF
   ENDIF
  ENDIF
 ENDIF
ENDIF

if INGROUP("LED")
? "Member of LED group"
USE G: /delete /Persistent
use G: "\\ATC-CORP\VOL2"
USE S: /delete /Persistent
use S: "\\FS2\LED$"   
If Exist ("c:\windows\DESKTOP\TRAKKE~1.PIF") = 0 
 copy "\\W2K2\netlogon\TRAKKE~1.PIF" "c:\windows\desktop" ;copies Trakker Star shortcut to desktop 
 If Exist ("c:\windows\DESKTOP\TRAKKE~2.PIF") = 0
  copy "\\W2K2\netlogon\TRAKKE~2.PIF" "c:\windows\desktop" ;copies Trakker Lend shortcut to desktop
    If Exist ("c:\windows\DESKTOP\STARDO~1.PIF") = 0 
     copy "\\W2K2\netlogon\STARDO~1.PIF" "c:\windows\desktop" ;copies Star Docnet shortcut to desktop    
     endif
   endif
  endif
 endif

if INGROUP("REALEC")
   USE R: /DEL /PERSISTENT
   use R: "\\FS1\REALEC"   
   ? "Member of REALEC group"
endif
sleep 5

if INGROUP("TRAKKER")
USE L: /delete /Persistent
use L: "\\TK2\TRAKKER"   
? "Member of Trakker group"
ENDIF
sleep 5

;if INGROUP("USBANK")
;USE I: /delete /Persistent
;use I: "\\FS2\Apps"   
;? "Member of USBANK group"
;USE U: /delete /Persistent
;USE H: $drive
;endif

;if INGROUP("LANEGUIDE")
;USE I: /delete /Persistent
;use I: "\\FS1\LANE GUIDE"   
;? "Member of LANEGUIDE group"
;endif


if INGROUP("Domain Admins")
? "Member of Domain Admins group"
sleep 5
USE G: /delete /Persistent
use G: "\\ATC-CORP\VOL2"
USE L: /delete /Persistent
use L: "\\TK2\TRAKKER"  
If Exist ("c:\windows\DESKTOP\TRAKKE~1.PIF") = 0 ;Checks for the existance of Trakker Star shortcut
   If Exist ("c:\windows\DESKTOP\TRAKKE~2.PIF") = 0 ;Checks for the existance of Trakker Lend shortcut
     If Exist ("c:\windows\DESKTOP\ESCROW~1.PIF") = 0 ;Checks for the existance of Escrow Docnet shortcut 
       If Exist ("c:\windows\DESKTOP\REOESC~1.PIF") = 0 ;Checks for the existance of Reo Escrow Docnet shortcut
         If Exist ("c:\windows\DESKTOP\STARDO~1.PIF") = 0 ;Checks for the existance of Star Docnet shortcut

copy "\\W2K2\netlogon\TRAKKE~1.PIF" "c:\windows\desktop"   ;copies Trakker Star shortcut to desktop 
  copy "\\W2K2\netlogon\TRAKKE~2.PIF" "c:\windows\desktop"   ;copies Trakker Lend shortcut to desktop 
   copy "\\W2K2\netlogon\ESCROW~1.PIF" "c:\windows\desktop"   ;copies Escrow Docnet shortcut to desktop 
    copy "\\W2K2\netlogon\REOESC~1.PIF" "c:\windows\desktop"   ;copies Reo Escrow Docnet shortcut to desktop
     copy "\\W2K2\netlogon\STARDO~1.PIF" "c:\windows\desktop"   ;copies Star Docnet shortcut to desktop
     ENDIF
    ENDIF
   ENDIF
  ENDIF
 ENDIF
ENDIF
_________________________
Steve

Top
#33831 - 2002-12-02 08:51 PM Re: INGROUP problem
Sealeopard Offline
KiX Master
*****

Registered: 2001-04-25
Posts: 11165
Loc: Boston, MA, USA
Oh man, an completely outdated KiXtart version with tons of incorrect IF-ENDIFs. Please read the KiXtart Manual under IF-ENDIF and correct your IF clauses accordingly, they are definitely incorrect. Each IF requres an corresponding ENDIF and should not be nested unless the nesting is required for the check of specific conditions.

Please rewrite your code and use indenting to highlight blocks of code, this will make it easier. And clean up those IFs! Most likely your problem is with that nesting.

The /f parameter is new in KiXtart 4.x and thus irrelevant for you.

[ 02. December 2002, 20:53: Message edited by: sealeopard ]
_________________________
There are two types of vessels, submarines and targets.

Top
#33832 - 2002-12-02 08:53 PM Re: INGROUP problem
Lonkero Administrator Offline
KiX Master Guru
*****

Registered: 2001-06-05
Posts: 22346
Loc: OK
heh [Big Grin]
I didn't know that:
kixtart 4.1 = 3.61 [Eek!]
_________________________
!

download KiXnet

Top
#33833 - 2002-12-02 09:04 PM Re: INGROUP problem
Lonkero Administrator Offline
KiX Master Guru
*****

Registered: 2001-06-05
Posts: 22346
Loc: OK
jens, didn't see any incorrect endifs, where are they?
_________________________
!

download KiXnet

Top
#33834 - 2002-12-02 09:08 PM Re: INGROUP problem
Sealeopard Offline
KiX Master
*****

Registered: 2001-04-25
Posts: 11165
Loc: Boston, MA, USA
Quick glance gave me five IF EXIST in a row, then copying the files, definitely a logic error in the programming code. Haven't taken a closer look at the top part, too hard to read/decipher with a quick glance.

Maybe that code should be sent through the KiXStrip utility to find out what's wrong.
_________________________
There are two types of vessels, submarines and targets.

Top
#33835 - 2002-12-02 09:16 PM Re: INGROUP problem
Lonkero Administrator Offline
KiX Master Guru
*****

Registered: 2001-06-05
Posts: 22346
Loc: OK
logical maybe but quickly checking with my parser (in head) found no structural error from if-endif

ran it with kixstrip and no errors.
here is result:
code:
 SHELL "winset.exe USERNAME=@USERID"
 BREAK ON ;(re)set Ctrl-C/Break handling
 COLOR r+/n

 ;
 CLS
 ;
 SMALL
 COLOR b+/n
 BOX (7,20,17,61,FULL)
 ;
 COLOR w+/n
 ;
 IF ((@time > "00:00:00") AND (@time < "12:00:00"))
       at (9,22) "Good Morning,"
 ELSE
       IF ((@time >= "12:00:00") AND (@time < "18:00:00"))
             at (9,22) "Good Afternoon,"
       ELSE
             at (9,22) "Good Evening,"
       ENDIF
 ENDIF
 ;
 at (10,22) @fullname
 at (12,22) "Please Wait For Logon script Execution"
 at (13,22) "Progress"

 $drive="\\FS2\"+@userid+chr(36)
 USE U: $drive
 SLEEP 5

 DelKey("HKEY_CURRENT_USER\Software\KiXtart\TokenCache")



 IF INGROUP("ESCROW-REO")
       USE S: /delete /persistent
       USE S: "\\FS2\REO$"
       ? "Member of ESCROW-REO group"
 ENDIF


 IF INGROUP("ESCROW-UNIT1")
       USE S: /delete /persistent
       USE S: "\\FS2\ESCROW-UNIT1$"
       ? "Member of ESCROW-UNIT1 group"
 ENDIF


 IF INGROUP("ESCROW-UNIT2")
       USE S: /delete /persistent
       USE S: "\\FS2\ESCROW-UNIT2$"
       ? "Member of ESCROW-UNIT2 group"
 ENDIF


 IF INGROUP("ESCROW-UNIT3")
       USE S: /delete /persistent
       USE S: "\\FS2\ESCROW-UNIT3$"
       ? "Member of ESCROW-UNIT3 group"
 ENDIF


 IF INGROUP("ESCROW-UNIT4")
       USE S: /delete /persistent
       USE S: "\\FS2\ESCROW-UNIT4$"
       ? "Member of ESCROW-UNIT4 group"
 ENDIF

 IF INGROUP("ESCROW-UNIT5")
       USE S: /delete /persistent
       USE S: "\\FS2\ESCROW-UNIT5$"
       ? "Member of ESCROW-UNIT5 group"
 ENDIF

 IF INGROUP("Everyone")
       ? "Member of Everyone group"
       USE I: /delete /persistent
       USE I: "\\FS2\APPS"
       IF Exist ("c:\windows\RD.bat") = 0
             IF Exist ("c:\windows\RD.pif") = 0
                   IF Exist ("c:\windows\MSTSc.exe") = 0
                         IF Exist ("c:\windows\MSTSCAX.DLL") = 0
                               COPY "\\W2K2\netlogon\RD.BAT" "c:\windows"
                               COPY "\\W2K2\netlogon\RD.PIF" "c:\windows"
                               COPY "\\W2K2\netlogon\MSTSC.EXE" "c:\windows"
                               COPY "\\W2K2\netlogon\MSTSCAX.DLL" "c:\windows"
                         ENDIF
                   ENDIF
             ENDIF
       ENDIF
 ENDIF

 IF INGROUP("LED")
       ? "Member of LED group"
       USE G: /delete /persistent
       USE G: "\\ATC-CORP\VOL2"
       USE S: /delete /persistent
       USE S: "\\FS2\LED$"
       IF Exist ("c:\windows\DESKTOP\TRAKKE~1.PIF") = 0
             COPY "\\W2K2\netlogon\TRAKKE~1.PIF" "c:\windows\desktop" ;copies Trakker Star shortcut to desktop
             IF Exist ("c:\windows\DESKTOP\TRAKKE~2.PIF") = 0
                   COPY "\\W2K2\netlogon\TRAKKE~2.PIF" "c:\windows\desktop" ;copies Trakker Lend shortcut to desktop
                   IF Exist ("c:\windows\DESKTOP\STARDO~1.PIF") = 0
                         COPY "\\W2K2\netlogon\STARDO~1.PIF" "c:\windows\desktop" ;copies Star Docnet shortcut to desktop
                   ENDIF
             ENDIF
       ENDIF
 ENDIF

 IF INGROUP("REALEC")
       USE R: /del /persistent
       USE R: "\\FS1\REALEC"
       ? "Member of REALEC group"
 ENDIF
 SLEEP 5

 IF INGROUP("TRAKKER")
       USE L: /delete /persistent
       USE L: "\\TK2\TRAKKER"
       ? "Member of Trakker group"
 ENDIF
 SLEEP 5

 ;if INGROUP("USBANK")
 ;USE I: /delete /Persistent
 ;use I: "\\FS2\Apps"
 ;? "Member of USBANK group"
 ;USE U: /delete /Persistent
 ;USE H: $drive
 ;endif

 ;if INGROUP("LANEGUIDE")
 ;USE I: /delete /Persistent
 ;use I: "\\FS1\LANE GUIDE"
 ;? "Member of LANEGUIDE group"
 ;endif


 IF INGROUP("Domain Admins")
       ? "Member of Domain Admins group"
       SLEEP 5
       USE G: /delete /persistent
       USE G: "\\ATC-CORP\VOL2"
       USE L: /delete /persistent
       USE L: "\\TK2\TRAKKER"
       IF Exist ("c:\windows\DESKTOP\TRAKKE~1.PIF") = 0 ;Checks for the existance of Trakker Star shortcut
             IF Exist ("c:\windows\DESKTOP\TRAKKE~2.PIF") = 0 ;Checks for the existance of Trakker Lend shortcut
                   IF Exist ("c:\windows\DESKTOP\ESCROW~1.PIF") = 0 ;Checks for the existance of Escrow Docnet shortcut
                         IF Exist ("c:\windows\DESKTOP\REOESC~1.PIF") = 0 ;Checks for the existance of Reo Escrow Docnet shortcut
                               IF Exist ("c:\windows\DESKTOP\STARDO~1.PIF") = 0 ;Checks for the existance of Star Docnet shortcut

                                     COPY "\\W2K2\netlogon\TRAKKE~1.PIF" "c:\windows\desktop" ;copies Trakker Star shortcut to desktop
                                     COPY "\\W2K2\netlogon\TRAKKE~2.PIF" "c:\windows\desktop" ;copies Trakker Lend shortcut to desktop
                                     COPY "\\W2K2\netlogon\ESCROW~1.PIF" "c:\windows\desktop" ;copies Escrow Docnet shortcut to desktop
                                     COPY "\\W2K2\netlogon\REOESC~1.PIF" "c:\windows\desktop" ;copies Reo Escrow Docnet shortcut to desktop
                                     COPY "\\W2K2\netlogon\STARDO~1.PIF" "c:\windows\desktop" ;copies Star Docnet shortcut to desktop
                               ENDIF
                         ENDIF
                   ENDIF
             ENDIF
       ENDIF
 ENDIF


;($begin)
;
;                       mon 02-dec-2002 22:19:31       (kix 4.10 vs 3.20e)
;
;Informative KIXSTRIP:   no errors found (input=164 output=164 skip=0).
;
;Informative KIXSTRIP:   25 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:    1 BREAK
;Informative KIXSTRIP:    1 SHELL
;Informative KIXSTRIP:    4 SLEEP
;Informative KIXSTRIP:   27 USE
;
;($end)
_________________________
!

download KiXnet

Top
#33836 - 2002-12-03 06:11 AM Re: INGROUP problem
Steve M Offline
Fresh Scripter

Registered: 2002-05-08
Posts: 40
Loc: Orange,California
In conclusion, is there a reason why I cannot map the REALEC group members to "R"?
_________________________
Steve

Top
#33837 - 2002-12-03 06:18 AM Re: INGROUP problem
Lonkero Administrator Offline
KiX Master Guru
*****

Registered: 2001-06-05
Posts: 22346
Loc: OK
can't quickly think of any.
anyway, place error-checks after each line in that if-endif.
this way you... we can see what is the error kixtart is facing.
_________________________
!

download KiXnet

Top
#33838 - 2002-12-03 06:20 AM Re: INGROUP problem
Kdyer Offline
KiX Supporter
*****

Registered: 2001-01-03
Posts: 6241
Loc: Tigard, OR
Got a question...

Does the Group - "REALEC" have permissions applied for where you are sharing the R: Drive to?

Kent

[ 03. December 2002, 06:21: Message edited by: kdyer ]
_________________________
Utilize these resources:
UDFs (Full List)
KiXtart FAQ & How to's

Top
#33839 - 2002-12-03 06:47 AM Re: INGROUP problem
Steve M Offline
Fresh Scripter

Registered: 2002-05-08
Posts: 40
Loc: Orange,California
Yes it does have the permissions. I can even do a net use R: \\FS1\REALEC in the command window and it maps to it.
_________________________
Steve

Top
#33840 - 2002-12-03 07:23 AM Re: INGROUP problem
NTDOC Administrator Offline
Administrator
*****

Registered: 2000-07-28
Posts: 11628
Loc: CA
Steve,

How about just doing a simple script to verify if in fact it is working correctly.

Try just creating a TEST.KIX file and put in.

code:
use R: "\\FS1\REALEC"
Maybe try with and without the quotes " "

Then run from a DOS box.

C:\TEMP\KIX32.EXE C:\TEMP\TEST.KIX (or whatever path you use for this test).
Top
#33841 - 2002-12-03 08:37 AM Re: INGROUP problem
Lonkero Administrator Offline
KiX Master Guru
*****

Registered: 2001-06-05
Posts: 22346
Loc: OK
I would check the ingroup...
_________________________
!

download KiXnet

Top
#33842 - 2002-12-03 08:40 AM Re: INGROUP problem
Kdyer Offline
KiX Supporter
*****

Registered: 2001-01-03
Posts: 6241
Loc: Tigard, OR
This reminds me of something...

Is "REALC" in proper case? Are you sure it is not "Realc" or "realc"?

As I remember, there was something about INGROUP being case-sensitive.

Kent
_________________________
Utilize these resources:
UDFs (Full List)
KiXtart FAQ & How to's

Top
#33843 - 2002-12-03 08:42 AM Re: INGROUP problem
Lonkero Administrator Offline
KiX Master Guru
*****

Registered: 2001-06-05
Posts: 22346
Loc: OK
[Confused]

kidding?
_________________________
!

download KiXnet

Top
#33844 - 2002-12-03 08:43 AM Re: INGROUP problem
Kdyer Offline
KiX Supporter
*****

Registered: 2001-01-03
Posts: 6241
Loc: Tigard, OR
Actually.. No.. I have tested this..

Now, watch and this will come back and bite me. [Embarrassed]

Kent

[ 03. December 2002, 08:43: Message edited by: kdyer ]
_________________________
Utilize these resources:
UDFs (Full List)
KiXtart FAQ & How to's

Top
Page 1 of 4 1234>


Moderator:  Jochen, Allen, Radimus, Glenn Barnas, ShaneEP, Ruud van Velsen, Arend_, Mart 
Hop to:
Shout Box

Who's Online
0 registered and 657 anonymous users online.
details
Newest Members
M_Moore, BeeEm, min_seow, Audio, Hoschi
17883 Registered Users
My Cookies · Mark all read Powered by UBB.threads™ Contact Us · KiXtart.org website · Top

Generated in 0.101 seconds in which 0.051 seconds were spent on a total of 13 queries. Zlib compression enabled.
Search the board with:
superb Board Search
or try with google:
Google
Web kixtart.org