>wshshell=createobject('wscript.shell') >wshnetwork=createobject('wscript.network') >wshnetwork.MapNetworkDrive('p:','\\servername\sharename',.f.,'Username','Password') >Release wshshell >Release wshnetworkYou can also do it just with a RUN command so need for scripting host:
************************************************************************ * MapNetworkDrive **************************************** *** Function: Maps a network drive by shelling out *** Assume: *** Pass: lcDrive - i: *** lcSharePath - UNC path to map \\server\share *** lcUsername - user name (if empty uses current creds) *** lcPassword - password *** Return: nothing ************************************************************************ FUNCTION MapNetworkDrive(lcDrive, lcSharePath, lcUsername, lcPassword) IF RIGHT(lcDrive,1) != ":" lcDrive = lcDrive + ":" ENDIF lcRun = [net use ] + lcDrive + [ "] + lcSharePath + [" ] IF !EMPTY(lcUsername) lcUserName = ["] + lcPassword + [" /USER:"] + lcUsername + ["] ELSE lcUserName = "" ENDIF lcUsername = lcUserName + " /persistent:yes" lcRun = lcRun + lcUsername RUN &lcRun *** Check to see if the folder exists now RETURN DIRECTORY(lcDrive) ENDFUNC * MapNetworkDrive