Bonjour.
 
Voila mon code voir en dessous pour ce que je veux faire :
 
' Mapping lecteur G
' ---------------------------------------------------------------------'
Option Explicit
Dim objNetwork
Dim strDriveLetter, strRemotePath, strUser, strPassword, strProfile
Dim WshNet, computername  
 
Set WshNet = CreateObject("Wscript.Network" )  
computername = WshNet.ComputerName  
 
 
' Values of variables set
strDriveLetter = "G:"
strRemotePath = "\\& Computername\C$\subst"
strUser = "*****"
strPassword = "*****"
strProfile = "false"
Set objNetwork = WScript.CreateObject("WScript.Network" )
objNetwork.MapNetworkDrive strDriveLetter, strRemotePath, _
strProfile, strUser, strPassword
 
Je voudrais que le "computername" dans strRemotePath change automatiquement en fonction du nom du PC courrant et monter un lecteur G sur le poste courrant en utilisant le dossier subst créé à la racine du C:
 
Le message d'erreur est le suivant :
 
ligne : 19
Caract. : 1
Erreur : Aucun logiciel réseau n'a accepté le chemin réseau fourni
Code : 800704B3
Source : WSHNetwork.MapNetworkDrive
 
Merci d'avance de corriger mes lignes de codes

Essayer :

 
 
   merci beaucoup ! Ta ligne fonctionne, tu m'as donné un serieux coup de main !

Bonjour.  
 
Voila mon code voir en dessous pour ce que je veux faire :
 
On Error Resume Next
 
Set objSysInfo = CreateObject("ADSystemInfo" )
Set objNetwork = CreateObject("Wscript.Network" )
 
strUserPath = "LDAP://" & objSysInfo.UserName
'strRemotePath = "\\" & Computername & "\C$\subst"
Set objUser = GetObject(strUserPath)
objNetwork.MapNetworkDrive "Z:", "\\abp-cdi-svr-f01\User Folder\%username%"
 
For Each strGroup in objUser.MemberOf
    strGroupPath = "LDAP://" & strGroup
    Set objGroup = GetObject(strGroupPath)
    strGroupName = objGroup.CN
 
    Select Case strGroupName
        Case "information technology"
            objNetwork.MapNetworkDrive "W:", "\\abp-cdi-svr-f01\Departmental Folder\Information Technology"
  Case "Recovery Service"
            objNetwork.MapNetworkDrive "W:", "\\abp-cdi-svr-f01\Departmental Folder\Recovery Service"
  Case "Adzope Branch"
            objNetwork.MapNetworkDrive "W:", "\\abp-cdi-svr-f01\Departmental Folder\Adzope Branch"
  Case "Commercial banking"
            objNetwork.MapNetworkDrive "W:", "\\abp-cdi-svr-f01\Departmental Folder\Commercial banking"
  Case "Corporate banking"
            objNetwork.MapNetworkDrive "W:", "\\abp-cdi-svr-f01\Departmental Folder\Corporate Banking"
  Case "Customer Service"
            objNetwork.MapNetworkDrive "W:", "\\abp-cdi-svr-f01\Departmental Folder\Customer Service"
  Case "Financial Service"
            objNetwork.MapNetworkDrive "W:", "\\abp-cdi-svr-f01\Departmental Folder\Financial Service"
  Case "General Service"
            objNetwork.MapNetworkDrive "W:", "\\abp-cdi-svr-f01\Departmental Folder\General Service"
  Case "Hayat Branch"
            objNetwork.MapNetworkDrive "W:", "\\abp-cdi-svr-f01\Departmental Folder\Hayet Branch"
  Case "Human resources"
            objNetwork.MapNetworkDrive "W:", "\\abp-cdi-svr-f01\Departmental Folder\Human resources"
  Case "Compliance Internal Control"
            objNetwork.MapNetworkDrive "W:", "\\abp-cdi-svr-f01\Departmental Folder\Compliance Internal Control"
  Case "Legal"
            objNetwork.MapNetworkDrive "W:", "\\abp-cdi-svr-f01\Departmental Folder\Legal"
  Case "Operation Unit"
            objNetwork.MapNetworkDrive "W:", "\\abp-cdi-svr-f01\Departmental Folder\Operation unit"
  Case "Prima Branch"
            objNetwork.MapNetworkDrive "W:", "\\abp-cdi-svr-f01\Departmental Folder\Prima Branch"
  Case "Retail Banking"
            objNetwork.MapNetworkDrive "W:", "\\abp-cdi-svr-f01\Departmental Folder\Retail Banking"
  Case "Risk Management"
            objNetwork.MapNetworkDrive "W:", "\\abp-cdi-svr-f01\Departmental Folder\Risk management"
 Case "Roiser Branch"
            objNetwork.MapNetworkDrive "W:", "\\abp-cdi-svr-f01\Departmental Folder\Roiser Branch"
 Case "Treasury"
            objNetwork.MapNetworkDrive "W:", "\\abp-cdi-svr-f01\Departmental Folder\Treasury"
 Case "allcotedivoireusers"
            objNetwork.MapNetworkDrive "W:", "\\abp-cdi-svr-f01\Departmental Folder\General Share Folder"
End Select
Next
 
En fait j'ai éditer ce script dans un policy sur Active directory à chaque logon de l'utilisateur. Le problème c'est que ça ne fonctionne pas.
SVP pourriez-vous m'aider?