Using Lonk's version of enumINI() - Load ini-file into array
I can get the drives to map for everything except user's H: drives..
Code:
CLS
BREAK ON
DIM $rc
;$rc=SETOPTION("NoVarsInStrings","ON")
;ENUMINI(@scriptdir+"\DRIVES.INI")
;?
;?'Process complete..'
;get $
"treeview of ini-file"
$data=enumINI(@scriptdir+"\DRVMAP.ini")
IF @error
? "something went wrong: @serror"
SLEEP 2
ELSE
FOR EACH $section IN $data
IF INSTR($section[0],',')
FOR EACH $grp IN SPLIT($section[0],',')
?'"'+$grp='"'
IF INGROUP($grp)
?"member of "+$grp
FOR $value=1 TO ubound($section)
$drive=$section[$value][0]
$resource=$section[$value][1]
$rc=execute('$$resource='+$resource)
USE $drive+':' $resource
?$drive+':' $resource
?$drive
?$resource
NEXT
ENDIF
NEXT
ELSE
$grp=$section[0]
?'"'+$grp+'"'
IF INGROUP($grp)
?"member of "+$grp
FOR $value=1 TO ubound($section)
$drive=$section[$value][0]
$resource=$section[$value][1]
$rc=execute('$$resource='+$resource)
USE $drive+':' $resource
?$drive+':' $resource
?$drive
?$resource
NEXT
ENDIF
ENDIF
NEXT
ENDIF
??"process complete.."
GET $
INI Structure is as follows:
Code:
[DOMAIN1\MMC PDX,DOMAIN2\PDX]
H=\\RESOURCE\@userid$
R=\\APPS\APPS
S=\\RESOURCE\SHARED
[Beaverton]
F=\\REMOTE\apps
H=\\REMOTE\USERS$\+@userid
R=\\APPSERVER\apps
S=\\REMOTE\shared
T=\\RESOURCE\shared
[Marketing]
N=\\IIS\MARKET
[DOMAIN1\Info_Technology,DOMAIN2\MMC Info_Technology]
G=\\RESOURCE\IS
I have tried to use the EXECUTE to do this with no success.
Thanks,
Kent
