-> Hier kostenlos registrieren
Tach,
mein Problem:
Der Kunde möchte vom WinCC aus den Taschenrechner aufrufen, mein Code
Leider öffnet sich der Taschenrechner immer auf Monitor 1, nun soll aber wenn der Button auf Monitor 2 gedrückt wird der Taschenrechner auch auf Monitor 2 geöffnet werden. Jemand nen Vorschlage wie ich das umsetzen kann? Meine Script-Kenntnisse reichen dazu leider nicht aus und googlen führte bisher nicht zum erfolg.
mein Problem:
Der Kunde möchte vom WinCC aus den Taschenrechner aufrufen, mein Code
Code:
Dim objWMIService, colProcessList, colProcessesDim objShell
Dim objExplorer
Set objWMIService = GetObject("winmgmts:" & "{impersonationLevel=impersonate}!\\.\root\cimv2")
Set colProcesses = objWMIService.ExecQuery("Select * from Win32_Process Where Name = 'CALC.EXE'")
Set objShell=CreateObject("WScript.Shell")
If colProcesses.Count = 0 Then 'läuft nicht, also starten
objShell.Run ("calc.exe")
Else 'läuft, also in den Vordergrund holen
Set objShell=CreateObject("WScript.Shell")
objShell.AppActivate "Calculator"
End If
'jetzt san ma fertich
Set objWMIService=Nothing
Set objShell=Nothing
Leider öffnet sich der Taschenrechner immer auf Monitor 1, nun soll aber wenn der Button auf Monitor 2 gedrückt wird der Taschenrechner auch auf Monitor 2 geöffnet werden. Jemand nen Vorschlage wie ich das umsetzen kann? Meine Script-Kenntnisse reichen dazu leider nicht aus und googlen führte bisher nicht zum erfolg.