Process Win 98 Win 2000

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

crenaud76 · Answer

Ben vu qu'il y a un monde entre W98 et 2000/XP, ca m'étonne pas trop !!

Christophe R.

Tilois · Answer

Installe simplement le support WMI sous windows 9x. C'est ton seul problème. Salut

Process Win 98 Win 2000

2 réponses

Discussions similaires