Sie sind aktuell nicht angemeldet.

Funktionen: Einloggen  |  Neu registrieren  |  Suchen

citrix Benutzername eine bestimmten Programms ermitteln
Autor: Struppi
Datum: 29.11.17 14:59
Hallo, ich habe ein Programm "Report" laufen und möchte aus diesem ein anderes Programm "Work" mit diversen Parameter öffnen. Wenn dieses Programm "Work" bereits läuft sollte es erst geschlossen werden. Dies alles läuft auf Citrix und die Programme werden von vielen Usern benutzt. Wie kann ich feststellen ob das Programm "Work" vom User des Programms "Report" geöffnet ist oder nicht ? Ich arbeite noch mit VB6. Vielen Dank für Eure Unterstützung

Re: citrix Benutzername eine bestimmten Programms ermitteln
Autor: Struppi
Datum: 06.12.17 20:11
Hallo, habe eine Möglichkeit gefunden: wenn ich das Modul in ein externes Projekt einfüge mit einen Multiline-Textfeld funktioniert es hervorragend, mein Programm bricht aber nach einigen Durchläufen der Do-While-Schleife der Funktion "ListAllProcesses" ab. Kann mir jemand sagen warum das so ist ? Public Function ListAllProcesses(ByVal varFileName As String) As String Dim processInfo As PROCESSENTRY32 ' information about a process in that list Dim hSnapshot As Long ' handle to the snapshot of the process list Dim success As Long ' success of having gotten info on another process Dim retval As Long ' generic return value Dim exeName As String ' filename of the process ' First, make a snapshot of the current process list. hSnapshot = CreateToolhelp32Snapshot(TH32CS_SNAPPROCESS, 0) ' Get information about the first process in the list. processInfo.dwSize = Len(processInfo) success = ProcessFirst(hSnapshot, processInfo) ' Make sure a handle was returned. If hSnapshot = -1 Then Debug.Print "Unable to take snapshot of process list!" Else ' Loop for each process on the list. Do While success <> 0 ' Extract the filename of the process (i.e., remove the empty space) exeName = left(processInfo.szExeFile, InStr(processInfo.szExeFile, vbNullChar) - 1) ' Display the process name Debug.Print "Process: "; exeName Debug.Print "User: "; GetProcessUserName(processInfo.th32ProcessID) If exeName = varFileName And GetProcessUserName(processInfo.th32ProcessID) = Get_UserName Then ' MsgBox "Jetzt WINWork.exe schliessen!" TerminateTask processInfo.th32ProcessID End If ListAllProcesses = ListAllProcesses & exeName & " - " & GetProcessUserName(processInfo.th32ProcessID) & vbCrLf ' Get information about the next process, if there is one. processInfo.dwSize = Len(processInfo) success = ProcessNext(hSnapshot, processInfo) Loop ' Destroy the snapshot, now that we no longer need it. retval = CloseHandle(hSnapshot) End If End Function

Sie sind nicht angemeldet! Um auf diesen Beitrag zu antworten oder neue Beiträge schreiben zu können, müssen Sie sich zunächst anmelden. Einloggen  |  Neu registrieren

Funktionen:  Zum Thema  |  Gesamtübersicht

Suchen