سفارش تبلیغ
صبا ویژن

MapNetworkDrive with extra VB code

"
MapNetworkDrive.vbs
" VB to map a network drive to a UNC Path.
" Author Guy Thomas http://computerperformance.co.uk/
" Version 2.3 - September 2005
" -----------------------------------------------------------------"
Option Explicit
Dim objNetwork
Dim strDriveLetter, strRemotePath
strDriveLetter = "J:"
strRemotePath = "\\alan\home"

" Purpose of to create a network . (objNetwork)
" Then to apply the MapNetworkDrive method.  Result J: drive
Set objNetwork = Create("W.Network")

objNetwork.MapNetworkDrive strDriveLetter, strRemotePath
W.Quit

" End of Example VB.