My Archive

"
MNDArguments2.vbs
" VB to map a network drive with all 5 arguments.
" Author Guy Thomas http://computerperformance.co.uk/
" Version 2.2 - April 24th 2005
" -----------------------------------------------------------------"
Option Explicit
Dim objNetwork
Dim strDriveLetter, strRemotePath, strUser, strPassword, strProfile

" Values of variables set
strDriveLetter = "X:"
strRemotePath = "\\alan\home"

" This section creates a network . (objNetwork)
" Then to apply the MapNetworkDrive method. Result X: drive
Set objNetwork = Create("W.Network")
objNetwork.MapNetworkDrive strDriveLetter, strRemotePath, false, gt, pass

" Extra code just to add a message box
W.Echo " Launch Windows Explorer, check: "& strDriveLetter
W.Quit

" End of Example VB.