Searched the registry and found the progID !

it was ScriptIfaceENET.ScriptInterfaceENET.1 instead ....

oHostScript = NEWOBJECT("ScriptIfaceENET.ScriptInterfaceENET.1")







>I have an active-x dll that implements 2 interfaces which the object browser created for me by drag & drop in to the code.... But I cant get the dll itself to instatiate with a newobject
>
>

>
>oHostScript = NEWOBJECT("SCRIPTIFACEENETLib.ScriptInterfaceENET")
>
>
>LOCAL oMethods AS hostScript_Methods
>oMethods = NEWOBJECT("hostScript_Methods")
>
>LOCAL oEvents AS hostScript_Events
>oEvents = NEWOBJECT("hostScript_Events")
>
>? EVENTHANDLER( oHostScript , oMethods )
>? EVENTHANDLER( oHostScript , oEvents )
>
>

>
>The newobject line fails with a error message of
>Class definition SCRIPTIFACEENETLIB.SCRIPTINTERFACEENET is not found.
>
>The DLL is registered and in VB 6.0 VB knows about it if I add it to a project's references....
>
>Does anyone know what I am doing wrong ?
>
>
>TIA
>
>
>
>
>
>
>

>
>DEFINE CLASS hostScript_Events AS SESSION OLEPUBLIC
>
>	IMPLEMENTS _IScriptInterfaceEvents IN "C:\PROGRAM FILES\HAND HELD PRODUCTS\TT8000 SERIES SDK\HOST_TO_SCRIPT TOOLS\BIN\SCRIPTIFACEENET.DLL"
>
>	PROCEDURE _IScriptInterfaceEvents_DeviceConnected(bstrIPAddress AS STRING) AS VOID;
>			HELPSTRING "method DeviceConnected"
>		* add user code here
>		
>		? "Device Connected Fired !"
>		
>	ENDPROC
>
>	PROCEDURE _IScriptInterfaceEvents_Data(bstrData AS STRING) AS VOID;
>			HELPSTRING "method Data"
>		* add user code here
>	ENDPROC
>
>	PROCEDURE _IScriptInterfaceEvents_Close() AS VOID;
>			HELPSTRING "method Close"
>		* add user code here
>
>		? "Closed "
>
>	ENDPROC
>
>ENDDEFINE
>
>
>
>
>DEFINE CLASS hostScript_Methods AS SESSION OLEPUBLIC
>
>	IMPLEMENTS IScriptInterfaceENET IN "C:\PROGRAM FILES\HAND HELD PRODUCTS\TT8000 SERIES SDK\HOST_TO_SCRIPT TOOLS\BIN\SCRIPTIFACEENET.DLL"
>
>	PROCEDURE IScriptInterfaceENET_BmpToBin(hBitmap AS NUMBER, hPalette AS NUMBER, hSrcDC AS NUMBER, nWidth AS INTEGER, nHeight AS INTEGER, pbstrBuffer AS STRING, pnLength AS INTEGER) AS LOGICAL;
>			HELPSTRING "method BmpToBin"
>		* add user code here
>	ENDPROC
>
>	PROCEDURE IScriptInterfaceENET_PutText(x AS INTEGER, Y AS INTEGER, bstrText AS STRING) AS LOGICAL;
>			HELPSTRING "method PutText"
>		* add user code here
>	ENDPROC
>
>	PROCEDURE IScriptInterfaceENET_ClosePort() AS VOID;
>			HELPSTRING "method ClosePort"
>		* add user code here
>	ENDPROC
>
>	PROCEDURE IScriptInterfaceENET_PadIsConnect() AS LOGICAL;
>			HELPSTRING "method PadIsConnect"
>		* add user code here
>	ENDPROC
>
>	PROCEDURE IScriptInterfaceENET_ColorConvert(bstrFileName AS STRING, pchBuffer AS NUMBER, pnLength AS INTEGER) AS LOGICAL;
>			HELPSTRING "method ColorConvert"
>		* add user code here
>	ENDPROC
>
>	PROCEDURE IScriptInterfaceENET_DisplayObject(nID AS INTEGER, x AS INTEGER, Y AS INTEGER) AS LOGICAL;
>			HELPSTRING "method DisplayObject"
>		* add user code here
>	ENDPROC
>
>	PROCEDURE IScriptInterfaceENET_LoadMemBitmap(nID AS INTEGER, nType AS INTEGER, bstrFileName AS STRING) AS LOGICAL;
>			HELPSTRING "method LoadMemBitmap"
>		* add user code here
>	ENDPROC
>
>	PROCEDURE IScriptInterfaceENET_GetTextVar(bstrName AS STRING, pbstrData AS STRING @) AS LOGICAL;
>			HELPSTRING "method GetTextVar"
>		* add user code here
>	ENDPROC
>
>	PROCEDURE IScriptInterfaceENET_SetTextVar(bstrName AS STRING, bstrText AS STRING) AS LOGICAL;
>			HELPSTRING "method SetTextVar"
>		* add user code here
>	ENDPROC
>
>	PROCEDURE IScriptInterfaceENET_GotoLabel(bstrLabel AS STRING) AS LOGICAL;
>			HELPSTRING "method GotoLabel"
>		* add user code here
>	ENDPROC
>
>	PROCEDURE IScriptInterfaceENET_RunScript(bstrName AS STRING, bstrLabel AS STRING) AS LOGICAL;
>			HELPSTRING "method RunScript"
>		* add user code here
>	ENDPROC
>
>	PROCEDURE IScriptInterfaceENET_LoadScript(nPortNum AS INTEGER, bstrScriptName AS STRING, bstrFileName AS STRING, nBaud AS INTEGER) AS LOGICAL;
>			HELPSTRING "method LoadScript"
>		* add user code here
>	ENDPROC
>
>	PROCEDURE IScriptInterfaceENET_SetFont(fontid AS INTEGER) AS LOGICAL;
>			HELPSTRING "method SetFont"
>		* add user code here
>	ENDPROC
>
>	PROCEDURE IScriptInterfaceENET_SCGetIssuerData(pchAppCrypto AS NUMBER, pnAppIntPro AS INTEGER, pbstrPriAccNum AS STRING, pchTermCap AS NUMBER, pchIssAppData AS NUMBER, pwIssuerCC AS INTEGER, pbstrIfdSerialNum AS STRING, pchTVR AS NUMBER, pwTranCurCode AS INTEGER, pdwRandomNum AS NUMBER) AS LOGICAL;
>			HELPSTRING "method SCGetIssuerData"
>		* add user code here
>	ENDPROC
>
>	PROCEDURE IScriptInterfaceENET_OpenEthernetPort(bstrPadAddress AS STRING, dwMsecs AS NUMBER) AS LOGICAL;
>			HELPSTRING "method OpenEthernetPort"
>		* add user code here
>	ENDPROC
>
>	PROCEDURE IScriptInterfaceENET_ReConnectEthernet(bstrPadAddress AS STRING, dwMsecs AS NUMBER) AS LOGICAL;
>			HELPSTRING "method ReConnectEthernet"
>		* add user code here
>	ENDPROC
>
>	PROCEDURE IScriptInterfaceENET_StartServer(nPort AS INTEGER, bstrServerAddress AS STRING) AS LOGICAL;
>			HELPSTRING "method StartServer"
>		* add user code here
>	ENDPROC
>
>	PROCEDURE IScriptInterfaceENET_GetPadIPAddress(pbstrData AS STRING @) AS LOGICAL;
>			HELPSTRING "method GetPadIPAddress"
>		* add user code here
>	ENDPROC
>
>	PROCEDURE IScriptInterfaceENET_SendToCommPort(nCommPort AS INTEGER, bstrData AS STRING) AS LOGICAL;
>			HELPSTRING "method SendToCommPort"
>		* add user code here
>	ENDPROC
>
>	PROCEDURE IScriptInterfaceENET_GetFromCommPort(nCommPort AS INTEGER, dwNumBytes AS NUMBER, pbstrData AS STRING @) AS LOGICAL;
>			HELPSTRING "method GetFromCommPort"
>		* add user code here
>	ENDPROC
>
>	PROCEDURE IScriptInterfaceENET_LoadFirmware(nPortNum AS INTEGER, bstrFileName AS STRING, nBaud AS INTEGER) AS LOGICAL;
>			HELPSTRING "method LoadFirmware"
>		* add user code here
>	ENDPROC
>
>	PROCEDURE IScriptInterfaceENET_DisplayImage(nXCoordiante AS INTEGER, nYCoordiante AS INTEGER, nType AS INTEGER, bstrFileName AS STRING) AS LOGICAL;
>			HELPSTRING "method DisplayImage"
>		* add user code here
>	ENDPROC
>
>	PROCEDURE IScriptInterfaceENET_SaveSigAs(SigPointsData AS STRING, FileName AS STRING) AS LOGICAL;
>			HELPSTRING "method SaveSigAs"
>		* add user code here
>	ENDPROC
>
>	PROCEDURE IScriptInterfaceENET_PadGetModel(pbstrData AS STRING) AS LOGICAL;
>			HELPSTRING "method PadGetModel"
>		* add user code here
>	ENDPROC
>
>	PROCEDURE IScriptInterfaceENET_GetNumVar(bstrName AS STRING, plData AS NUMBER @) AS LOGICAL;
>			HELPSTRING "method GetNumVar"
>		* add user code here
>	ENDPROC
>
>	PROCEDURE IScriptInterfaceENET_SetNumVar(bstrName AS STRING, lNewData AS NUMBER) AS LOGICAL;
>			HELPSTRING "method SetNumVar"
>		* add user code here
>	ENDPROC
>
>	PROCEDURE IScriptInterfaceENET_GetBigNumVar(bstrName AS STRING, plData AS NUMBER @) AS LOGICAL;
>			HELPSTRING "method GetBigNumVar"
>		* add user code here
>	ENDPROC
>
>	PROCEDURE IScriptInterfaceENET_SetBigNumVar(bstrName AS STRING, lNewData AS NUMBER) AS LOGICAL;
>			HELPSTRING "method SetBigNumVar"
>		* add user code here
>	ENDPROC
>
>	PROCEDURE IScriptInterfaceENET_GetBinVar(bstrName AS STRING, pbstrData AS STRING @) AS LOGICAL;
>			HELPSTRING "method GetBinVar"
>		* add user code here
>	ENDPROC
>
>	PROCEDURE IScriptInterfaceENET_SetBinVar(bstrName AS STRING, bstrText AS STRING) AS LOGICAL;
>			HELPSTRING "method SetBinVar"
>		* add user code here
>	ENDPROC
>
>ENDDEFINE
>
>
>