Re : VBS - Connecter un lecteur reseau sur le premiere lettre disponible
Bonsoir à tous
Pour presque répondre au titre de la discussion.
(Ci-dessous on identifie la première lettre disponible)
(test OK sur mon PC)
Code VBA:
Sub a()
'adapté d'un script de : Hey,Scripting Guy!
Dim objDictionary, test$
Set objDictionary = CreateObject("Scripting.Dictionary")
strComputer = "."
Set objWMIService = GetObject("winmgmts:\\" & strComputer & "\root\cimv2")
Set colDisks = objWMIService.ExecQuery("Select * from Win32_LogicalDisk")
For Each objDisk In colDisks
objDictionary.Add objDisk.DeviceID, objDisk.DeviceID
Next
For i = 67 To 90
strDrive = Chr(i) & ":"
If objDictionary.Exists(strDrive) Then
Else
test = test & strDrive
End If
Next
MsgBox Split(test, ":")(0) & " est la première lettre de lecteur disponible.", vbInformation
End Sub