Start Free Trial

asked on

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??

ASKER

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

causing it...

>> 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

ASKER

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

ASKER

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????

ASKER

must be wmi stuff..

ASKER

ideas?

ASKER

Still getting this error - -2147024769(8007007f)

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

This is critical! help!!

ASKER

'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

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

ASKER

yup have the ref.

ASKER

code listed above

ASKER

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.

ASKER

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

ASKER

1000 points anyone??

ASKER

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

ASKER

I am using installshield X btw

ASKER

doesnt' occur on 2000 server only xp and 2003 server so far

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

ASKER

testing on 2003 server....

ASKER

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.

ASKER

can you tell me all the references you have checked??

ASKER CERTIFIED SOLUTION

membership

This solution is only available to members.

To access this solution, you must be a member of Experts Exchange.

Start Free Trial

ASKER

working on every box but 2003 server has all latest patches + updates...won't run maybe it's messed up dunno.

ASKER

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")

ASKER

reinstalled jet and mdac 2.8 no luck how can you repair wmi?

ASKER

reimaged my machines problem resolved...thanks for helping Jester