[VB6]Processi e windows98

[Jumpychan]

Ciao, per far fermare un processo e poi farlo ripartire uso questo codice:

Private Declare Function GetWindowsDirectory Lib "kernel32.dll" Alias "GetWindowsDirectoryA" (ByVal lpBuffer As String, ByVal nSize As Long) As Long

Private Sub Form_Load()

    On Error Resume Next
    Dim ComputerName As String
    Dim processname As String
    processname = "mioeseguibile.exe" 
    
    ComputerName = GetComputerName
    For Each Process In GetObject("winmgmts:{impersonationLevel=impersonate}!//" & ComputerName).ExecQuery("select * from Win32_Process where Name='" & processname & "'")
    Process.Terminate
    Next
    DoEvents
    
      
   
    Shell "..\fscommand\mioeseguibile.exe", vbHide
    
    
    
    End

End Sub

Mentre su windows xp e 2000 funziona correttamente, in windows 98 non da segni di vita...

Cosa devo fare?

[tomhead]

molto probabilmente perchè la gestione dei processi è diversa...