Abfrage ob Lotus Notes bereits auf dem Terminal Server unter dem Angemeldetem User ohne Admin Rechte läuft

; ProcessExist.exe 

; ---------------- 

If $CmdLine[0] <> 2 Then 

	MsgBox(16, "", "Fehler: Ungueltige Anzahl Parameter: " & $CmdLine[0], 5) 

	Exit(1) 

EndIf 

Dim $s_ProcessOwner 

Dim $o_WMIServiceCIMv2 = ObjGet("winmgmts:{impersonationLevel=impersonate}!\\.\root\cimv2") 

If IsObj($o_WMIServiceCIMv2) Then 

	$o_ColListOfProcesses = $o_WMIServiceCIMv2.ExecQuery ("SELECT * FROM Win32_Process WHERE Name=""" & $CmdLine[1] & """") 

	If $o_ColListOfProcesses.Count > 0 Then 

		For $o_ObjProcess in $o_ColListOfProcesses 

			$i_RC = $o_ObjProcess.GetOwner($s_ProcessOwner) 

			If $i_RC Then 

				MsgBox(48, "", "Warnung: Fehler" & $i_RC & " beim lesen des Process Owner von Prozess """ & $CmdLine[1] & """", 5) 

				Exit(0) 

			ElseIf $s_ProcessOwner = $CmdLine[2] Then 

				MsgBox(16, "HelpDesk", "Beim Start von Lotus Notes ist ein Fehler aufgetreten. Wenden Sie sich bitte an den Helpdesk.", 5) 

								Exit(1) 

			EndIF 

		Next 

	Else 

		Exit(0) 

	EndIf 

Else 

	MsgBox(48, "", "Warnung: Notwendige WMI-Objektvariable konnte nicht erstellt werden.", 5) 

	Exit(0) 

EndIf

$i_RC = FileInstall("ProcessExist.exe", "ProcessExist.exe", 1) 

If not $i_RC Then 

	MsgBox(16, "", "Fehler: Helper-Datei ""ProcessExist.exe"" konnte nicht installiert werden.", 5) 

	Exit(1) 

EndIf 

$i_RC = RunAsWait("Admin", "AD", "xxxxx", 0, "ProcessExist.exe nlnotes.exe " & @Username, ".", @SW_HIDE, 8) 

If $i_RC Then Exit(1)