IdentifiantMot de passe
Loading...
Mot de passe oublié ?Je m'inscris ! (gratuit)
Navigation

Inscrivez-vous gratuitement
pour pouvoir participer, suivre les réponses en temps réel, voter pour les messages, poser vos propres questions et recevoir la newsletter

VBScript Discussion :

Un map réseau en fonction du numéro de groupe


Sujet :

VBScript

Vue hybride

Message précédent Message précédent   Message suivant Message suivant
  1. #1
    Invité
    Invité(e)
    Par défaut Un map réseau en fonction du numéro de groupe
    J'aimerais savoir si c'est possible de créer un script qui permet de mapper un répertoire pour un usager en fonction d'un code X inscrit dans l'active directory.

    Ex: Un usager se voit attribuer un répertoire \\serveur\usagers\groupeC parce que sous objUser.telephoneNumber il est inscrit groupeC (inscription a titre d'exemple...)

    Dans le genre de....

    Code : Sélectionner tout - Visualiser dans une fenêtre à part
    1
    2
    3
    4
    5
    6
    7
    8
     
    Set objNetwork = CreateObject("WScript.Network")
    Set objUser = CreateObject("ADSystemInfo")
    Set objCurrentUser = GetObject("LDAP://" & objUser.UserName)
    strGroup = LCase(objUser.telephoneNumber)
    If InStr(strGroup, lcase("048cl5")) Then
    objNetwork.MapNetworkDrive "Z:", "\\server\shared\048cl5"
    End If
    Une idée pour orienter mes démarches

    Merci

  2. #2
    Invité
    Invité(e)
    Par défaut
    Bon j'avance malgré tout...

    J'ai modifier des affaires et j'arrive a quelque chose...avec ce code

    Code : Sélectionner tout - Visualiser dans une fenêtre à part
    1
    2
    3
    4
    5
    6
    7
    8
    9
    10
    11
    12
    13
     
    Set objSysInfo = CreateObject("ADSystemInfo")
    Set objUser = GetObject("LDAP://" & objSysInfo.UserName)
    strPhone = objUser.telephoneNumber
    Set objNetwork = CreateObject("WScript.Network")
    Set objUser = CreateObject("ADSystemInfo")
    Set objCurrentUser = GetObject("LDAP://" & objUser.UserName)
     
    If InStr(strPhone, lcase("blabla1")) Then
     
    objNetwork.MapNetworkDrive "Z:", "\\serveur\partage\name\"& strPhone
    End If
    WScript.Quit
    Donc avec ce code un utilisateur se connecte et un map se fait sur Z:... si dans la référence strPhone contient l'élément blabla1...

    Toutefois, si strPhone contient bla, blabla ou blabla1 il ne fait pas la différence? Y a t-il moyen de lui préciser la référence complète?

    J'aimerais aussi faire en sorte que si l'utilisateur 1 (strPhone) = blabla1 se connecte un map se fait sur "Z:", "\\serveur\partage\name\"& strPhone
    Mais que si l'utilisateur 2 (strPhone) - blabla3 se connecte le map se fait sur son map Z:\....blabla3

    Quelque chose du genre???

    Code : Sélectionner tout - Visualiser dans une fenêtre à part
    1
    2
    3
    4
    5
    6
    7
    8
     
    If InStr(strPhone, lcase("blabla1")) Then
    objNetwork.MapNetworkDrive "Z:", "\\serveur\partage\name\"& strPhone
    End If
     
    If InStr(strPhone, lcase("blabla2")) Then
    objNetwork.MapNetworkDrive "Z:", "\\serveur\partage\name\"& strPhone
    End If
    Merci

  3. #3
    Invité
    Invité(e)
    Par défaut
    J'avance toujours

    Code : Sélectionner tout - Visualiser dans une fenêtre à part
    1
    2
    3
    4
    5
    6
    7
    8
    9
    10
    11
    12
    13
    14
    15
    16
     
    Set objSysInfo = CreateObject("ADSystemInfo")
    Set objUser = GetObject("LDAP://" & objSysInfo.UserName)
    strPhone = objUser.telephoneNumber
    Set objNetwork = CreateObject("WScript.Network")
    Set objUser = CreateObject("ADSystemInfo")
    Set objCurrentUser = GetObject("LDAP://" & objUser.UserName)
     
    If (InStr(LCase(strPhone), "blabla1") = 1) Then
    objNetwork.MapNetworkDrive "Z:", "\\serveur\partage\user\"& strPhone
    End If
     
    If (InStr(LCase(strPhone), "blabla2") = 1) Then
    objNetwork.MapNetworkDrive "Z:", "\\serveur\partage\user\"& strPhone
    End If
    WScript.Quit
    avec If (InStr(LCase(strPhone), "blabla1") = 1) Then

    Je pense que j'ai réglé le problème

    A voir si ça logique comme code?

+ Répondre à la discussion
Cette discussion est résolue.

Discussions similaires

  1. Ecoute réseau avec fonction select
    Par ptit fab dans le forum Réseau
    Réponses: 1
    Dernier message: 06/06/2008, 08h48
  2. programmation réseau - la fonction select()
    Par u_brush_u dans le forum Développement
    Réponses: 2
    Dernier message: 18/04/2007, 09h42
  3. programmation réseau - la fonction select()
    Par u_brush_u dans le forum Réseau
    Réponses: 8
    Dernier message: 16/04/2007, 13h35
  4. Réponses: 8
    Dernier message: 14/03/2007, 22h06
  5. Réponses: 9
    Dernier message: 05/04/2005, 09h39

Partager

Partager
  • Envoyer la discussion sur Viadeo
  • Envoyer la discussion sur Twitter
  • Envoyer la discussion sur Google
  • Envoyer la discussion sur Facebook
  • Envoyer la discussion sur Digg
  • Envoyer la discussion sur Delicious
  • Envoyer la discussion sur MySpace
  • Envoyer la discussion sur Yahoo