• Status: Solved
  • Priority: Medium
  • Security: Public
  • Views: 422
  • Last Modified:

activex can't create object vb6 program.

on 1 windows xp machine getting this error 429

no components checked

references are

Visual basic for applications
visual basic runtime objects and procedures
visual basic objects and procedures
ole automation


what dll or ocx am i missing?  copied these ref dll's and stuff to the machine still gives errors??
0
bluedragon99
Asked:
bluedragon99
  • 22
  • 4
1 Solution
 
bluedragon99Author Commented:
For Each process In GetObject("winmgmts:").ExecQuery("select * from Win32_Process where Name='consoleservice.exe'")
    process.Terminate
Next


causing it...
0
 
JesterTooCommented:
>>  copied these ref dll's and stuff to the machine <<

Did you register them?  If not, read this Microsoft link on why/howto:

   http://www.microsoft.com/resources/documentation/windows/xp/all/proddocs/en-us/regsvr32.mspx

HTH,
Lynn
0
 
bluedragon99Author Commented:
don't know which particular dll' i'm missing but it's def the code above causing it..

know how to register just not which to register
0
Concerto's Cloud Advisory Services

Want to avoid the missteps to gaining all the benefits of the cloud? Learn more about the different assessment options from our Cloud Advisory team.

 
bluedragon99Author Commented:
arggg can't figure this out...what does

For Each process In GetObject("winmgmts:").ExecQuery("select * from Win32_Process where Name='consoleservice.exe'")
    process.Terminate
Next


need to run????
0
 
bluedragon99Author Commented:
must be wmi stuff..
0
 
bluedragon99Author Commented:
ideas?
0
 
bluedragon99Author Commented:
Still getting this error -  -2147024769(8007007f)

on 2003 and xp some machines not the machine with vb6 installed.  


This is critical! help!!
0
 
bluedragon99Author Commented:
'Set IPConfigSet = GetObject("winmgmts:").ExecQuery("select IPAddress from Win32_NetworkAdapterConfiguration where IPEnabled=TRUE")
'For Each IPConfig In IPConfigSet
'    If Not IsNull(IPConfig.IPAddress) Then
'        For I = LBound(IPConfig.IPAddress) To UBound(IPConfig.IPAddress)
'            ConsoleSettingsFrm.ConsoleIPBox.AddItem IPConfig.IPAddress(I)
'        Next
'    End If
'Next


THIS CODE IS CAUSING THE PROBLEM AS WELL
0
 
JesterTooCommented:
Do you have a reference set in your vb app to:  "Microsoft WMI Scripting V1.2 Library"?  And are you using syntax like this:

   Dim oWMI as WBemScripting.SWbemObject
   Set oWMI = GetObject(......)

The VB6 DLL is wbemdisp.dll (VBScript uses wbemdisp.tlb).

Microsoft also has a newsgroup for this info:   microsoft.public.win32.programmer.wmi
You might be able to find more info/examples there.

HTH,
Lynn
0
 
bluedragon99Author Commented:
yup have the ref.
0
 
bluedragon99Author Commented:
code listed above
0
 
bluedragon99Author Commented:
wbemdisp is on the machine un and registered...this just doesn't make sense this code used to work i pretty sure..won't work on any machine but my vb dev machine... what in the hell.
0
 
bluedragon99Author Commented:
anything wrong with this code?


Set IPConfigSet = GetObject("winmgmts:").ExecQuery("select IPAddress from Win32_NetworkAdapterConfiguration where IPEnabled=TRUE")
For Each IPConfig In IPConfigSet
    If Not IsNull(IPConfig.IPAddress) Then
        For I = LBound(IPConfig.IPAddress) To UBound(IPConfig.IPAddress)
            MsgBox IPConfig.IPAddress(I)
        Next
    End If
Next
0
 
bluedragon99Author Commented:
1000 points anyone??
0
 
bluedragon99Author Commented:
Run-time error '-2147024769 (8007007f)':

Automation error
The specified procedure could not be found.


i did add the dim



Dim ipconfig As WbemScripting.SWbemObject
Set IPconfigSet = GetObject("winmgmts:").ExecQuery("select IPAddress from Win32_NetworkAdapterConfiguration where IPEnabled=TRUE")
For Each ipconfig In IPconfigSet
    If Not IsNull(ipconfig.IPAddress) Then
        For I = LBound(ipconfig.IPAddress) To UBound(ipconfig.IPAddress)
            ConsoleSettingsFrm.ConsoleIPBox.AddItem ipconfig.IPAddress(I)
        Next
    End If
Next
0
 
bluedragon99Author Commented:
I am using installshield X btw
0
 
bluedragon99Author Commented:
doesnt' occur on 2000 server only xp and 2003 server so far
0
 
JesterTooCommented:
This seems to work for me (the other variations didn't)...

Option Explicit

Sub DoIt()
Dim oWMI
Dim IPConfigSet
Dim IpConfig
Dim i

   Set oWMI = GetObject("winmgmts:\\.\root\cimv2")
   Set IPConfigSet = oWMI.ExecQuery("select IPAddress from Win32_NetworkAdapterConfiguration where IPEnabled=TRUE")
   For Each IpConfig In IPConfigSet
       If Not IsNull(IpConfig.IPAddress) Then
           For i = LBound(IpConfig.IPAddress) To UBound(IpConfig.IPAddress)
               MsgBox IpConfig.IPAddress(i)
           Next
       End If
   Next
End Sub

-- Lynn
0
 
bluedragon99Author Commented:
testing on 2003 server....
0
 
bluedragon99Author Commented:
Nope same error on my 2003 server box and some xp boxes..this is driving me nuts what is this error even related too????



Run-time error '-2147024769 (8007007f)':

Automation error
The specified procedure could not be found.
0
 
bluedragon99Author Commented:
can you tell me all the references you have checked??
0
 
JesterTooCommented:
I have 5 references checked... some may not be needed, however... I'll try removing them one at a time to test that.

The 5 are:

   Visual Basic For Applications
   Visual Basic runtime objects and procedures
   Visual Basic objects and procedures
   OLE Automation
   Microsoft WMI Scripting V1.2 Library

I'm ran this on XP SP2... I'll try it later on my 2003 Server.

If you want to run it remotely, change the "\\.\" to "\\remotecomputername\"... you may also need to add the "impersonation" text.

Searchinbg google for 8007007f, I found several users complaining of the same error (only with XP and 2003).  Several have stated that reinstalling mdac 2.8 fixed their problem... others said it caused the problem.  I'd suggest checking them out for yourself.

-- Lynn
0
 
bluedragon99Author Commented:
working on every box but 2003 server has all latest patches + updates...won't run maybe it's messed up dunno.
0
 
bluedragon99Author Commented:
this line causing the error

I think wmi is screwed up on my computer

Set IPconfigSet = GetObject("winmgmts:").ExecQuery("select IPAddress from Win32_NetworkAdapterConfiguration where IPEnabled=TRUE")

0
 
bluedragon99Author Commented:
reinstalled jet and mdac 2.8 no luck how can you repair wmi?
0
 
bluedragon99Author Commented:
reimaged my machines problem resolved...thanks for helping Jester
0

Featured Post

VIDEO: THE CONCERTO CLOUD FOR HEALTHCARE

Modern healthcare requires a modern cloud. View this brief video to understand how the Concerto Cloud for Healthcare can help your organization.

  • 22
  • 4
Tackle projects and never again get stuck behind a technical roadblock.
Join Now