Liste des Process Win98 W2K

Question

Voila j'ai cette fonction qui marche sous 2000 et Xp mais qui plante sous 98 des mon getobject
Comment faire pour que cela marche sur les Windows

Public Function Return_Handle(Name As String) As Boolean
Dim Temp As Boolean
Dim Liste, p, Element, Proc As Long
Dim Locator As SWbemLocator
Dim Services As SWbemServices
Dim ServiceObject As SWbemObject

    Temp = False
    Set Liste = GetObject("winmgmts:").InstancesOf("Win32_Process")
    
    For Each Element In Liste
        If LCase(Element.Name) = LCase(Name) Then
            Temp = True
            Proc = Element.Handle
            Exit For
        End If
    Next
    MsgBox "Apres For"
    If Temp Then
    
        Set Locator = New SWbemLocator 'Nouvelle instance d'une connexion
        Set Services = Locator.ConnectServer("")
        
        'Recuperation du processus selectionné
        Set ServiceObject = Services.Get("Win32_Process='" & Proc & "'")
        'Destruction du processus
        p = ServiceObject.Terminate
    End If
    Return_Handle = Temp
End Function

Tilois · Answer

As tu pensé a installer le support WMI sous ta machine W98?

Liste des Process Win98 W2K

1 réponse

Discussions similaires