réactiver lecteurs réseaux par script

Bonjour.

Un petit exemple.

Pour la liste, coller WshNetworkEnumNetworkDrives dans Excel.

Sub WshNetworkEnumNetworkDrives()
Dim ObjNetwork, CollectionDrive, I
Set ObjNetwork = CreateObject("WScript.Network")
Set CollectionDrive = ObjNetwork.EnumNetworkDrives()
If CollectionDrive.Count <> 0 Then
For I = 0 To CollectionDrive.Count - 1 Step 2
Range("A" & I / 2 + 1) = CollectionDrive.Item(I)
Range("B" & I / 2 + 1) = CollectionDrive.Item(I + 1)
Next
Range("A1:B" & (I) / 2).Columns.AutoFit
Else
MsgBox "Aucun lecteur réseau installé."
End If
Set CollectionDrive = Nothing
Set ObjNetwork = Nothing
End Sub

Sub WshNetworkMapNetworkDrive()
Dim ObjNetwork
Set ObjNetwork = CreateObject("WScript.Network")
ObjNetwork.MapNetworkDrive "K:", "\NTBET2SPL3"
Set ObjNetwork = Nothing
End Sub

Sub WshNetworkRemoveNetworkDrive()
Dim ObjNetwork
Set ObjNetwork = CreateObject("WScript.Network")
ObjNetwork.RemoveNetworkDrive "K:"
Set ObjNetwork = Nothing
End Sub

Alain CROS

"twinley" <twinleymax@hotmail.com> a écrit dans le message de news: O319iwC5EHA.2876@TK2MSFTNGP12.phx.gbl...

Bonjour à tous,

Je pose ma première question, n'ayant pas vu passer d'info sur ce sujet
et mes recherches sont vaines.

Je cherche à réactiver les disques montés dans un réseau avec diverses
versions de Windows, Win 95, 98, 98ME, 2000 et XP pro.
Soit les réactiver, soit les démonter pour les remonter par un script.

Les lecteurs réseaux se déactivent trop souvent dans W98 à cause des
arrêts des machines.
Les usagers ne sont pas pointus et ne vont pas dans les favoris réseaux,
et ils ne savent pas démonter et remonter un disque ou un répertoire.

Existe t-il un script déjà fait ou un endroit ou je peux trouver les
infos, je ne connais rien au langage des scripts.

Merci pour votre aide

à+twinley

Merci beaucoup Alain,

je vais utiliser ça à la rentrée, pour l'instant je n'ai pas accès à
toutes les machines concernées.
Je te donnerai un retour dès que possible.

à+twinley


Alain CROS wrote:

Bonjour.

Un petit exemple.

Pour la liste, coller WshNetworkEnumNetworkDrives dans Excel.

Sub WshNetworkEnumNetworkDrives()
Dim ObjNetwork, CollectionDrive, I
Set ObjNetwork = CreateObject("WScript.Network")
Set CollectionDrive = ObjNetwork.EnumNetworkDrives()
If CollectionDrive.Count <> 0 Then
For I = 0 To CollectionDrive.Count - 1 Step 2
Range("A" & I / 2 + 1) = CollectionDrive.Item(I)
Range("B" & I / 2 + 1) = CollectionDrive.Item(I + 1)
Next
Range("A1:B" & (I) / 2).Columns.AutoFit
Else
MsgBox "Aucun lecteur réseau installé."
End If
Set CollectionDrive = Nothing
Set ObjNetwork = Nothing
End Sub

Sub WshNetworkMapNetworkDrive()
Dim ObjNetwork
Set ObjNetwork = CreateObject("WScript.Network")
ObjNetwork.MapNetworkDrive "K:", "\NTBET2SPL3"
Set ObjNetwork = Nothing
End Sub

Sub WshNetworkRemoveNetworkDrive()
Dim ObjNetwork
Set ObjNetwork = CreateObject("WScript.Network")
ObjNetwork.RemoveNetworkDrive "K:"
Set ObjNetwork = Nothing
End Sub

Alain CROS

"twinley" <twinleymax@hotmail.com> a écrit dans le message de news: O319iwC5EHA.2876@TK2MSFTNGP12.phx.gbl...

Bonjour à tous,

Je pose ma première question, n'ayant pas vu passer d'info sur ce sujet
et mes recherches sont vaines.

Je cherche à réactiver les disques montés dans un réseau avec diverses
versions de Windows, Win 95, 98, 98ME, 2000 et XP pro.
Soit les réactiver, soit les démonter pour les remonter par un script.

Les lecteurs réseaux se déactivent trop souvent dans W98 à cause des
arrêts des machines.
Les usagers ne sont pas pointus et ne vont pas dans les favoris réseaux,
et ils ne savent pas démonter et remonter un disque ou un répertoire.

Existe t-il un script déjà fait ou un endroit ou je peux trouver les
infos, je ne connais rien au langage des scripts.

Merci pour votre aide

à+twinley