mfc30.dll olepro32.dll msvcrt20.dll mfc40.dll msvcrt40.dllAre you getting "Error: OLE Error Code 0x80040112: Appropriate license for this class not found." Is this for a particular OS or across the board?
IF IsClassRegistered('mswinsock.winsock') = .F. && The mswinsck.ocx class is not in the registry so now check if the System folder exists IF Directory('C:\WINNT\System32') lcPath = 'C:\WINNT\System32' lcPath1 = 'C:\WINNT\System' ELSE IF Directory('C:\WINDOWS\System32') lcPath = 'C:\WINDOWS\System32' lcPath1 = 'C:\WINDOWS\System' ENDIF ENDIF lcFile = 'MFC30.dll' lcPathFile = lcPath + "\" + lcFile lcPathFile1 = lcPath1 + "\" + lcFile && The system folder exists so now check to see if the dll's exist IF !FILE(lcPathFile) COPY FILE &lcFile TO &lcPathFile ENDIF IF !FILE(lcPathFile1) COPY FILE &lcFile TO &lcPathFile1 ENDIF lcFile = 'MFC40.dll' lcPathFile = lcPath + "\" + lcFile lcPathFile1 = lcPath1 + "\" + lcFile && The system folder exists so now check to see if the dll's exist IF !FILE(lcPathFile) COPY FILE &lcFile TO &lcPathFile ENDIF IF !FILE(lcPathFile1) COPY FILE &lcFile TO &lcPathFile1 ENDIF lcFile = 'OLEPRO32.dll' lcPathFile = lcPath + "\" + lcFile lcPathFile1 = lcPath1 + "\" + lcFile && The system folder exists so now check to see if the dll's exist IF !FILE(lcPathFile) COPY FILE &lcFile TO &lcPathFile ENDIF IF !FILE(lcPathFile1) COPY FILE &lcFile TO &lcPathFile1 ENDIF lcFile = 'MSVCRT40.dll' lcPathFile = lcPath + "\" + lcFile lcPathFile1 = lcPath1 + "\" + lcFile && The system folder exists so now check to see if the dll's exist IF !FILE(lcPathFile) COPY FILE &lcFile TO &lcPathFile ENDIF IF !FILE(lcPathFile1) COPY FILE &lcFile TO &lcPathFile1 ENDIF lcFile = 'MSVCRT20.dll' lcPathFile = lcPath + "\" + lcFile lcPathFile1 = lcPath1 + "\" + lcFile && The system folder exists so now check to see if the dll's exist IF !FILE(lcPathFile) COPY FILE &lcFile TO &lcPathFile ENDIF IF !FILE(lcPathFile1) COPY FILE &lcFile TO &lcPathFile1 ENDIF lcFile = 'mswinsck.ocx' lcPathFile = lcPath + "\" + lcFile && The system folder exists so now check to see if the dll's exist IF !FILE(lcPathFile) COPY FILE &lcFile TO &lcPathFile ENDIF && Register the winsock class RUN /N Regsvr32 /s mswinsck.ocx ENDIF && create my object oSocket = create( 'mswinsock.winsock' )I am lost at this poing. Any ideas?