Connecter automatiquement un ou plusieurs disques en fonction d’informations présentes dans l’AD

Comment réaliser un subst d’un sous-répertoire en fonction de l’information contenue dans le champ ‘société’ de la fiche user dans l’AD ?

 

On Error Resume Next

Dim objSysInfo

Dim shell

 

Set objSysInfo = CreateObject(« ADSystemInfo »)

 

‘ Currently logged in User

Set objUser = GetObject(« LDAP:// » & objSysInfo.UserName)

 

strCompany = objUser.company

strUser = objUser.sAMAccountName

 

‘ Connect Company folder

strConnect = « d:\folder\ » & strCompany

Set shell = CreateObject(« WScript.Shell »)

substcmd = « subst T:  » & strConnect

shell.Run substcmd, 0, True

 

WSCript.Quit

Publicités

Laisser un commentaire

Entrez vos coordonnées ci-dessous ou cliquez sur une icône pour vous connecter:

Logo WordPress.com

Vous commentez à l'aide de votre compte WordPress.com. Déconnexion / Changer )

Image Twitter

Vous commentez à l'aide de votre compte Twitter. Déconnexion / Changer )

Photo Facebook

Vous commentez à l'aide de votre compte Facebook. Déconnexion / Changer )

Photo Google+

Vous commentez à l'aide de votre compte Google+. Déconnexion / Changer )

Connexion à %s

%d blogueurs aiment cette page :