|
|
|||||||
I have script workin in Kix 95 ver 3.62. I want to upgrade it to at least kixstart 4.21 so that I can incorporate and use Kixforms. My script is: Map to L drive if meber of global Group(_global) Map S to first departmental Drive then I, J so on and so forth for the follwoing departmental drive. However when I run my script using the kix4.21 the mapping is not working properly. I Cannot map anymore the first departmental drive which is the S drive. However the global (L drive) is working. Any change in some functions cannto find it. Thanks and More power CLS small COLOR b+/n BOX (0,0,24,79,grid) COLOR b/n BOX (8,16,21,71,Å) COLOR y+/n BOX (7,15,20,70,full) ; REM DISPLAY NT VARIABLE NAMES Color W+/n AT ( 9,20) "Userid : " AT (10,20) "Full name : " AT (11,20) "Description : " AT (12,20) "Privilege : " AT (13,20) "Workstation : " AT (14,20) "Primary Group: " AT (15,20) "Domain : " AT (16,20) "Logon Domain : " AT (17,20) "Logon Server : " Color G+/n AT (19,20) " YOU ARE LOGGED ON TO XYZ NETWORK " ; AT (20,20) @time ; REM DISPLAY NT VARIABLES Color y+/n AT ( 9,35) @userid AT (10,35) @fullname AT (11,35) @comment AT (12,35) @priv AT (13,35) @wksta AT (14,35) @primarygroup AT (15,35) @domain AT (16,35) @ldomain AT (17,35) @lserver COLOR w/n SLEEP 5 CLS ; REM SET USER VARIABLES $x="$$" $v="\\FS1_NT\" $a="\\FS1_NT\" ; add File server 2 $w="\\FS2_NT\" ; call the users drive $u=@userid ; call indi $dir=$v+$u+$x :COMMENT $s = instr(@COMMENT,"(") $e = instr(@COMMENT,")") $l = ($e - $s) - 1 IF $s = 0 $g = "NONE" ELSE IF $e > 0 $g = SUBSTR(@COMMENT,$s+1,$l) ELSE $g = "NONE" ENDIF ENDIF ; change $grp=$w+$g+$x :HOME ; REM NET USE HOME DIRECTORY USE F: $dir :SETGROUP SET "GROUP=$g" DIM $Group[20] $i=0 $j=0 do if substr(ENUMGROUP($i),1,1) = "_" $j=$j+1 $Group[$j] = substr(ENUMGROUP($i),2,Len(ENUMGROUP($i))-1) ? $i " " $j " " $Group[$j] ? endif $i=$i+1 UNTIL Len(ENUMGROUP($i)) = 0 OR $i=20 $grp0=$w+$Group[1]+$x $grp1=$w+$Group[2]+$x $grp2=$w+$Group[3]+$x $grp3=$w+$Group[4]+$x $global="GLOBAL" $gl=$w+$global+$x USE L: $gl if $j > 0 USE S: $grp0 endif if $j > 1 USE I: $grp1 endif if $j > 2 USE J: $grp2 endif if $j > 3 USE K: $grp3 endif COOKIE1 EXIT |
||||||||
|
|
|||||||
May I ask you you don't use simple INGROUP() statements to map drives based on group membership? |
||||||||
|
|
|||||||
I tried to use ingroup() but still no working. Can somebody help me please. I double check and nothing change in the code except the version i'm compiling it(from Kix95 ver 3.62 to higher one 4.20. or 4.21. Ther mapping is not showing the departmental drive why??? Can somebody assist. thanks |
||||||||
|
|
|||||||
Did you upgrade the KXRPC Service as well? Did you perform basic error checking? Did you step through the code via DEBUG ON? Where does it fail? What are the error codes returned by the INGROUP()? Did you try an isolated script with just an INGROUP() in it? Does the USE return an error code? What do you mean by "Compiling"? Ther is NO KiXtart Compiler! |
||||||||
|
|
|||||||
What do you get when run just this bit of code? Code:
HTH, Kent |