//*********BEGIN THE VB SCRIPT.  COPY AND PASTE AFTER THIS

Option ExplicitOption Explicit
Dim objNetwork 
Dim strDriveLetter, strRemotePath, strUser, strPassword, strProfile



' Values of variables set
strDriveLetter = "Z:" 
strRemotePath = "\\MY_REMOTE_COMPUTER\DIRECTORY" 
strUser = "DOMAIN\USER"
strPassword = "PASSWORD"
strProfile = "false"

Set objNetwork = WScript.CreateObject("WScript.Network") 
objNetwork.MapNetworkDrive strDriveLetter, strRemotePath, _
strProfile, strUser, strPassword 


' WScript.Echo " Launch Explorer, check: "& strDriveLetter
WScript.Quit

//************ END SCRIPT