Option Explicit
Dim WSHNetwork, varUser, varPassword
varUser = "monlogin"
varPassword = "MonPassword"
Set WSHNetwork = CreateObject("WScript.Network")
Err.Clear
On Error Resume Next
WSHNetwork.RemoveNetworkDrive "Y:"
Err.Clear
WSHNetwork.MapNetworkDrive "Y:" , "\\192.168.1.12\MonPartage", False, varUser, varPassword
Lien vers le fichier : cliquez ici
Maintenant que vous être authentifié sur le partage à atteindre,
si vous voulez lancer un explorer directement sur la partage à atteindre, vous pouvez ajouter ceci :
Option Explicit
Dim WSHShell, Commande
Set WSHShell = CreateObject("WScript.Shell")
Commande = "\\192.168.1.12\MonPartage"
WSHShell.Run Commande
Set WSHShell = Nothing
Lien vers le fichier : cliquez ici
Pages Web
Site Web | Description |
---|---|
ss64.com | Comment monter un lecteur réseau en vbs |
Article(s) en relation(s)