2
Prozess Owner
Hallo Zusammen, ich brauche wiedermal Hilfe
Auf einem Citrix Server möchte ich unter dem "user" abfragen ob bereits ein Prozess z.B. Excel.exe läuft.
Das Sript sagt es läuft bereits ein Excel.exe ----- ABER es mekrt nicht das dieser Prozess nicht dem user gehört.. Terminal Server eben
Bei diesem Script hat der User keine Berechtigung die WMI abfrage zu machen
Hat jemand eine Idee?
[Edit Biber] Codetags [/Edit]
Auf einem Citrix Server möchte ich unter dem "user" abfragen ob bereits ein Prozess z.B. Excel.exe läuft.
Das Sript sagt es läuft bereits ein Excel.exe ----- ABER es mekrt nicht das dieser Prozess nicht dem user gehört.. Terminal Server eben
$ProcessName = "Excel.exe"
If ProcessExists($ProcessName) Then
MsgBox(0,"Running",$ProcessName & " is running.")
Else
MsgBox(0,"Not Running",$ProcessName & " is not running.")
EndIfBei diesem Script hat der User keine Berechtigung die WMI abfrage zu machen
Dim $s_ProcessOwner
Dim $o_WMIServiceCIMv2 = ObjGet("winmgmts:{impersonationLevel=impersonate}!\\.\root\cimv2")
$o_ColListOfProcesses = $o_WMIServiceCIMv2.ExecQuery ("SELECT * FROM Win32_Process WHERE Name=""excel.exe""")
If $o_ColListOfProcesses.Count > 0 Then
For $o_ObjProcess in $o_ColListOfProcesses
$i_RC = $o_ObjProcess.GetOwner($s_ProcessOwner)
If $i_RC Then
MsgBox(0, "", "Error " & $i_RC & " reading Process Owner")
Exit(1)
ElseIf $s_ProcessOwner = @UserName Then
MsgBox(0, "", "Found!")
Exit(0)
EndIF
Next
EndIf
MsgBox(0, "", "Not found!") Hat jemand eine Idee?
[Edit Biber] Codetags [/Edit]
Auf Facebook teilen
Auf Twitter teilen
Auf Reddit teilen
Auf Linkedin teilenBitte markiere auch die Kommentare, die zur Lösung des Beitrags beigetragen haben
Content-ID: 138519
Url: https://administrator.de/contentid/138519
Ausgedruckt am: 16.11.2024 um 22:11 Uhr
2 Kommentare
Neuester Kommentar
Hi.
Darf ich vorab fragen, was Du bezweckst? Soll der Benutzer per Skript sehen, ob er bereits Excel offen hat?
Darf ich vorab fragen, was Du bezweckst? Soll der Benutzer per Skript sehen, ob er bereits Excel offen hat?
Habe die Lösung gefunden
; ProcessExist.exe
; ----------------
If $CmdLine <> 2 Then
MsgBox(16, "", "Fehler: Ungueltige Anzahl Parameter: " & $CmdLine, 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
Der Eigentliche Aufruf:
$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("adm", "AD", "xxxxx", 0, "ProcessExist.exe nlnotes.exe " & @username, ".", @sw_hide, 8)
If $i_RC Then Exit(1)
; ProcessExist.exe
; ----------------
If $CmdLine <> 2 Then
MsgBox(16, "", "Fehler: Ungueltige Anzahl Parameter: " & $CmdLine, 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
Der Eigentliche Aufruf:
$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("adm", "AD", "xxxxx", 0, "ProcessExist.exe nlnotes.exe " & @username, ".", @sw_hide, 8)
If $i_RC Then Exit(1)
