Option Explicit
Public Sub IE_offen_Alle()
Dim strPC As String
Dim strProgramm As String
Dim objWMI As Object
Dim objProc As Object
Dim bytZahl As Byte
strPC = "localhost"
strProgramm = "'iexplore.exe'"
Set objWMI = GetObject("winmgmts:" & _
"{impersonationLevel=impersonate}!\\" & strPC & "\root\cimv2")
Set objProc = objWMI.ExecQuery _
("Select * from Win32_Process Where Name = " & strProgramm)
For Each objProc In objProc
bytZahl = bytZahl + 1
Next objProc
MsgBox "Es sind " & bytZahl & " Instanzen vom IE offen!"
End Sub
Public Sub IE_offen()
Dim strPC As String
Dim strProgramm As String
Dim objWMI As Object
Dim objProc As Object
strPC = "localhost"
strProgramm = "'iexplore.exe'"
Set objWMI = GetObject("winmgmts:" & _
"{impersonationLevel=impersonate}!\\" & strPC & "\root\cimv2")
Set objProc = objWMI.ExecQuery _
("Select * from Win32_Process Where Name = " & strProgramm)
If objProc.Count > 0 Then
MsgBox "IE offen!"
Else
MsgBox "IE nicht offen!"
End If
End Sub
Das erste Makro gibt die Anzahl der offenen IE-Instanzen aus. Das zweite Makro prüft ob offen oder nicht.
Servus
Case