You are not logged in. [Log In] KiXtart.org website » Forums » KiXtart » Basic Scripting » IF Ingroup ...USE X: Doesn't map drives in XP
Register User       Forum List       Calendar       FAQ
Page 2 of 2 <12
Topic Options
#35599 - 2003-01-29 10:32 PM Re: IF Ingroup ...USE X: Doesn't map drives in XP
Kdyer Offline
KiX Supporter
*****

Registered: 2001-01-03
Posts: 6241
Loc: Tigard, OR
Les,

Agreed..

Isn't the Group Name Case-Sensitive when used with KiX?

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

Top
#35600 - 2003-01-29 10:43 PM Re: IF Ingroup ...USE X: Doesn't map drives in XP
Kdyer Offline
KiX Supporter
*****

Registered: 2001-01-03
Posts: 6241
Loc: Tigard, OR
tarnold,

You could try this to sort out what is going on with the group thing..

For example-
code:
 IF INGROUP("MORTGAGE_GROUP")
       ?"Member of MORTGAGE_GROUP"
 ENDIF
 ; -- other code
 GET $
HTH,

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

Top
#35601 - 2003-01-29 10:44 PM Re: IF Ingroup ...USE X: Doesn't map drives in XP
Kdyer Offline
KiX Supporter
*****

Registered: 2001-01-03
Posts: 6241
Loc: Tigard, OR
tarnold,

You could try this to sort out what is going on with the group thing..

For example-
code:
 IF INGROUP("MORTGAGE_GROUP")
       ?"Member of MORTGAGE_GROUP"
 ENDIF
 ; -- other code
 GET $
I was wrong.. Case of the group name should not matter.

HTH,

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

Top
#35602 - 2003-01-29 10:49 PM Re: IF Ingroup ...USE X: Doesn't map drives in XP
Les Offline
KiX Master
*****

Registered: 2001-06-11
Posts: 12734
Loc: fortfrances.on.ca
Unless it is version dependent, I would have to say the case is immaterial.

The following works on 4.02, 4.12, and 4.20rc2.
code:
break on 
If ingroup('domain admins')
'yeah..."domain admins" works'?
endif
If ingroup('DOMAIN USERS')
'yeah..."DOMAIN USERS" works'?
endif
If ingroup('DoMaIn UsErS')
'yeah..."DoMAaIn UsErS" works'?
endif
get $_

Exit 0
quote:
yeah..."domain admins" works
yeah..."DOMAIN USERS" works
yeah..."DoMAaIn UsErS" works
_________________________
Give a man a fish and he will be back for more. Slap him with a fish and he will go away forever.

Top
#35603 - 2003-01-29 10:56 PM Re: IF Ingroup ...USE X: Doesn't map drives in XP
Sealeopard Offline
KiX Master
*****

Registered: 2001-04-25
Posts: 11165
Loc: Boston, MA, USA
It would be helpful if TArnold could follow our recommendations and post the error codes and all the other relevant info that he has neglected to post so far. I truely believe it's something trivial that we would notice as soon as we'd have all the info.
_________________________
There are two types of vessels, submarines and targets.

Top
#35604 - 2003-01-30 07:45 PM Re: IF Ingroup ...USE X: Doesn't map drives in XP
Kdyer Offline
KiX Supporter
*****

Registered: 2001-01-03
Posts: 6241
Loc: Tigard, OR
tarnold,

Where does this issue sit at this point?

We have given you a number of ideas and suggestions. Can you give a response as to where this is? It would be helpful. For example, I am running Windows XP on our domain with group detection that is working fine.

Thank you.

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

Top
#35605 - 2003-02-02 03:10 AM Re: IF Ingroup ...USE X: Doesn't map drives in XP
rustic Offline
Fresh Scripter

Registered: 2002-01-11
Posts: 6
Loc: Lansdale, PA
Hey, tarnold. Not sure if this helps or not, but I have 100's of XP machines running the same type of operation without any problems.

The only difference I see between my scripts and your is the way you list your groups. You could try list your groups as "domain\group" for global or universal (if Win2K) groups or "server\group" for local groups.

Example:
code:
IF INGROUP ("ntmain\AUDIT")
use H: "$s\AUDIT"
ENDIF

IF INGROUP ("ntmain\INVESTMENT")
use H: "$s\INVESTMT"
ENDIF
Also, this may be obvious, but I see you are using a lot of the same drive letters for different groups. Just make sure you don't have an issue where a user is a member of 2 conflicting groups.

Cheers
Top
#35606 - 2003-02-06 12:59 AM Re: IF Ingroup ...USE X: Doesn't map drives in XP
MCA Offline
KiX Supporter
*****

Registered: 2000-04-28
Posts: 5152
Loc: Netherlands, EU
Dear,

First some remarks:
- you never define the variable $s in your script.
- it is possible that you are trying to map same drive twice. please remove
always a mapping before (re)mapping it.

We have extend your script a little bit. We have add debugging code to
your script with our tool kixstrip, which you can find on our site
(Home - Kix tools or Home - Kix downloads or Summary of Site).
Also a pdf document is available.

Our call was: kixstrip input.kix output.kix /debug /show_structure[/b]

During running the output will be written to the file %tmp%\kixdebug.txt
Please correct also our line

$s="@lserver" ; <+++++++++

Please return the contents of file %tmp%\kixdebug.txt to the board.
Please inform us also about group-membership of user used.
code:
            ;CLS
             IF (instr("-3.0x-3.1x-3.2x-3.3x-","-"+substr(@kix,1,3)+"x-") <> 0)
               IF MessageBox("sorry, your kixtart "+@kix+" release is too old."+CHR(13)+CHR(10)+CHR(13)+CHR(10)+" please upgrade.","KiXtart "+@kix+" info",4112,300)
               ENDIF
               EXIT
             ENDIF
             COLOR C+/N
            ;AT (1,1) " "

             $_debug_file="kixdebug.txt" ; - %tmp% directory -
             IF (len($_debug_file) <> 0)
               IF (substr("%tmp%",len("%tmp%"),1) = "\")
                 $_debug_file="%tmp%"+$_debug_file
               ELSE
                 $_debug_file="%tmp%\"+$_debug_file
               ENDIF
             ENDIF
            ;$_debug_file="c:\kixdebug.txt"
             IF RedirectOutput($_debug_file)
             ENDIF

             ? "-"+LCASE(@day)+" "+@date+" "+@time+"- kixtart "+@kix+"/4.00e script starting"
             IF (Val(substr(@kix,1,1)) >= 4)
               IF (len(@scriptname) <> 0)
                 " ("+LCASE(@scriptname)+")"
               ENDIF
             ENDIF
             ? "-"
             IF ("$_debug_already_starting" <> "yes")
               ? "-curdir:       "+LCASE(@curdir)
               ? "-scriptdir:    "+LCASE(@scriptdir)
               IF (instr("-4.1x-","-"+substr(@kix,1,3)+"x-") <> 0)
                 ? "-scriptname:   "+LCASE(@scriptname)
               ENDIF
               ? "-startdir:     "+LCASE(@startdir)
               ? "-"
               ? "-userid:       "+LCASE(@userid)+"/"+LCASE(@wuserid)
               ? "-user priv:    "+LCASE(@priv)
               IF (instr("-4.xx-","-"+substr(@kix,1,2)+"xx-") <> 0)
                 ? "-version:      inwin="+@inwin+"/dos="+@dos+"/productsuite="+@productsuite+"/producttype="+@producttype+"/csd="+LTRIM(RTRIM(@csd))
               ELSE
                 ? "-version:      inwin="+@inwin+"/dos="+@dos
               ENDIF
               ? "-"
               IF (instr("-4.1x-","-"+substr(@kix,1,3)+"x-") <> 0)
                 ? "-"+@cpu+" (memory "+MemorySize()+" MB)"
                 ? "-"
               ENDIF
             ENDIF

             $_debug_temp_name="" ; -format: yyyymmdd_hhmmss.sss_999 scriptname-
             IF (instr("-3.6x-","-"+substr(@kix,1,3)+"x-") <> 0) OR (Val(substr(@kix,1,1)) >= 4)
               IF (instr("-4.xx-","-"+substr(@kix,1,2)+"xx-") <> 0)
                 $_debug_temp_name=@msecs
                 SELECT
                 CASE (len($_debug_temp_name) = 1)
                   $_debug_temp_name="00"+$_debug_temp_name
                 CASE (len($_debug_temp_name) = 2)
                   $_debug_temp_name="0"+$_debug_temp_name
                 ENDSELECT
                 $_debug_temp_name="."+$_debug_temp_name
                 IF Srnd(@msecs)
                 ENDIF
                 SLEEP 0.050
               ELSE
                 IF Srnd((-1)*32767/(substr(@time,7,2)+1))
                 ENDIF
                 SLEEP 1
               ENDIF
               $_debug_temp_name=substr(@date,1,4)+substr(@date,6,2)+substr(@date,9,2)+"_"+substr(@time,1,2)+substr(@time,4,2)+substr(@time,7,2)+$_debug_temp_name+"_"+Rnd()
               IF (len($_debug_temp_name) < 25)
                 $_debug_temp_name=substr($_debug_temp_name+"          ",1,25)
               ENDIF
               IF (instr("-4.1x-","-"+substr(@kix,1,3)+"x-") <> 0)
                 IF (len(@scriptname) < 12)
                   $_debug_temp_name=$_debug_temp_name+" "+substr(@scriptname+"            ",1,12)
                 ELSE
                   $_debug_temp_name=$_debug_temp_name+" "+@scriptname
                 ENDIF
               ENDIF
             ENDIF

             IF ("$_debug_already_starting" <> "yes")
               ? "-debug file:   "+$_debug_file
               ? "-debug name:   "+LCASE($_debug_temp_name)
             ELSE
               IF (len($_debug_temp_name) <> 0)
                 ? "-debug: "+LTRIM(RTRIM(LCASE($_debug_temp_name)))+" -> "+$_debug_file
               ELSE
                 ? "-debug-file: "+$_debug_file
               ENDIF
             ENDIF

             IF (instr("-3.6x-","-"+substr(@kix,1,3)+"x-") = 0) AND (Val(substr(@kix,1,1)) < 4)
               GOTO _debug_starting_point
             ENDIF
             DIM $_debug_name ; -create local variable-
            :_debug_starting_point
             $_debug_name=LCASE($_debug_temp_name)
             $_debug_already_starting="yes"
             ? "-"
?"----- start-"+@time+"-"+$_debug_name+"- @error @serror"?

?"-         1-"+@time+"-"+$_debug_name+"- @error @serror"?  CLS
?"-         2-"+@time+"-"+$_debug_name+"- @error @serror"? 
?"-         3-"+@time+"-"+$_debug_name+"- @error @serror"?  COLOR c+/w
?"-         4-"+@time+"-"+$_debug_name+"- @error @serror"?  Box (0,0,24,79,grid) ; 'background grid'
?"-         5-"+@time+"-"+$_debug_name+"- @error @serror"?  COLOR c/w
?"-         6-"+@time+"-"+$_debug_name+"- @error @serror"?  Box (7,11,21,71,Å) ; 'shadow' of the box
?"-         7-"+@time+"-"+$_debug_name+"- @error @serror"?  COLOR c+/w
?"-         8-"+@time+"-"+$_debug_name+"- @error @serror"?  Box (6,10,20,70,full)
?"-         9-"+@time+"-"+$_debug_name+"- @error @serror"? 
?"-        10-"+@time+"-"+$_debug_name+"- @error @serror"?  COLOR n+/w
?"-        11-"+@time+"-"+$_debug_name+"- @error @serror"?  At ( 7,20) "Userid : " ; display some text strings
?"-        12-"+@time+"-"+$_debug_name+"- @error @serror"?  At ( 9,20) "Full name : "
?"-        13-"+@time+"-"+$_debug_name+"- @error @serror"?  At (10,20) "Privilege : "
?"-        14-"+@time+"-"+$_debug_name+"- @error @serror"?  At (11,20) "Workstation : "
?"-        15-"+@time+"-"+$_debug_name+"- @error @serror"?  At (12,20) "Domain : "
?"-        16-"+@time+"-"+$_debug_name+"- @error @serror"?  At (13,20) "Logon Server : "
?"-        17-"+@time+"-"+$_debug_name+"- @error @serror"? 
?"-        18-"+@time+"-"+$_debug_name+"- @error @serror"?  COLOR n+/w
?"-        19-"+@time+"-"+$_debug_name+"- @error @serror"?  At ( 7,40) @userid ; ...and some macro's
?"-        20-"+@time+"-"+$_debug_name+"- @error @serror"?  At ( 9,35) @fullname
?"-        21-"+@time+"-"+$_debug_name+"- @error @serror"?  At (10,35) @priv
?"-        22-"+@time+"-"+$_debug_name+"- @error @serror"?  At (11,35) @wksta
?"-        23-"+@time+"-"+$_debug_name+"- @error @serror"?  At (12,35) @domain
?"-        24-"+@time+"-"+$_debug_name+"- @error @serror"?  At (13,35) @lserver
?"-        25-"+@time+"-"+$_debug_name+"- @error @serror"?  At (16,20) "Welcome To The xxxxx Network !"
?"-        26-"+@time+"-"+$_debug_name+"- @error @serror"?  At (17,20) "Today Is "+@date
?"-        27-"+@time+"-"+$_debug_name+"- @error @serror"?  At (18,20) "Unauthorized Access is Prohibited"
?"-        28-"+@time+"-"+$_debug_name+"- @error @serror"? 
?"-        29-"+@time+"-"+$_debug_name+"- @error @serror"?  SLEEP 3
?"-        30-"+@time+"-"+$_debug_name+"- @error @serror"?  COLOR w+/n
?"-        31-"+@time+"-"+$_debug_name+"- @error @serror"?  $s="@lserver" ; <+++++++++
?"-        32-"+@time+"-"+$_debug_name+"- @error @serror"?  ; Map drives here
?"-        33-"+@time+"-"+$_debug_name+"- @error @serror"?  USE f: $home
?"-        34-"+@time+"-"+$_debug_name+"- @error @serror"?  USE g: "\\ntmain\sys"
?"-        35-"+@time+"-"+$_debug_name+"- @error @serror"?  USE m: "$s\mail"
?"-        36-"+@time+"-"+$_debug_name+"- @error @serror"?  USE w: "$s\shardata"
?"-        37-"+@time+"-"+$_debug_name+"- @error @serror"? 
?"-        38-"+@time+"-"+$_debug_name+"- @error @serror"?  DEBUG ON
?"-        39-"+@time+"-"+$_debug_name+"- @error @serror"? 
?"-        40-"+@time+"-"+$_debug_name+"- @error @serror"?  IF InGroup("MORTGAGE_GROUP")
?"-        41-"+@time+"-"+$_debug_name+"- @error @serror"?        USE n: "$s\MTG"
?"-        42-"+@time+"-"+$_debug_name+"- @error @serror"?  ENDIF
?"-        43-"+@time+"-"+$_debug_name+"- @error @serror"? 
?"-        44-"+@time+"-"+$_debug_name+"- @error @serror"?  IF InGroup("FINANCE")
?"-        45-"+@time+"-"+$_debug_name+"- @error @serror"?        USE i: "$s\FINANCE"
?"-        46-"+@time+"-"+$_debug_name+"- @error @serror"?  ENDIF
?"-        47-"+@time+"-"+$_debug_name+"- @error @serror"? 
?"-        48-"+@time+"-"+$_debug_name+"- @error @serror"?  IF InGroup("2NDFLRSEC")
?"-        49-"+@time+"-"+$_debug_name+"- @error @serror"?        USE i: "$s\SECRETAR"
?"-        50-"+@time+"-"+$_debug_name+"- @error @serror"?        USE lpt2 "$s\2ndFLsec"
?"-        51-"+@time+"-"+$_debug_name+"- @error @serror"?  ENDIF
?"-        52-"+@time+"-"+$_debug_name+"- @error @serror"? 
?"-        53-"+@time+"-"+$_debug_name+"- @error @serror"?  IF InGroup ("MTGDATA")
?"-        54-"+@time+"-"+$_debug_name+"- @error @serror"?        USE l: "$s\MORTGAGE"
?"-        55-"+@time+"-"+$_debug_name+"- @error @serror"?  ENDIF
?"-        56-"+@time+"-"+$_debug_name+"- @error @serror"? 
?"-        57-"+@time+"-"+$_debug_name+"- @error @serror"?  IF InGroup ("COMMERCIAL_LOANS")
?"-        58-"+@time+"-"+$_debug_name+"- @error @serror"?        USE h: "$s\COMMERCI"
?"-        59-"+@time+"-"+$_debug_name+"- @error @serror"?  ENDIF
?"-        60-"+@time+"-"+$_debug_name+"- @error @serror"? 
?"-        61-"+@time+"-"+$_debug_name+"- @error @serror"?  IF InGroup ("DEPOSIT_ADM")
?"-        62-"+@time+"-"+$_debug_name+"- @error @serror"?        USE h: "$s\DEPOSADM"
?"-        63-"+@time+"-"+$_debug_name+"- @error @serror"?  ENDIF
?"-        64-"+@time+"-"+$_debug_name+"- @error @serror"? 
?"-        65-"+@time+"-"+$_debug_name+"- @error @serror"?  IF InGroup ("LOANSERV")
?"-        66-"+@time+"-"+$_debug_name+"- @error @serror"?        USE h: "$s\LOANSERV"
?"-        67-"+@time+"-"+$_debug_name+"- @error @serror"?  ENDIF
?"-        68-"+@time+"-"+$_debug_name+"- @error @serror"? 
?"-        69-"+@time+"-"+$_debug_name+"- @error @serror"?  IF InGroup ("BRNCHMGT")
?"-        70-"+@time+"-"+$_debug_name+"- @error @serror"?        USE j: "$s\BRNCHMGT"
?"-        71-"+@time+"-"+$_debug_name+"- @error @serror"?  ENDIF
?"-        72-"+@time+"-"+$_debug_name+"- @error @serror"? 
?"-        73-"+@time+"-"+$_debug_name+"- @error @serror"?  IF InGroup ("1STFLOOR")
?"-        74-"+@time+"-"+$_debug_name+"- @error @serror"?        USE h: "$s\1STFLOOR"
?"-        75-"+@time+"-"+$_debug_name+"- @error @serror"?  ENDIF
?"-        76-"+@time+"-"+$_debug_name+"- @error @serror"? 
?"-        77-"+@time+"-"+$_debug_name+"- @error @serror"?  IF InGroup ("INFOSYS")
?"-        78-"+@time+"-"+$_debug_name+"- @error @serror"?        USE j: "$s\INFOSYS"
?"-        79-"+@time+"-"+$_debug_name+"- @error @serror"?  ENDIF
?"-        80-"+@time+"-"+$_debug_name+"- @error @serror"? 
?"-        81-"+@time+"-"+$_debug_name+"- @error @serror"?  IF InGroup ("AUDIT")
?"-        82-"+@time+"-"+$_debug_name+"- @error @serror"?        USE h: "$s\AUDIT"
?"-        83-"+@time+"-"+$_debug_name+"- @error @serror"?  ENDIF
?"-        84-"+@time+"-"+$_debug_name+"- @error @serror"? 
?"-        85-"+@time+"-"+$_debug_name+"- @error @serror"?  IF InGroup ("INVESTMENT")
?"-        86-"+@time+"-"+$_debug_name+"- @error @serror"?        USE h: "$s\INVESTMT"
?"-        87-"+@time+"-"+$_debug_name+"- @error @serror"?  ENDIF
?"-        88-"+@time+"-"+$_debug_name+"- @error @serror"? 
?"-        89-"+@time+"-"+$_debug_name+"- @error @serror"?  IF InGroup ("HUMAN_RESOURCES")
?"-        90-"+@time+"-"+$_debug_name+"- @error @serror"?        USE l: "$s\HR"
?"-        91-"+@time+"-"+$_debug_name+"- @error @serror"?  ENDIF
?"-        92-"+@time+"-"+$_debug_name+"- @error @serror"? 
?"-        93-"+@time+"-"+$_debug_name+"- @error @serror"?  IF InGroup ("Consumer")
?"-        94-"+@time+"-"+$_debug_name+"- @error @serror"?        USE o: "$s\Consumer"
?"-        95-"+@time+"-"+$_debug_name+"- @error @serror"?  ENDIF
?"-        96-"+@time+"-"+$_debug_name+"- @error @serror"? 
?"-        97-"+@time+"-"+$_debug_name+"- @error @serror"?  IF InGroup ("DepAdm")
?"-        98-"+@time+"-"+$_debug_name+"- @error @serror"?        USE o: "$s\depadm"
?"-        99-"+@time+"-"+$_debug_name+"- @error @serror"?  ENDIF
?"-       100-"+@time+"-"+$_debug_name+"- @error @serror"? 
?"-       101-"+@time+"-"+$_debug_name+"- @error @serror"?  IF InGroup ("Compliance")
?"-       102-"+@time+"-"+$_debug_name+"- @error @serror"?        USE j: "$s\Compliance"
?"-       103-"+@time+"-"+$_debug_name+"- @error @serror"?  ENDIF
?"-       104-"+@time+"-"+$_debug_name+"- @error @serror"? 
?"-       105-"+@time+"-"+$_debug_name+"- @error @serror"?  IF InGroup ("Comscan")
?"-       106-"+@time+"-"+$_debug_name+"- @error @serror"?        USE k: /delete /persistent
?"-       107-"+@time+"-"+$_debug_name+"- @error @serror"?        USE k: "$s\comscan"
?"-       108-"+@time+"-"+$_debug_name+"- @error @serror"?        IF (@error <>0)
?"-       109-"+@time+"-"+$_debug_name+"- @error @serror"?              ? "Error Kix-user: problems during mapping. code @error (@error)"
?"-       110-"+@time+"-"+$_debug_name+"- @error @serror"?        ENDIF
?"-       111-"+@time+"-"+$_debug_name+"- @error @serror"?  ENDIF
?"-       112-"+@time+"-"+$_debug_name+"- @error @serror"? 
?"-       113-"+@time+"-"+$_debug_name+"- @error @serror"?  EXIT
?"-       114-"+@time+"-"+$_debug_name+"- @error @serror"? 

?"------- end-"+@time+"-"+$_debug_name+"- @error @serror"
             ? "-"
             ? "-"+LCASE(@day)+" "+@date+" "+@time+"- kixtart "+@kix+"/4.00e script ending"
             IF (Val(substr(@kix,1,1)) >= 4)
               IF (len(@scriptname) <> 0)
                 " ("+LCASE(@scriptname)+")"
               ENDIF
             ENDIF
             ? "-"
             IF RedirectOutput("CON")
             ENDIF
             COLOR C+/N
             ?
             ? "Informative KIX "+@kix+":"+" debug info see "+CHR(34)+$_debug_file+CHR(34)
             IF (Val(substr(@kix,1,1)) >= 4)
               IF (len(@scriptname) <> 0)
                 " ("+LCASE(@scriptname)+")"
               ENDIF
             ENDIF
             IF RedirectOutput($_debug_file)
             ENDIF
;($begin)
;
;                       wed 05-feb-2003 10:21:42       (kix 4.20 vs 4.00e)
;
;Informative KIXSTRIP:   no errors found (input=114 output=114 skip=0).
;
;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            [18:0:18]
;                           - select:case:endselect    [0:0:0]
;                           - while:loop               [0:0]
;Informative KIXSTRIP:   18 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 DEBUG
;Informative KIXSTRIP:    1 EXIT
;Informative KIXSTRIP:    1 SLEEP
;Informative KIXSTRIP:   23 USE
;
;($end)
greetings.

btw: symbol - on our homepage has been linked to related http://kixtart.org topic.
_________________________
email scripting@wanadoo.nl homepage scripting@wanadoo.nl | Links | Summary of Site Site KiXforms FAQ kixtart.org library collection mirror MCA | FAQ & UDF help file UDF kixtart.org library collection mirror MCA | mirror USA | mirror europe UDF scriptlogic library collection UDFs | mirror MCA

Top
#35607 - 2003-02-05 01:00 PM Re: IF Ingroup ...USE X: Doesn't map drives in XP
Anonymous
Unregistered


Hello.
I am having a similar problem on a Windows XP Pro machine login into a Windows 2000 domain. Being "Usuarios del dominio" the primary group for user "test":
-@primarygroup returns blank value.
-ingroup("Usuarios del dominio") returns false.
A short script that displays to which groups the user belongs to, returns:
Everybody, Local, Interactive, Users and Authenticated users, that is, only seems to show local group names.
That is the only XP machine in my network, Windows 2000 based computers map units using group information without any problem.
I have tried to solve it using "domain/group" and also using Wins, but it does not work either.
Please help me. Thanks in advance.
Top
#35608 - 2003-02-05 01:08 PM Re: IF Ingroup ...USE X: Doesn't map drives in XP
MCA Offline
KiX Supporter
*****

Registered: 2000-04-28
Posts: 5152
Loc: Netherlands, EU
Dear jovati,

Try to run your script after reformatting with additional debugging code like our pre-
vious reaction and return the contents of %tmp%\kixdebug.txt on the board.
greetings.
_________________________
email scripting@wanadoo.nl homepage scripting@wanadoo.nl | Links | Summary of Site Site KiXforms FAQ kixtart.org library collection mirror MCA | FAQ & UDF help file UDF kixtart.org library collection mirror MCA | mirror USA | mirror europe UDF scriptlogic library collection UDFs | mirror MCA

Top
#35609 - 2003-02-05 02:17 PM Re: IF Ingroup ...USE X: Doesn't map drives in XP
Glenn Barnas Administrator Offline
KiX Supporter
*****

Registered: 2003-01-28
Posts: 4401
Loc: New Jersey
Here's a sample from an old login script that was deployed on a few thousand workstations.. (I say "old" because I no longer have any workstations in my environment)

code:
 
; At this point of the script:
; $DRV = letter of drive we're going to map
; $MAPINFO = "\\server\share,option"
; where "option" can be G=groupname, among other things.
; This is split into 
;$DRES (Drive RESource), which is just the server\share info - and
; $PARAM, which is the optional info

; Allow only GROUP MEMBER Access
  if instr($PARAM, "G=")  ; Group option
    $GROUP = substr($PARAM, 3, 99) ; get groupname
    if ingroup("$GROUP") = 0 ; if NOT in group, clear DriveRESource
      $DRES = ""
    endif
  endif

If "$DRES" <> ""
  use $DRV $DRES
EndIf
You can see an explicit test in this example, as well as the use of quotes - I'd try something like
code:
 
   If InGroup("$GROUP") <> 0 ; if IS in group...
      Use blah..blah..
   EndIf
I'm also wondering about what happens when a user belongs to more than one group.

Glenn
_________________________
Actually I am a Rocket Scientist! \:D

Top
#35610 - 2003-02-06 11:31 AM Re: IF Ingroup ...USE X: Doesn't map drives in XP
Anonymous
Unregistered


Hello.
I think that the problem is related somehow with communication between XP
and PDC, because if I enable Netbios over TCP/IP it works sometimes.
Anyway, as a workaround, I coded this simple script that works. Maybe you
find it useful:

code:
Function belongsToGroup($username, $groupname)

    If @INWIN<>2 ;Windows 2000/XP
            $domain = GetObject("WinNT://@LDOMAIN")
            $domain.filter = "group",""
            
            $belongsToGroup = 0

            For Each $group in $domain 
                If $group.name = $groupname
                    For Each $user in $group.members   
                          If $user.name = $username
                              $belongsToGroup=1
                           EndIf
                    Next
                EndIf
            Next
    Else ;Windows 9x
        $belongsToGroup = InGroup($groupname);
    EndIf
EndFunction

Top
#35611 - 2003-02-06 04:29 PM Re: IF Ingroup ...USE X: Doesn't map drives in XP
Sealeopard Offline
KiX Master
*****

Registered: 2001-04-25
Posts: 11165
Loc: Boston, MA, USA
In one of their hard-to-find-again online papers Microsoft advises against disabling NetBIOS.
_________________________
There are two types of vessels, submarines and targets.

Top
Page 2 of 2 <12


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

Who's Online
0 registered and 533 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.115 seconds in which 0.086 seconds were spent on a total of 12 queries. Zlib compression enabled.
Search the board with:
superb Board Search
or try with google:
Google
Web kixtart.org