Connecter un lecteur en fonction de l'ordinateur

'////////////////////////////////////////////////////////////////////// '// Check Computer's name /RDP is supported Function ComputerIsInString(Computers) On Error Resume Next Dim objNetwork Set objNetwork=WScript.CreateObject("WScript.Network") Dim objShell Set objShell=WScript.CreateObject("WScript.Shell") Result=False Computer=objShell.ExpandEnvironmentStrings("%CLIENTNAME%") RDP=(Computer<>"" And Computer<>"%CLIENTNAME%" And Computer<>"Console") If Not RDP Then Computer=objNetwork.ComputerName End If arrstrComputers=Split(Computers,",") For i=0 To UBound(arrstrComputers) strTmpComputer=arrstrComputers(i) j=InStr(strTmpComputer,"*") If j>0 Then ComputerPrefix=Mid(strTmpComputer,1,j-1) Else ComputerPrefix=strTmpComputer End If If InStr(UCase(Computer),UCase(ComputerPrefix))>0 Then Result=True Exit For End If Next ComputerIsInString=Result End Function '//////////////////////////////////////////////////////////////////////