strLSUserName = "CN=Leah Bugg,OU=Central Services,OU=FCA Users,DC=thefca,DC=co,DC=uk"
If InStr(strGroup, lcase(FCADC42_Personnel)) Then
If Not Lcase(objuser.UserName) = Lcase(StrLSUserName) Then
objNetwork.MapNetworkDrive "f:", "\\FCADC42\Personnel"
Else
objNetwork.MapNetworkDrive "w:", "\\FCADC42\Personnel"
End If
End If
|