J'ai créé des script de conexion pour connecteur mes imprimante réseau au
login de l'utilisateur. Cependant je voudrais connecter les imprimantes en
fonction de l'apatenance du user à une OU ou un groupe de sécurité. Et tous
ca sans avoir à créer un script par OU
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire
Veuillez sélectionner un problème
Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
Julien
Bonjour Eric,
Voila ce que tu pourrais faire :
Function GroupMember(UserName,GroupName) Dim GroupPath On Error Resume next Err.Clear Set GroupPath = GetObject("WinNT://domain/"& GroupName &",Group") If Err = 0 Then If GroupPath.IsMember("WinNT://domain/" & UserName) Then GroupMember = True Exit function Else GroupMember = False Exit Function End If Else GroupMember = False
Exit Function End if End Function '-------------------------------------------------------------------------- Function GetUserName() Dim objNet Set objNet = CreateObject("WScript.NetWork") GetUserName = objNet.UserName End Function '--------------------------------------------------------------------------
Dim UserName UserName = GetUserName()
If GroupMember(UserName,"nom d'un group") = True Then La partie qui map l'imprimante End if
J'ai pris les infos dans un script que j'avais fait pour monter des maps réseaux. Je pense avoir rien oublier mais sait on jamais. De toute façon l'idée est la.
@+
Julien
Bonjour Eric,
Voila ce que tu pourrais faire :
Function GroupMember(UserName,GroupName)
Dim GroupPath
On Error Resume next
Err.Clear
Set GroupPath = GetObject("WinNT://domain/"& GroupName &",Group")
If Err = 0 Then
If GroupPath.IsMember("WinNT://domain/" & UserName) Then
GroupMember = True
Exit function
Else
GroupMember = False
Exit Function
End If
Else
GroupMember = False
Exit Function
End if
End Function
'--------------------------------------------------------------------------
Function GetUserName()
Dim objNet
Set objNet = CreateObject("WScript.NetWork")
GetUserName = objNet.UserName
End Function
'--------------------------------------------------------------------------
Dim UserName
UserName = GetUserName()
If GroupMember(UserName,"nom d'un group") = True Then
La partie qui map l'imprimante
End if
J'ai pris les infos dans un script que j'avais fait pour monter des maps
réseaux. Je pense avoir rien oublier mais sait on jamais. De toute façon
l'idée est la.
Function GroupMember(UserName,GroupName) Dim GroupPath On Error Resume next Err.Clear Set GroupPath = GetObject("WinNT://domain/"& GroupName &",Group") If Err = 0 Then If GroupPath.IsMember("WinNT://domain/" & UserName) Then GroupMember = True Exit function Else GroupMember = False Exit Function End If Else GroupMember = False
Exit Function End if End Function '-------------------------------------------------------------------------- Function GetUserName() Dim objNet Set objNet = CreateObject("WScript.NetWork") GetUserName = objNet.UserName End Function '--------------------------------------------------------------------------
Dim UserName UserName = GetUserName()
If GroupMember(UserName,"nom d'un group") = True Then La partie qui map l'imprimante End if
J'ai pris les infos dans un script que j'avais fait pour monter des maps réseaux. Je pense avoir rien oublier mais sait on jamais. De toute façon l'idée est la.
