function NetConnect LPARAMETERS Lc_DRIVE, Lc_SERVER, Lc_USER, Lc_PASSWORD *First attempt to connect via WSH nlerror=.f. ON ERROR nlerror=.t. oNet = CREATEOBJECT('WScript.Network') IF NOT nlerror &&WSH available! oNet.MapNetworkDrive(Lc_DRIVE, Lc_SERVER,, Lc_USER, Lc_PASSWORD) IF NOT nlerror &&Map ok! ON error RELEASE oNet RETURN .T. endif ENDIF ON ERRORTIA