title image


Smiley Re: Prüfen ob Notes gestartet
Hi



schon bischen älter und ungetestet unter WinXP.

Gruß



''' // Get running Lotus Notes Process

''' // Since GetObject cannot be used, we check all running processes for Lotus Notes (which is an executable you have to set via Const P_Name)

''' //

''' // Note: Since this uses WMI, your OS has to support WMI. In case of Windows NT you might have to install WMI support. Windows 98 + Windows 2000 (and above) do support WMI by default.

''' //

''' // This function will report "" in case of success (Lotus Notes was found as a running process) or "Error"

''' //

Function fct_Get_Running_Notes_Session() As String

P_Name = "nlnotes.exe"



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



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

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

fct_Get_Running_Notes_Session = ""

Exit For

Else

fct_Get_Running_Notes_Session = "Error"

End If

Next



End Function




Gruß
_________________________
www.XLplus.de



geschrieben von

Login

E-Mail:
  

Passwort:
  

Beitrag anfügen

Symbol:
 
 
 
 
 
 
 
 
 
 
 
 
 

Überschrift: