Script d'ouverture de session en VBscript

[boulbi]

Hello tout le monde,

Je continu dans le partage de mes scripts.

Ce script, je l'utilise au logon des utilisateurs, il va s'occuper :

- Monter les imprimantes en fonction d'un groupe de sécurité Active Directory

- Monter un lecteur partagé en fonction du groupe de sécurité au quel appartient l'utilisateur, et également d'effectuer une recherche de lettre disponible pour monter le lecteur. Cela est pratique pour les utilisateurs qui ont beaucoup de lecteur à monter.

Pour l'adapter à votre environnement, il faut seulement modifier les caractères en Gras.

J'espère que ce script pourra être utile à certain.

On Error Resume Next

Dim WshNetwork, sUserName, sUserDomain, oAcct, sGroup, GroupObj

Set WshNetwork = CreateObject("WScript.Network")

Set shell = CreateObject("shell.application")

sUserName = WshNetwork.UserName

sUserDomain = WshNetwork.UserDomain

Set oAcct = GetObject("WinNT://" & sUserDomain & "/" & sUserName)

'*****************************************************************************

'* *

'* *

'* Monter lecteur en fonction du groupe de sécurité *

'* *

'* *

'* *

'******************************************************************************

For Each GroupObj In oAcct.Groups

Select Case GroupObj.Name

Case "Nom du groupe de securite"

lecteur = lecteurdispo()

WshNetwork.MapNetworkDrive lecteur & ":", "\\Nom du serveur\Nom du partage"

Case "Nom du groupe de securite"

lecteur = lecteurdispo()

WshNetwork.MapNetworkDrive lecteur & ":", "\\Nom du serveur\Nom du partage"

End Select

set Shell=nothing

Next

'***************Monter Imprimante en fonction du groupe de sécurité***************

For Each GroupObj In oAcct.Groups

Select Case GroupObj.Name

Case "Nom du groupe de securite"

WSHNetwork.AddWindowsPrinterConnection "\\Nom du serveur\Nom de l'imprimante"

'***************Fonction de recherche de lettre de lecteur disponible***************

function lecteurdispo()

dim fso

Set fso = CreateObject("Scripting.FileSystemObject")

For i = Asc("M") To Asc("Z")

Llecteur = Chr(i)

If fso.DriveExists(Llecteur)=False Then

lecteurdispo=Llecteur

Exit For

End if

Next

Set fso=Nothing

end function

[Mobyo]

Hé hé merci ! Au taf, on a un vieux .bat tout pourri qui monte les lecteurs réseaux au logon mais il déconne grave avec les PC sous Windows 7 et j'étais justement en train de chercher un script VBS équivalent l'autre jour pour remplacer tout ça par une GPO. Encore merci pour le partage.