Script VBS : Connexion d'un lecteur reseau suivant l'appartenance de l'utilisateur a un groupe de l'AD

De $1

punaise1.gif

 

Voici un petit script VBS permettant la connexion d'un lecteur reseau suivant l'appartenance de l'utilisateur a un groupe de l'AD :

 

ON ERROR RESUME NEXT
set WshShell = CreateObject("WScript.Shell")
Set WshNetwork = WScript.CreateObject("WScript.Network")


DomainName=WshShell.ExpandEnvironmentStrings("%USERDOMAIN%")
LogonServer=WshShell.ExpandEnvironmentStrings("%LogonServer%")
Set UserObj = GetObject("WinNT://" & DomainName & "/" & WshNetwork.username)

'wscript.echo "Bonjour "&WshNetwork.username&" connecte sur "&WshNetwork.computername


'Init Groups
Dim UserGroups
Dim GroupObj
UserGroups=""

For Each GroupObj In UserObj.Groups
UserGroups=UserGroups & "[" & GroupObj.Name & "]"

Next

'wscript.echo "Membre de "&UserGroups


'la commande magique ......................................................................

if InGroup("Nom_du_groupe_de_securite") then
WshNetwork.MapNetworkDrive "L:","\\chemin\dossier"
end if

'Fin de la commande magique ............................................................


' Fonction Ingroup

Function InGroup(strGroup)
InGroup=False
If InStr(UserGroups,"[" & strGroup & "]") Then
InGroup=True

End If

End Function


Il suffit ensuite de dupliquer la "commande magique" afin d'obtenir une connexion des lecteurs suivants leur groupe d'appartenance et .... un script unique pour tout le monde ...

 

 howto05_small.pngVous en pensez quoi ?


 

 

 

 
 
Images (0)
 
Commentaires (0)
Vous devez être connecté pour poster un commentaire.