>>Take a look a MS Knowledge Base Q146219...this is what I am struggling with. My routine ensures that the five required dll files are installed on the client machine but I still receive the error when registering the file.
>
>The 5 files being:

mfc30.dll  olepro32.dll  msvcrt20.dll  mfc40.dll  msvcrt40.dll

Are you getting "Error: OLE Error Code 0x80040112: Appropriate license for this class not found." Is this for a particular OS or across the board?

I still receive the error you listed above above. It is not OS specific but what I have found is that the machines which do not have VFP receive the error.

As I mentioned before, my code initially checks to see if the ocx is registered on the client machine. If it is not registered then it checks to see if the five dll files (listed above) are on the client machine. If they are not on the client machine then it puts them there. When all five dlls are on the client the it registers the ocx - and blows up with the above error. For imformation purposes I will post that code.

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?

Wes