Errore con VB6 e la funzione getobject in win XP

[perseo74]

Ciao a tutti mi presento sono un neofita di vb6 e sto cercando di imparare ho trovato il seguente codice ma funziona su windows VISTA mentre su Win XP Professional SP2 mi genera il seguente errore il controllo activex non puo creare l'oggetto potete spiegarmi qual'è l'errore e come risolverlo il codice dovrebbe chiudere tutte le istanze aperte di notepad grazie in anticipo per l'aiuto

Private Sub Command2_Click()
           
    Dim obj As Object   
           
    For Each obj In GetObject("winmgmts:").ExecQuery("SELECT * FROM Win32_Process      WHERE Name='notepad.exe'")
                obj.Terminate
    Next
    
End Sub

[LeleFT]

Ciao e benvenuto nel forum.
Ti invito fin da subito a prendere visione del [url=http://forum.html.it/forum/showthread.php?s=&threadid=973887]Regolamento interno[/b] per conoscere le norme di partecipazione.

Inoltre, VB6 viene trattato nel forum "Visual Basic e .NET Framework" assieme a tutti i suoi fratelli VB...

Il codice, come indicato nel regolamento che ti ho linkato, va postato all'interno dei tag CODE (ho sistemato io il tuo post).


Sposto la discussione.


Ciao.