>>>wshshell=createobject('wscript.shell') >>>wshnetwork=createobject('wscript.network') >>>wshnetwork.MapNetworkDrive('p:','\\servername\sharename',.f.,'Username','Password') >>>Release wshshell >>>Release wshnetwork>>
>>************************************************************************ >>* 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 >>>