DLL Behavior

Hello all,
   I have written an ActiveX DLL in VB to return some data from the registry.  When I ran the DLL in the VB IDE and attached to it from an ASP page I had no problems.  Once I compiled the DLL and tried to attach to it from an ASP page it acts as if the Class_Initialize() routine is not being executed.  The results come back with a Count of -1.  I am also able to get correct results when I create a new VB project and reference this DLL.

The class code is below

Private mvarCount As Long 'local copy
Private mvarNames As Variant 'local copy
Private mvarLocations() As Variant 'local copy

Private Sub Class_Initialize()
    Dim Count As Long
    mvarNames = EnumRegKeyValues(HKEY_LOCAL_MACHINE, "Software\tcg\avisoft\modules")
    ReDim mvarLocations(UBound(mvarNames))
    mvarCount = UBound(mvarNames) - 1
    For Count = 0 To UBound(mvarNames)
        mvarLocations(Count) = ReadRegValue(HKEY_LOCAL_MACHINE, "Software\tcg\avisoft\modules", CStr(mvarNames(Count)))
    Next
End Sub

Public Function GetModuleName(Index As Variant) As Variant
    If CLng(Index) <= UBound(mvarNames) Then
        GetModuleName = mvarNames(CLng(Index))
    Else
        GetModuleName = ""
    End If
End Function

And here is the ASP code

<% Response.Buffer = True %>
<html>
<head>
<title> ASP Test </title>
</head>
<body>
Testing Active X Object<br>

<%
      Set obj = Server.CreateObject("ASReg.Registry")
      Response.Write "obj.Count = " & obj.Count & "<br><br>"
      For Count = 0 To obj.Count
            Response.Write "Count is " & Count & "<br>"
            
            Response.Write "Module Name is: " & obj.GetModuleName(Count) & "<br>"
            Response.Write "Module Location is: " & obj.GetModuleLocation(Count) & "<br><br>"
      Next
      Set obj=Nothing
      
%>
</body>
</html>

Does anyone have some insight that they can share on this?

Thanks
LVL 1
edcAsked:
Who is Participating?

Improve company productivity with a Business Account.Sign Up

x
 
robbertConnect With a Mentor Commented:
Ahhh, I know. Obvious.

When you call the component from a web page, you're running it under the iusr_machinename account. This account doesn't have the permissions to read the registry.

To run the component under an administrator's account, create an MTS package for it:

- In MTS Explorer, expand the tree on the left and, select Packages Installed. Menu: Action | New | Package.
- Dialogue: Create Empty Package, specify the account to run under.
- Expand the newly created Package, select Components.
- Menu: Action | New | Component
- Select your component.

That's it. Now, you can right-click the Package and, edit some additional properties.
0
 
robbertCommented:
There is no Public Property Let Count.
0
 
edcAuthor Commented:
Sorry, I only posted the code that I thought was important to the problem.  The entire text of the code (minus the modRegistry.bas module I have that wraps the Registry API functions).

'local variable(s) to hold property value(s)
Private mvarCount As Long 'local copy
Private mvarNames As Variant 'local copy
Private mvarLocations() As Variant 'local copy

Public Function GetModuleLocation(Index As Variant) As Variant
    Dim RetData As Variant
    If Index <= UBound(mvarLocations) Then
        RetData = Right(CVar(mvarLocations(Index)), Len(mvarLocations(Index)) - 1)
        RetData = Left(RetData, Len(RetData) - 1)
        GetModuleLocation = RetData
    Else
        GetModuleLocation = CVar("")
    End If
End Function

Public Function GetModuleName(Index As Variant) As Variant
    If CLng(Index) <= UBound(mvarNames) Then
        GetModuleName = mvarNames(CLng(Index))
    Else
        GetModuleName = ""
    End If
End Function

Public Function GetMod() As Variant
    GetMod = CVar("ModuleName")
End Function

Public Property Let Count(ByVal vData As Long)
'used when assigning a value to the property, on the left side of an assignment.
'Syntax: X.Count = 5
    mvarCount = vData
End Property

Public Property Get Count() As Long
'used when retrieving value of a property, on the right side of an assignment.
'Syntax: Debug.Print X.Count
    Count = mvarCount
End Property

Private Sub Class_Initialize()
    Dim Count As Long
    mvarNames = EnumRegKeyValues(HKEY_LOCAL_MACHINE, "Software\tcg\avisoft\modules")
    ReDim mvarLocations(UBound(mvarNames))
    mvarCount = UBound(mvarNames) - 1
    For Count = 0 To UBound(mvarNames)
        mvarLocations(Count) = ReadRegValue(HKEY_LOCAL_MACHINE, "Software\tcg\avisoft\modules", CStr(mvarNames(Count)))
    Next
End Sub
0
Upgrade your Question Security!

Your question, your audience. Choose who sees your identity—and your question—with question security.

 
edcAuthor Commented:
Adjusted points from 100 to 200
0
 
gcs001Commented:
You may have to register the DLL on the PC you're running the ActiveX DLL on.
Use the REGSVR32 program to register it.
0
 
edcAuthor Commented:
gcs001,
   Thanks for the comment.  I am able to create the object, so the computer does know where to find it.  I did reregister the dll anyway, but it does not change the outcome.  Any other thoughts?
0
 
edcAuthor Commented:
Eureka!  Thanks robbert.  That did the trick.
0
Question has a verified solution.

Are you are experiencing a similar issue? Get a personalized answer when you ask a related question.

Have a better answer? Share it in a comment.

All Courses

From novice to tech pro — start learning today.