title image


Smiley Re: Prüfen ob Notes gestartet
Hallo UGE,



(wer auch immer das ist). Vielen Dank für den Tip. Ich habe

die Funktion noch etwas kosmetisch bearbeitet. Unter Win2000

läuft es problemlos, unter WinNT muss ich es noch testen.

Noch eine Frage: Wo gibt es nähere Informationen zu dem

"winmgmts:"-Objekt ?



Grüße Michael



PS ich werde das Listing für das Archiv vorschlagen.











Function get_Task_Status(TaskName As String) As Boolean

get_Task_Status = False

Set ProcessSet = GetObject("winmgmts:").ExecQuery("select * from Win32_Process")

For Each Process In ProcessSet ''' For all running processes, get the Lotus Notes one

If LCase(Process.Name) = LCase(TaskName) Then ''' If found (since running), report success

get_Task_Status = True

Exit For

End If

Next

End Function



Private Sub test001()

ret = get_Task_Status("nlnotes.exe")

End Sub

geschrieben von

Login

E-Mail:
  

Passwort:
  

Beitrag anfügen

Symbol:
 
 
 
 
 
 
 
 
 
 
 
 
 

Überschrift: