Zuviel Werbung? - > Hier kostenlos beim SPS-Forum registrieren

Ergebnis 1 bis 3 von 3

Thema: Protool VBScript Prozess aktiv

  1. #1
    Registriert seit
    19.08.2007
    Beiträge
    162
    Danke
    2
    Erhielt 0 Danke für 0 Beiträge

    Standard


    Zuviel Werbung?
    -> Hier kostenlos registrieren
    Hallo zusammen,

    ich habe ein kleines Problem und zwar suche ich schon eine weile eine Möglichkeit aus Protool Pro heraus zu überprüfen ob eine Anwendung im Hintergrund gestartet ist. Protool läuft auf einem normalen Windows PC mit XP als Betriebssystem. Gibt es in VBS eine Funktion zum überprüfen ob eine .exe gestartet ist?

    MfG demmy
    Zitieren Zitieren Protool VBScript Prozess aktiv  

  2. #2
    Registriert seit
    06.10.2004
    Ort
    Kopenhagen.
    Beiträge
    4.626
    Danke
    377
    Erhielt 801 Danke für 642 Beiträge

    Standard

    Code:
    set service = GetObject ("winmgmts:")
    
    for each Process in Service.InstancesOf ("Win32_Process")
    	If Process.Name = "notepad.exe" then
    		wscript.echo "Notepad running"
    		wscript.quit
    	End If
    next
    wscript.echo "notepad not running"
    Quelle.

    Disclaimer: Habe es nicht selber getestet. Weiss nicht ob es funzt innerhalb von Protool RT.
    Jesper M. Pedersen

  3. #3
    demmy86 ist offline Erfahrener Benutzer
    Themenstarter
    Registriert seit
    19.08.2007
    Beiträge
    162
    Danke
    2
    Erhielt 0 Danke für 0 Beiträge

    Standard


    Zuviel Werbung?
    -> Hier kostenlos registrieren
    Hallo,

    Danke erst mal. Der Code Funktioniert aber leider nicht mit Protool,
    ich habe es aber inzwischen geschafft einen funktionierenden Code zu schreiben.

    hier ist er:

    Code:
    Dim sProcessName
    Dim sComputer
    Dim oWmi
    Dim oShell
    Dim colProcessList
    sProcessName = "Notepad.exe"
    sComputer = "." ' nutze "." für einen lokalen PC
    Set oWmi = GetObject("winmgmts:" & "{impersonationLevel=impersonate}!\\" & sComputer & "\root\cimv2")
    'Ab hier könnte eine Schleife folgen
    Set colProcessList = oWmi.ExecQuery("Select * from Win32_Process Where Name = '" & sProcessName & "'")
    If colProcessList.Count = 0 Then
    
    ExeStatus = false
    Else
    ExeStatus = true
    EndIf
    'Ende der Schleife
    
    Es kann ein beliebiger Prozess überwacht werden, welcher mit "sProcessName" festgelegt wird und die variable ExeStatus gibt in meinen Fall den Status des Prozesses zurück!
    Der Code kann und muss natürlich noch auf eigene Bedürfnisse angepasst werden.

    MfG
    demmy

Ähnliche Themen

  1. Prozess Abbild
    Von RobiHerb im Forum Programmierstrategien
    Antworten: 1
    Letzter Beitrag: 14.04.2010, 10:30
  2. Prozess-Teilprozessabbild
    Von johnij im Forum Simatic
    Antworten: 1
    Letzter Beitrag: 25.10.2007, 13:57
  3. VBScript ProTool/Pro csv
    Von RyanB im Forum HMI
    Antworten: 2
    Letzter Beitrag: 13.10.2005, 09:13
  4. Antworten: 3
    Letzter Beitrag: 13.12.2004, 12:45
  5. protool + vbscript
    Von volker im Forum HMI
    Antworten: 0
    Letzter Beitrag: 07.08.2003, 12:46

Lesezeichen

Berechtigungen

  • Neue Themen erstellen: Nein
  • Themen beantworten: Nein
  • Anhänge hochladen: Nein
  • Beiträge bearbeiten: Nein
  •