Miesiąc: marzec 2010

'*******************************************************************************
'* map network drives lib for logon script                                     *
'*   can be used to map multiple drives. possible error handling               *
'*   user must have proper permissions - providing credentials not handled     *
'*                    nexorek(at)gmail.com           25.iii.2kd                *
'*EXAMPLE USE:                                                                 *
'*addMapping "m","\192.168.1.100c$"                                          *
'*addMapping "n","\192.168.1.100d$"                                          *
'*mapNetworkDrives                                                             *
'*                                                                             *
'*EXECUTE WITH ERROR HANDLING:                                                 *
'*addMapping "m","\192.168.1.100c$"                                          *
'*addMapping "n","\192.168.1.100d$"                                          *
'*if mapNetworkDrives<>0 then                                                  *
'* wscript.echo "do something with "&mapNetworkDrives                          *
'*else                                                                         *
'* wscript.echo "netdrives mapped successfully"                                *
'*end if                                                                       *
'*                                                                             *
'*MAP USER-named DRIVE                                                         *
'*addMapping "h","\servershare"&logonName                                   *
'*                                                                             *
'*CONDITIONAL MAP DRIVE ON USER MEMBERSHIP                                     *
'*if isMember("group name") then addMapping "s","\serversharename"           *
'*                                                                             *
'*******************************************************************************
ON ERROR RESUME NEXT
Const FileServer="\put.servername.here"

Dim dictMappings
Dim oADSystemInfo
Dim oUser, groupList, loginName, dictGroups, g
dim tempname

'*******************************************************************************
'*                                 MAIN                                        *
'*******************************************************************************
'used for store information about mapping drives
set dictMappings=CreateObject("Scripting.Dictionary")

'Object for user/computer information
set oADSystemInfo=CreateObject("ADSystemInfo")
'USER
set oUser=GetObject("LDAP://"&oADSystemInfo.UserName)
loginName=oUser.SAMAccountName
'USER GROUPS MEMBERSHIP
set dictGroups=CreateObject("Scripting.Dictionary")
groupList=oUser.getEx("memberOf")
for each g in groupList
  if not strcomp(lcase( left( getObject("LDAP://"&g).objectCategory,8) ),"cn=group" ) then
    enumGroupsInGroup("LDAP://"&g)
  end if
  tempname=lcase(mid(g,4,InStr(g,",")-4))
  if not dictGroups.exists(tempname) then dictGroups.add tempname, g
next

'PUT MAPPINGS HERE. example:
if isMember("AG_FS01_RW_Accounting") then addMapping "i","\FS01Accounting"
mapNetworkDrives

'*******************************************************************************
'*                              SUBS'N'FUNCS                                   *
'*******************************************************************************
Sub addMapping(drvLetter, srvPath)
  dictMappings.add ucase(drvLetter)&":", srvPath
End Sub

Function mapNetworkDrives()
  ON ERROR RESUME NEXT
  Dim wshNetwork
  Dim AllDrives, i

  Set WshNetwork = WScript.CreateObject("WScript.Network")
  Set AllDrives = WshNetwork.EnumNetworkDrives()

  For each i in dictMappings
    'unmap before mapping - just to be sure that drive letter is not used
     if dictMappings.Exists(i) then
       WShNetwork.RemoveNetworkDrive AllDrives.Item(i)
     end if
    WShNetwork.MapNetworkDrive i, dictMappings(i)
    mapNetworkDrives=cstr(hex(err.number))
  next
End Function

Function isMember(gName)
  if dictGroups.Exists(lcase(gName)) then
    isMember=TRUE
  else
    isMember=FALSE
  end if
End Function

Sub enumGroupsInGroup(gname)
  ON ERROR RESUME NEXT
  Dim grpList, gentry

  grpList=getObject(gname).getEx("memberOf")
  for each gentry in grpList
    if not strcomp(lcase( left( getObject("LDAP://"&gentry).objectCategory,8) ),"cn=group" ) then
      dictGroups.add lcase(mid(gentry,4,InStr(gentry,",")-4)), gentry
      'next line is recursion for multilevel nesting. for performance purposes assumed 2-level structure
      'so it is disabled. there should be no more then second-level nesting for permissions
      'in fact it can be even dengerous - someone may have accidently mapped drive  
      'enumGroupsInGroup("LDAP://"&gentry)
    end if
  next

End Sub