[gptalk] Sanity Check on login script

On the script below, do you see any occasion, where a user would randomly get 
the drive letter e showing up as disconnected drive under Network Drives?

Seemingly, once I put this script in a GPO, some users have said or noticed 
that occasionally the Drive letter e, will show as a disconnected network 
drive, usually with no path, sometimes with the 
'nasstorage.mountedshare.com\com' showing as the path to the drive

I don't see where anything below would contribute to that, but I wanted to make 
sure I was not missing anything

Option Explicit

Dim objSysInfo, objNetwork, strUserPath, objUser
Dim adoCommand, adoConnection, strBase, strAttributes
Dim objGroupList


Set objSysInfo = CreateObject("ADSystemInfo")
Set objNetwork = CreateObject("Wscript.Network")


strUserPath = "LDAP://" & objSysInfo.UserName
Set objUser = GetObject(strUserPath)


'Removes curent mappings
On Error Resume Next
objNetwork.RemoveNetworkDrive "L:", True, True
objNetwork.RemoveNetworkDrive "J:", True, True
objNetwork.RemoveNetworkDrive "Z:", True, True
objNetwork.RemoveNetworkDrive "R:", True, True
objNetwork.RemoveNetworkDrive "N:", True, True
objNetwork.RemoveNetworkDrive "O:", True, True
objNetwork.RemoveNetworkDrive "U:", True, True
objNetwork.RemoveNetworkDrive "S:", True, True
objNetwork.RemoveNetworkDrive "M:", True, True
objNetwork.RemoveNetworkDrive "I:", True, True
objNetwork.RemoveNetworkDrive "K:", True, True
objNetwork.RemoveNetworkDrive "X:", True, True
objNetwork.RemoveNetworkDrive "Y:", True, True
objNetwork.RemoveNetworkDrive "Q:", True, True
objNetwork.RemoveNetworkDrive "P:", True, True
objNetwork.RemoveNetworkDrive "V:", True, True
On Error GoTo 0
Wscript.Sleep(5000)


If (IsMember(objUser, "nas IT Services Group") = True) Then
    objNetwork.MapNetworkDrive "Y:", _
"\\nasstorage.mountedshare.com\com\shares\groups\IT services", False
End If


If (IsMember(objUser, "nas Career Services") = True) Then
    objNetwork.MapNetworkDrive "L:", _
"\\nasstorage.mountedshare.com\com\shares\groups\Career Services", False
    objNetwork.MapNetworkDrive "J:", _
"\\nasstorage.mountedshare.com\com\shares\groups\Career Svcs_Act", False
    objNetwork.MapNetworkDrive "Z:", _
"\\nasstorage.mountedshare.com\com\shares\groups\Undergraduate Office", False
End If


If (IsMember(objUser, "nas Career Services SAs") = True) Then
    objNetwork.MapNetworkDrive "L:", _
"\\nasstorage.mountedshare.com\com\shares\groups\Career Services", False
    objNetwork.MapNetworkDrive "J:", _
"\\nasstorage.mountedshare.com\com\shares\groups\Career Svcs_Act", False
End If


If (IsMember(objUser, "nas CIBER") = True) Then
    objNetwork.MapNetworkDrive "R:", _
"\\nasstorage.mountedshare.com\com\shares\groups\CIBER", False
End If


If (IsMember(objUser, "nas Communications") = True) Then
    objNetwork.MapNetworkDrive "R:", _
"\\nasstorage.mountedshare.com\com\shares\groups\Communications", False
    objNetwork.MapNetworkDrive "N:", _
"\\nasstorage.mountedshare.com\com\shares\groups\DeanSuite", False
End If


If (IsMember(objUser, "nas Communications Share Guest access") = True) Then
    objNetwork.MapNetworkDrive "V:", _
"\\nasstorage.mountedshare.com\com\shares\groups\Communications", False
End If


If (IsMember(objUser, "nas Dean Suite non HR") = True) Then
    objNetwork.MapNetworkDrive "L:", _
"\\nasstorage.mountedshare.com\com\shares\groups\Building Operations", False
    objNetwork.MapNetworkDrive "N:", _
"\\nasstorage.mountedshare.com\com\shares\groups\DeanSuite", False
    objNetwork.MapNetworkDrive "O:", _
"\\nasstorage.mountedshare.com\com\shares\groups\Accounting", False
End If


If (IsMember(objUser, "nas Development") = True) Then
    objNetwork.MapNetworkDrive "L:", _
"\\nasstorage.mountedshare.com\com\shares\groups\Development", False
    objNetwork.MapNetworkDrive "R:", _
"\\nasstorage.mountedshare.com\com\shares\groups\Communications", False
    objNetwork.MapNetworkDrive "M:", _
"\\nasstorage.mountedshare.com\com\shares\groups\Development\Student Share", 
False
    objNetwork.MapNetworkDrive "N:", _
"\\nasstorage.mountedshare.com\com\shares\groups\DeanSuite", False
End If


If (IsMember(objUser, "nas Development SAs") = True) Then
    objNetwork.MapNetworkDrive "M:", _
"\\nasstorage.mountedshare.com\com\shares\groups\Development\Student Share", 
False
End If


If (IsMember(objUser, "nas Eview Users") = True) Then
    objNetwork.MapNetworkDrive "Y:", _
"\\nasstorage.mountedshare.com\com\shares\groups\EVIEW", False
End If


If (IsMember(objUser, "nas Executive Masters") = True) Then
    objNetwork.MapNetworkDrive "I:", _
"\\nasstorage.mountedshare.com\com\shares\groups\Executive Education", False
    objNetwork.MapNetworkDrive "J:", _
"\\nasstorage.mountedshare.com\com\shares\groups\EMSMOT_Act", False
    objNetwork.MapNetworkDrive "K:", _
"\\nasstorage.mountedshare.com\com\shares\groups\EMSMOT", False
    objNetwork.MapNetworkDrive "P:", _
"\\nasstorage.mountedshare.com\com\shares\groups\Accounting", False
    objNetwork.MapNetworkDrive "L:", _
"\\nasstorage.mountedshare.com\com\shares\groups\Executive Programs", False
End If


If (IsMember(objUser, "nas Executive Programs") = True) Then
    objNetwork.MapNetworkDrive "I:", _
"\\nasstorage.mountedshare.com\com\shares\groups\Executive Education", False
    objNetwork.MapNetworkDrive "J:", _
"\\nasstorage.mountedshare.com\com\shares\groups\EMSMOT_Act", False
    objNetwork.MapNetworkDrive "K:", _
"\\nasstorage.mountedshare.com\com\shares\groups\EMSMOT", False
    objNetwork.MapNetworkDrive "P:", _
"\\nasstorage.mountedshare.com\com\shares\groups\Accounting", False
    objNetwork.MapNetworkDrive "L:", _
"\\nasstorage.mountedshare.com\com\shares\groups\Executive Programs", False
End If


If (IsMember(objUser, "nas Explab Share participants") = True) Then
    objNetwork.MapNetworkDrive "Z:", _
"\\nasstorage.mountedshare.com\com\shares\groups\Explab", False
End If

If (IsMember(objUser, "nas FACS Admin Assistant read access") = True) Then
    objNetwork.MapNetworkDrive "S:", _
"\\nasstorage.mountedshare.com\com\shares\groups\Accounting\FAcS", False
End If


If (IsMember(objUser, "nas Graduate Office") = True) Then
    objNetwork.MapNetworkDrive "M:", _
"\\nasstorage.mountedshare.com\com\shares\groups\Graduate Office", False
End If


If (IsMember(objUser, "nas Grad Assistant Share") = True) Then
    objNetwork.MapNetworkDrive "U:", _
"\\nasstorage.mountedshare.com\com\shares\groups\Graduate Assistantship", False
End If


If (IsMember(objUser, "nas HR staff") = True) Then
    objNetwork.MapNetworkDrive "X:", _
"\\nasstorage.mountedshare.com\com\shares\groups\Building Operations", False
    objNetwork.MapNetworkDrive "N:", _
"\\nasstorage.mountedshare.com\com\shares\groups\DeanSuite", False
    objNetwork.MapNetworkDrive "O:", _
"\\nasstorage.mountedshare.com\com\shares\groups\Accounting", False
    objNetwork.MapNetworkDrive "Y:", _
"\\nasstorage.mountedshare.com\com\shares\groups\Communications", False
    objNetwork.MapNetworkDrive "R:", _
"\\nasstorage.mountedshare.com\com\shares\groups\Human Resources", False
    objNetwork.MapNetworkDrive "Q:", _
"\\nasstorage.mountedshare.com\com\shares\groups\Accounting\PCard", False
End If


If (IsMember(objUser, "ILE Office") = True) Then
    objNetwork.MapNetworkDrive "J:", _
"\\nasstorage.mountedshare.com\com\shares\groups\Institute for LE", False
End If


If (IsMember(objUser, "ILE GRAs") = True) Then
    objNetwork.MapNetworkDrive "J:", _
"\\nasstorage.mountedshare.com\com\shares\groups\Institute for LE", False
End If


If (IsMember(objUser, "nas Tiger Share participants") = True) Then
    objNetwork.MapNetworkDrive "R:", _
"\\nasstorage.mountedshare.com\com\shares\groups\TIGER", False
End If


If (IsMember(objUser, "nas Undergraduate Office") = True) Then
    objNetwork.MapNetworkDrive "M:", _
"\\nasstorage.mountedshare.com\com\shares\groups\Undergraduate Office", False
End If


If (IsMember(objUser, "nas Recruiting Share Access") = True) Then
    objNetwork.MapNetworkDrive "Q:", _
"\\nasstorage.mountedshare.com\com\shares\groups\Recruiting", False
End If


If (IsMember(objUser, "nas Faculty") = True) Then
    objNetwork.MapNetworkDrive "S:", _
"\\nasstorage.mountedshare.com\com\shares\groups\Accounting\FAcS", False
End If


Function IsMember(ByVal objADObject, ByVal strGroupNTName)
    ' Function to test for group membership.
    ' objADObject is a user or computer object.
    ' strGroupNTName is the NT name (sAMAccountName) of the group to test.
    ' objGroupList is a dictionary object, with global scope.
    ' Returns True if the user or computer is a member of the group.
    ' Subroutine LoadGroups is called once for each different objADObject.


    Dim objRootDSE, strDNSDomain


    ' The first time IsMember is called, setup the dictionary object
    ' and objects required for ADO.
    If (IsEmpty(objGroupList) = True) Then
        Set objGroupList = CreateObject("Scripting.Dictionary")
        objGroupList.CompareMode = vbTextCompare


        Set adoCommand = CreateObject("ADODB.Command")
        Set adoConnection = CreateObject("ADODB.Connection")
        adoConnection.Provider = "ADsDSOObject"
        adoConnection.Open "Active Directory Provider"
        adoCommand.ActiveConnection = adoConnection


        Set objRootDSE = GetObject("LDAP://RootDSE")
        strDNSDomain = objRootDSE.Get("defaultNamingContext")


        adoCommand.Properties("Page Size") = 100
        adoCommand.Properties("Timeout") = 30
        adoCommand.Properties("Cache Results") = False


        ' Search entire domain.
        strBase = "<LDAP://" & strDNSDomain & ">"
        ' Retrieve NT name of each group.
        strAttributes = "sAMAccountName"


        ' Load group memberships for this user or computer into dictionary
        ' object.
        Call LoadGroups(objADObject)
        Set objRootDSE = Nothing
    End If
    If (objGroupList.Exists(objADObject.sAMAccountName & "\") = False) Then
        ' Dictionary object established, but group memberships for this
        ' user or computer must be added.
        Call LoadGroups(objADObject)
    End If
    ' Return True if this user or computer is a member of the group.
    IsMember = objGroupList.Exists(objADObject.sAMAccountName & "\" _
        & strGroupNTName)
End Function


Sub LoadGroups(ByVal objADObject)
    ' Subroutine to populate dictionary object with group memberships.
    ' objGroupList is a dictionary object, with global scope. It keeps track
    ' of group memberships for each user or computer separately. ADO is used
    ' to retrieve the name of the group corresponding to each objectSid in
    ' the tokenGroup array. Based on an idea by Joe Kaplan.


    Dim arrbytGroups, k, strFilter, adoRecordset, strGroupName, strQuery


    ' Add user name to dictionary object, so LoadGroups need only be
    ' called once for each user or computer.
    objGroupList.Add objADObject.sAMAccountName & "\", True


    ' Retrieve tokenGroups array, a calculated attribute.
    objADObject.GetInfoEx Array("tokenGroups"), 0
    arrbytGroups = objADObject.Get("tokenGroups")


    ' Create a filter to search for groups with objectSid equal to each
    ' value in tokenGroups array.
    strFilter = "(|"
    If (TypeName(arrbytGroups) = "Byte()") Then
        ' tokenGroups has one entry.
        strFilter = strFilter & "(objectSid=" _
            & OctetToHexStr(arrbytGroups) & ")"
    ElseIf (UBound(arrbytGroups) > -1) Then
        ' TokenGroups is an array of two or more objectSid's.
        For k = 0 To UBound(arrbytGroups)
            strFilter = strFilter & "(objectSid=" _
                & OctetToHexStr(arrbytGroups(k)) & ")"
        Next
    Else
        ' tokenGroups has no objectSid's.
        Exit Sub
    End If
    strFilter = strFilter & ")"


    ' Use ADO to search for groups whose objectSid matches any of the
    ' tokenGroups values for this user or computer.
    strQuery = strBase & ";" & strFilter & ";" _
        & strAttributes & ";subtree"
    adoCommand.CommandText = strQuery
    Set adoRecordset = adoCommand.Execute


    ' Enumerate groups and add NT name to dictionary object.
    Do Until adoRecordset.EOF
        strGroupName = adoRecordset.Fields("sAMAccountName").Value
        objGroupList.Add objADObject.sAMAccountName & "\" _
            & strGroupName, True
        adoRecordset.MoveNext
    Loop
    adoRecordset.Close


    Set adoRecordset = Nothing
End Sub


Function OctetToHexStr(ByVal arrbytOctet)
    ' Function to convert OctetString (byte array) to Hex string,
    ' with bytes delimited by \ for an ADO filter.


    Dim k
    OctetToHexStr = ""
    For k = 1 To Lenb(arrbytOctet)
        OctetToHexStr = OctetToHexStr & "\" _
            & Right("0" & Hex(Ascb(Midb(arrbytOctet, k, 1))), 2)
    Next
End Function



Booker T. Washington III
Systems Support Specialist

Other related posts: