User = Msgbox("L'utilisateur actuellement connecté sur cette ordinateur est " & oNet.UserName,64,"Utilisateur connecté")
Set oAcct = GetObject("WinNT://" & sUserDomain & "/" & sUserName)
For Each GroupObj In oAcct.Groups
Select Case GroupObj.Name
Case "MISMOGPE.Users"
oNet.MapNetworkDrive "P:", "[file://na-donn/USERS/ \\na-donn\USERS\]& oNet.UserName"
Msgbox ("Vous avez maintenant accès à vos ressources")
Exit For
Case "Domain.Administrators"
oNet.MapNetworkDrive "X:", "[file://server/administrators \\server\administrators]"
Case Else
reponse=Msgbox("Il n'y a pas de ressources réseaux associés à votre nom et à votre groupe.",16,"ERREUR")
Exit For
End Select
Next
En fait, il me répond toujours qu il n'y a pas de ressources alors que c'est totalement bidon.
Renfield
Messages postés17287Date d'inscriptionmercredi 2 janvier 2002StatutModérateurDernière intervention27 septembre 202174 22 déc. 2005 à 10:35
as tu essayé d'ajouter un
MsgBox GroupObj.Name
comme ceci :
For Each GroupObj In oAcct.Groups
MsgBox GroupObj.Name
Select Case GroupObj.Name
Case "MISMOGPE.Users"
oNet.MapNetworkDrive "P:", "[file://na-donn/USERS/ \\na-donn\USERS\]& oNet.UserName"
Msgbox ("Vous avez maintenant accès à vos ressources")
Exit For
Case "Domain.Administrators"
oNet.MapNetworkDrive "X:", "[file://server/administrators \\server\administrators]"
Case Else
reponse=Msgbox("Il n'y a pas de ressources réseaux associés à votre nom et à votre groupe.",16,"ERREUR")
Exit For
End Select
cs_Stevous
Messages postés33Date d'inscriptionvendredi 21 octobre 2005StatutMembreDernière intervention14 mars 2006 22 déc. 2005 à 14:16
J'ai donc testé ta commande. Il m'a bien donné le groupe de la personne. J'ai donc modifié dans mon code le nom mais il me dit toujours que le chemin réseau n'est pas trouvé.Voila mon code :
For Each GroupObj In oAcct.Groups
MsgBox GroupObj.Name
Select Case GroupObj.Name
Case "SIE-INFO_INT"
oNet.MapNetworkDrive "Z:", "[file://na-donn/USERS/ \\na-donn\USERS\]"
Msgbox ("Vous avez maintenant accès à vos ressources")
Exit For
Si tu pouvais m aider, ce serait cool. Merci d'avance