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
Die erweiterte Suchfunktion hilft dir, gezielt die besten Antworten zu finden
Suche nach den besten AntwortenEntdecke unsere meistgeklickten Beiträge in der Google Suche
Top 100 Threads jetzt ansehen