ERRO COM WMI
Alguém já teve o seguinte problema:
Executando o código abaixo, ele entra no loop for a primeira vez, joga os dados que eu quero, e depois, quando executa o next, dá um [Ô]Automation error[Ô].
Text2.Text=[Ô][Ô]
Set objWMIService = GetObject([Ô]winmgmts:{impersonationLevel=Impersonate,authenticationLevel=Pkt}!\
omemeucomputadoroot\cimv2[Ô])
Set colSoftware = objWMIService.ExecQuery([Ô]Select * from Win32_Product [Ô])
For Each objSoftware In colSoftware
Text2.Text = Text2.Text & [Ô]Name: [Ô] & objSoftware.Name & vbCrLf
Next
Executando o código abaixo, ele entra no loop for a primeira vez, joga os dados que eu quero, e depois, quando executa o next, dá um [Ô]Automation error[Ô].
Text2.Text=[Ô][Ô]
Set objWMIService = GetObject([Ô]winmgmts:{impersonationLevel=Impersonate,authenticationLevel=Pkt}!\
omemeucomputadoroot\cimv2[Ô])
Set colSoftware = objWMIService.ExecQuery([Ô]Select * from Win32_Product [Ô])
For Each objSoftware In colSoftware
Text2.Text = Text2.Text & [Ô]Name: [Ô] & objSoftware.Name & vbCrLf
Next
Depura a linha que esta dando o problema, Automation error é problema de componente(dll ou ocx)
Tópico encerrado , respostas não são mais permitidas