code:

---

if ingroup("AIST") 
  use g: "\\fileserv\shared\administration"
endif

---

quote:

---

C:\>kix32 /?

KiXtart 2001 4.21 (Copyright Ruud van Velsen 2003)
Microsoft Windows (logon) script processor.

Note: KiXtart 2001 is CareWare, please consult the manual for full
details on distribution and licensing.

Usage :

KIX32 [script1] [...] [$var=123] [/f[:yyyy/mm/dd]] [/r:irel] [/d]

Options:
/f = flush token cache (optionally only if older than date specified)
/r = KXRPC search order (see manual for details)
/d = enable debug mode

---

code:

---

; Mandatory drive shares for users v1.0
;
; Format:
;
;[Drive letter]
;UNC              = UNC name of the drive share
;GroupInclude     = User groups to be included in the drive share
;CompExclude      = Computers to be excluded from the drive share
;UserInclude      = Users to be included in the drive share
;NetworkType      = Type of network connection allowed for this share (LOCAL, LAN, VPN, DIALUP)
;DenyGuestAccess  = True if guests are not allowed to access this share

---

code:

---

; Mandatory drive shares for users v2.0
;
; Format:
;
;[UNC]
;Drive            = drive letter to which the UNC name will be mapped
;GroupInclude     = User groups to be included in the drive share
;CompExclude      = Computers to be excluded from the drive share
;UserInclude      = Users to be included in the drive share
;NetworkType      = Type of network connection allowed for this share (LOCAL, LAN, VPN, DIALUP)
;Persistent       = True if mapping is persistent
;DenyGuestAccess  = True if guests are not allowed to access this share

---

code:

---

;-------------------------------------
; subroutine to map drives based on user groups
;
; Structure of the .INI file:
; [Drive letter]
; UNC              = UNC name of the drive share
; GroupInclude     = User groups to be included in the drive share
; CompExclude      = Computers to be excluded from the drive share
; UserInclude      = Users to be included in the drive share
; NetworkType      = Type of network connection allowed for this share (LOCAL, LAN, VPN, DIALUP)
; Persistent       = True if mapping is persistent
; DenyGuestAccess  = True if guests are not allowed to access this share
;-------------------------------------
:NETWORKED_DRIVES
  Dim $driveletters, $drive, $unc, $persistent,  $rc, $server
  Dim $GroupInclude, $CompExclude, $UserInclude, $denyguestaccess
  Dim $networktype

  if not exist($SHARESINI)
    $rc=warning('NETWORKED_DRIVES: Cannot open network shares initialization file '+$SHARESINI)
    return
  endif

  $rc=displaytext('Connecting network shares')
  $driveletters=readprofilestring($SHARESINI,'','')
  $driveletters=atrim(split($driveletters,chr(10)))
  for each $drive in $driveletters
    if $drive<>''
      $unc=trim(readprofilestring($SHARESINI,$drive,'UNC'))
      if $unc<>''
        $denyguestaccess=val(readprofilestring($SHARESINI,$drive,'DenyGuestAccess'))
        if $GUESTACCESS=1 and $denyguestaccess=1
          $rc=displaytext('Guest access is not allowed to UNC '+$unc,1)
          use $drive+':' /delete /persistent
        else
          $networktype=readprofilestring($SHARESINI,$drive,'NetworkType')
          $networktype=atrim(split($networktype,','))
          if isinarray($networktype,$NETWORKCONNECTION)
            $rc=displaytext('Network connection type '+$NETWORKCONNECTION+' authorized to map drive letter '+$drive,1)
            $GroupInclude=readprofilestring($SHARESINI,$drive,'GroupInclude')
            $GroupInclude=atrim(split($GroupInclude,','))
            $CompExclude=readprofilestring($SHARESINI,$drive,'CompExclude')
            $CompExclude=atrim(split($CompExclude,','))
            $UserInclude=readprofilestring($SHARESINI,$drive,'UserInclude')
            $UserInclude=atrim(split($UserInclude,','))
            $persistent=val(trim(readprofilestring($SHARESINI,$drive,'Persistent')))
            if isincluded($GroupInclude, $CompExclude, $UserInclude)
              $rc=mapdrive($drive,$unc,$persistent)
            endif
          else
            $rc=displaytext('Network connection type '+$NETWORKCONNECTION+' not authorized to map drive letter '+$drive+' to '+$unc)
          endif
        endif
      endif
    endif
  next
return

---